《2022年二级Visual+Basic语言程序设计模拟 .pdf》由会员分享，可在线阅读，更多相关《2022年二级Visual+Basic语言程序设计模拟 .pdf（20页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、1 模拟 二级 Visual Basic语言程序设计模拟28 单项选择题第 1 题：下列叙述中正确的是（）。A.算法就是程序B.设计算法时只需要考虑数据结构的设计C.设计算法时只需要考虑结果的可靠性D.以上三种说法都不对参考答案： D 算法是指解题方案的准确而完整的描述， 算法既不等于程序，也不等于计算方法，因此 A）错误。设计算法时不仅要考虑对数据对象的运算和操作，还要考虑算法的控制结构，因此B）和 C ）错误。第 2 题：下列叙述中正确的是（）。A.有一个以上根结点的数据结构不一定是非线性结构B.只有一个根结点的数据结构不一定是线性结构C.循环链表是非线性结构D.双向链表是非线性结构参考答
2、案： B 线性结构应满足： 有且只有一个根结点与每个结点最多有一个前件，也最多有一个后件，因此B）正确。因为有一个以上根结点的数据结构一定是非线性结构，所以 A）错误。循环链表和双向链表都是线性结构的数据结构。第 3 题：下列关于二叉树的叙述中，正确的是（）。A.叶子结点总是比度为2 的结点少一个B.叶子结点总是比度为2 的结点多一个C.叶子结点数是度为2 的结点数的两倍D.度为 2 的结点数是度为 1 的结点数的两倍参考答案： B 根据二叉树的基本性质3：在任意一棵二叉树中，度为0 的叶子结点总是比度为2 的结点多一个，因此答案为B）。第 4 题：软件生命周期中的活动不包括（）。A.市场调研
3、B.需求分析C.软件测试D.软件维护参考答案： A 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 20 页 - - - - - - - - - 2 软件生命周期可以分为软件定义、软件开发与软件运行维护三个阶段。主要活动包括：可行性研究与计划、需求分析、软件设计、软件实现、软件测试、运行和维护，因此本题答案为A）。第 5 题：某系统总体结构图如下图所示：该系统总体结构图的深度是（）。A.7 B.6 C.3 D.2 参考答案： C 根据总体结构图可以看出该树的深度为3，比如
4、： XY 系统功能2功能2.1 ，就是最深的度数的一个表现，因此本题答案为C）。第 6 题：程序调试的任务是（）。A.设计测试用例B.验证程序的正确性C.发现程序中的错误D.诊断和改正程序中的错误参考答案： D 程序调试的任务是诊断和改正程序中的错误，因此本题答案为D）。第 7 题：下列关于数据库设计的叙述中，正确的是（）。A.在需求分析阶段建立数据字典B.在概念设计阶段建立数据字典C.在逻辑设计阶段建立数据字典D.在物理设计阶段建立数据字典名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - -
5、 第 2 页，共 20 页 - - - - - - - - - 3 参考答案： A 数据字典是在需求分析阶段建立， 在数据库设计过程中不断修改、 充实和完善的，因此选择 A）。第 8 题：数据库系统的三级模式不包括（）。A.概念模式B.内模式C.外模式D.数据模式参考答案： D 数据库系统的三级模式是概念模式、外模式和内模式， 不包括数据模式， 因此选择 D）。第 9 题：有三个关系 R、S和 T 如下：则由关系 R和 S 得到关系 T 的操作是（）。A.自然连接B.交C.投影D.并参考答案： A 自然连接是一种特殊的等值连接， 它要求两个关系中进行比较的分量必须是相同的属性组，并且在结果中把
6、重复的属性列去掉，因此根据 T中元组可以判断关系R和 S做的是自然连接操作，答案为A）。第 10 题：下列选项中属于面向对象设计方法主要特征的是（）。A.继承B.自顶向下名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 20 页 - - - - - - - - - 4 C.模块化D.逐步求精参考答案： A 面向对象设计方法的基本概念有对象、类和实例、消息、继承与多态性，因此选择 A）。第 11 题：为了清除列表框中指定的项目，应使用的方法是（）。A.Cls B.Clear
7、C.Remove D.RemoveItem 参考答案： D 清除列表框中的指定内容要使用RemoveItem 方法，格式为： RemoveItem(索引值)，只要指定要清除项目的索引值就可以清除指定项目。如果要清除列表框中的全部内容可以使用Clear 方法。因此选 D）。第 12 题：假定 Picture1和 Text1 分别为图片框和文本框的名称，则下列错误的语句是（ ）。A.Print 25 B.Picture1.Print 25 C.Text1.Print 25 D.Debug.Print 25 参考答案： C Print方法可以在窗体上显示文本字符串和表达式的值，并可以在其他图形对象或
8、打印机上输出信息。 其一般格式为： 对象名称 .Print表达式表 ,|; 其中对象名称可以是窗体（ Form）、图片框（PictureBox ）或打印机（Printer），也可以是立即窗口 （Debug ）。如果省略对象名称， 则在当前窗体上输出。 因此 C ）选项正确。第 13 题：如果把命令按钮的Cancel 属性设置为 True，则程序运行后（）。A.按 Esc键与单击该命令按钮的作用相同B.按回车键与单击该命令按钮的作用相同C.按 Esc键将停止程序的运行D.按回车键将中断程序的运行参考答案： A 当一个命令按钮的Cancel 属性被设置为 True 时， 按 Esc 键与单击该命令
9、按钮的作用相同。在一个窗体中，只能有一个命令按钮的Cancel 属性被设置为True。因此选 A）。第 14 题：为了使命令按钮的Picture 、DownPicture 或 DisabledPicture属性生效，必须名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 20 页 - - - - - - - - - 5 把它的 Style 属性设置为（）。A.0 B.1 C.True D.False 参考答案： B 为了使命令按钮的Picture 、DownPicture 或
10、 DisablePicture属性生效，必须把Style 属性设置为 1（图形格式），否则设置的图片无效。因此选B）。第 15 题：列表框中被选中的数据项的位置可以通过一个属性获得，这个属性是（）。A.List B.ListIndex C.Text D.ListCount 参考答案： B 列表框控件的ListIndex属性值是已选中的表项的位置。表项位置由索引值指定，第一项的索引值为0，第二项为1，以此类推。如果没有任何项被选中，ListIndex的值将设置为 -1 。第 16 题：为了使一个复选框被禁用（灰色显示），应把它的Value 属性设置为（）。A.0 B.1 C.2 D.False
11、参考答案： C 复选框的 Value 属性可以设置为0、1 或 2。设置为 0 表示没有选择该复选框，设置为 1 表示选中该复选框，设置为2 表示该复选框被禁用（灰色显示）。故选C）。第 17 题：为了使文本框显示滚动条，除要设置ScrollBars外，还必须设置的属性是（ ）。A.AutoSize B.Alignment C.Multiline D.MaxLength 参考答案： C 为了使文本框显示滚动条，要将ScrollBars的值设置为非 0 的 1、2 或 3，还要设置 Multiline属性为 True。故选 C ）。第 18 题：在窗体上画一个通用对话框，其名称为CommonDi
12、alog1 ，则下列与名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 20 页 - - - - - - - - - 6 CommonDialog1.ShowOpen 方法等效的语句是（）。A.CommonDialog1.Action = 1 B.CommonDialog1.Action = 2 C.CommonDialog1.Action = 3 D.CommonDialog1.Action = 4 参考答案： A 通用对话框的属性 Action =1与 ShowOpen
13、 方法等效，而 Action = 2则与 ShowSave等效。第 19 题：如果改变驱动器列表框的Drive 属性，则将触发的事件是（）。A.Change B.Scroll C.KeyDown D.KeyUp 参考答案： A 如果改变驱动器列表框的Driv 属性，则将触发 Change事件。第 20 题：为了调整图像框的大小以与其中的图形相适应，必须把它的Stretch属性设置为（ ）。A.True B.False C.1 D.2 参考答案： B 图像框的 Strethc属性值为 False 时， 将自动放大或缩小图像框中的图形以与图像框的大小相适应。第 21 题：设有如下程序：Privat
14、e Sub Form_Click() num = InputBox(请输入一个实数 ) p = InStr(num,.) If p 0 Then Print Mid(num,p + 1) Else Print END End If End Sub 运行程序，单击窗体，根据提示输入一个数值。如果输入的不是实数，则程序输出“ END ”；否则（）。A.用字符方式输出该实数B.输出该实数的整数部分名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 20 页 - - - - - -
15、- - - 7 C.输出该实数的小数部分D.去掉实数中的小数点，保留所有数码输出参考答案： C InStr函数查找小数点在输入的实数中的位置，如果找不到将返回0。Mid 函数一般有 3 个参数，从第 2 个参数指定的位置开始， 在第 1 个参数字符串中截取第3个参数指定长度的字符， 第 3个参数可以省略，这时就一直截取到字符串尾部。因此程序实现的功能就是如果输入的是实数（p 0 即说明找到了小数点，是实数）就输入该实数的小数部分，否则输出“END ”。因此选项 C）正确。第 22 题：在窗体上画一个文本框，名称为Text1，然后编写如下程序：Private Sub Form_Load() Sh
16、ow Text1.Text = Text1.SetFocus End Sub Private Sub Form_Click() Dim a As String,s As String a = Text1.Text s = For k = 1 To Len(a) s = UCase(Mid(a,k,1) + s Next k Text1.Text = s End Sub 程序运行后，在文本框中输入一个字符串，然后单击窗体，则文本框中的内容（ ）。A.与原字符串相同B.与原字符串中字符顺序相同，但所有字母均转换为大写C.为原字符串的逆序字符串，且所有字母转换为大写D.为原字符串的逆序字符串参考答案
17、： C 程序中 Mid 函数从输入字符串左边开始逐一取一个字符同时转换为大写，并连接到上次取出的字符的前面， 因此文本框中显示的将是原输入字符串转换为大写的并倒序排列的字符串。故C）选项正确。第 23 题：有以下通用过程：Function fun(N As Integer) s = 0 For k = 1 To N s = s + k * (k + 1) Next k fun = s 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 7 页，共 20 页 - - - - - - - -
18、 - 8 End Function 该过程的功能是（）。A.计算 N！B.计算 1 + 2 + 3 + . + N C.计算 12233. N N D.计算 12 + 2 3 + 3 4 + . + N(N + 1) 参考答案： D 由程序可知 s = 1*(1+1)+2*(2+1)+3*(3+1)+4*(4+1).+N*(N+1),因此选项 D ）正确。第 24 题：在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click() a$ = InputBox(请输入一个二进制数 ) n = Len(a$) For i = 1 To n Dec = Dec
19、 * 2 + _(a$,i,1) Next i Print Dec End Sub 程序功能为：单击命令按钮，将产生一个输入对话框，此时如果在对话框中输入一个二进制数，并单击“确定”按钮，则把该二进制数转换为等值的十进制数。这个程序不完整，应在“_”处填入的内容是（）。A.Left B.Right C.Val D.Mid 参考答案： D 将二进制数转换为十进制数需要将二进制数的每一位取出来进行运算，从一个数值字符串中截取一位数字字符要使用Mid 函数，因此在程序空缺处该填入Mid，D）选项正确。第 25 题：设有如下事件过程：Private Sub Form_Click() Sum = 0 F
20、or k = 1 To 3 If k = 1 Then x = 1 ElseIf k = 2 Then x = 2 ElseIf k = 3 Then x = 3 Else 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 8 页，共 20 页 - - - - - - - - - 9 x = 4 End If Sum = Sum + x Next k Print Sum End Sub 程序运行后，单击窗体，输出结果是（）。A.9 B.6 C.3 D.10 参考答案： B 程序执行过程
21、如下： k = 1 ，k= 1 成立，执行 x = 1 ，sum = sum+x = 1 k = 2，k= 2 成立，执行 x = 2 ，sum = sum+x = 1+2 = 3 k = 3，k= 3成立，执行 x = 3 ，sum = sum+x = 3+3 = 6，循环结束。因此最后输出Sum的值为 6，答案为 B）。第 26 题：在窗体上画一个命令按钮和一个标签，其名称分别为Command1 和 Label1 ，然后编写如下事件过程：Private Sub Command1_Click() Dim arr(10) For i = 6 To 10 arr(i) = i - 5 Next
22、i Label1.Caption = arr(0) + arr(arr(10)/arr(6) End Sub 运行程序，单击命令按钮，则在标签中显示的是（）。A.0 B.1 C.2 D.3 参考答案： A 程序中使用 For 语句为数组中的部分元素赋值， 没显示赋值的数组元素的值默认为 0，因此 arr(0) = 0，arr(10) = 10-5 = 5，arr(6)= 6-5 = 1，arr(arr(10)/ arr(6)即 arr(5 / 1) = arr(5) = 0，arr(0)+arr(5) = 0+0 = 0。因此标签中显示的是 0，A）选项正确。第 27 题：在窗体上画一个名称为
23、Text1 的文本框，并编写如下程序：Option Base 1 Private Sub Form_Click() Dim arr Dim Start As Integer,Finish As Integer 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 9 页，共 20 页 - - - - - - - - - 10 Dim Sum As Integer arr = Array(12,4,8,16) Start = LBound(arr) Finish = UBound(arr)
24、Sum = 0 For i = Start To Finish Sum = Sum + arr(i) Next i c = Sum / Finish Text1.Text = c End Sub 运行程序，单击窗体，则在文本框中显示的是（）。A.40 B.10 C.12 D.16 参考答案： C 程序中将变量 arr 初始化成 4 个元素的数组，之后使用 Lbound和 Ubound函数分别获取了数组下标的上下限值， 然后再将数组中的元素值相加， 最后用整除运算求它们的平均值。算式可写为(12+4+8+16)/ 4 = (40)/4 = 12。因此本题答案为C）。第 28 题：在窗体上画一个名
25、称为Command1 的命令按钮，并编写如下程序：Option Base 1 Private Sub Command1_Click() Dim a(4,4) For i = 1 To 4 For j = 1 To 4 a(i,j) = (i - 1) * 3 + j Next j Next i For i = 3 To 4 For j = 3 To 4 Print a(j,i); Next j Print Next i End Sub 运行程序，单击命令按钮，则输出结果为（）。A.6 9 7 10 B.7 10 8 11 C.8 11 9 12 D.9 12 10 13 名师资料总结 - -
26、-精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 10 页，共 20 页 - - - - - - - - - 11 参考答案： D 程序中数组变量 a 的元素内容如下：第 1 行，a(1,1) = 1，a(1,2) = 2， a(1,3) = 3，a(1,4) = 4； 第 2 行，a(2,1) = 4， a(2,2) = 5， a(2,3) = 6，a(2,4) = 7； 第 3 行，a(3,1) = 7， a(3,2) = 8， a(3,3) = 9，a(3,4) = 10； 第 4行，a(4,1) =
27、 10， a(4,2) = 11， a(4,3) = 12，a(4,4) = 13； 要输出的元素为：a(3,3) 、a(4,3) 、a(3,4) 、a(4,4) ，即为 9、12、10、13。因此本题答案应该为 D ）。第 29 题：在窗体上画一个名称为Command1 的命令按钮，并编写如下程序：Function Fun(x) y = 0 If x 10 Then y = x Else y = y + 10 End If Fun = y End Function Private Sub Command1_Click() n = InputBox(请输入一个数 ) n = Val(n) P
28、= Fun(n) Print P End Sub 运行程序，单击命令按钮，将显示输入对话框，如果在对话框中输入100，并单击“确定”按钮，则输出结果为（）。A.10 B.100 C.110 D.出错信息参考答案： A 程序中输入 100，则调用过程Fun(100) ，在过程 Fun 中判断参数是否小于10，如果小于 10 则将此值赋给 y，如果大于等于10，则将变量 y 值加 10，由于 100大于 10，所以 y 值加 10，等于 10，然后将此值作为函数值返回。所以输出结果为 10。因此本题答案为A）。第 30 题：在窗体上画一个名称为Command1 的命令按钮，并编写如下程序：Priv
29、ate Type Record ID As Integer Name As String * 20 End Type Private Sub Command1_Click() 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 11 页，共 20 页 - - - - - - - - - 12 Dim MaxSize,NextChar,MyChar Open d:tempfemale.txt For Input As #1 MaxSize = LOF(1) For NextChar = M
30、axSize To 1 Step -1 MyChar = Input(1,#1) Next NextChar Print EOF(1) Close #1 End Sub 运行程序，单击命令按钮，其输出结果为（）。A.True B.False C.0 D.Null 参考答案： A 程序中以顺序输入方式打开d：tempfemale.txt文件。LOF函数用于取得打开文件的长度。 EOF函数用于测试文件的是否结束。根据文件长度值，利用Input函数逐一取出文件中的字符， 每读取一个字符， 文件指针就自动下移， 指向下一个字符。当执行最后一次循环时，Input 函数读取了最后一个字符，文件指针再向下移
31、动就会指向文件的结尾。 因此当使用 EOF函数测试文件是否结束时， 就会返回 True。所以， Print语句会直接输出“ True”。因此本题答案为A）。第 31 题：在窗体上画一个名称为Text1 的文本框和一个名称为Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click( ) Dim arr(10,10) As Integer,i as Integer,j As Integer For i=1 To 3 For j=2 To 4 arr(i,j)=i+j Next Next Text1.Text=arr(2,3)+arr(3,4) End
32、 Sub 程序运行后，单击命令按钮，在文本框中显示的值是（）。A.12 B.13 C.14 D.15 参考答案： A 本题的难点是嵌套循环的计算。 根据 arr1(i,j)=i+j可知，arr(i,j)的值为两个下标值之和，所以arr(2,3)+arr(3,4)的值为 2+3+3+4=12 。第 32 题：名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 12 页，共 20 页 - - - - - - - - - 13 在窗体上用复制、粘贴的方法建立了一个命令按钮数组，数组名为M1 。
33、设窗体Form1标题为“ myform1”，双击控件数组中的第3个按钮，打开代码编辑器，写下如下代码：Privae Sub M1_Click(Index As Integer) Form1.Caption=myform2 End Sub 运行时，单击按钮数组中的第1 个按钮，窗体标题为（）。A.Form1 B.M1 C.myform1 D.myform2 参考答案： D 数组控件在不区别控件下标时，单击任一按钮都会改变窗体标题。第 33 题：编写如下事件过程和函数过程：Private Sub Form_Click( ) Dim num(1 To 6) As Single num(1)=103:
34、num(2)=190:num(3)=0 num(4)=32:num(5)=-56:num(6)=100 Print Print p2(6,num( ) End Sub Private Function p2(ByVal n As Integer,number( ) As Single) As Integer p2=number(1) For j=2 To n If number(j) p2 Then p2=number(j) Next j End Function 程序运行后窗体上显示的值是（）。A.-56 B.0 C.103 D.190 参考答案： A 此题需要仔细分析 p2函数的数学意义，
35、不难发现返回值为前n个数中的最小值，所以输出的结果是num数组前 6 项中的最小值，即为num(5)=-56。第 34 题：有如下函数过程：Function Fun(ByVal x As Integer, ByVal y As Integer) As Integer Do While y 0 reminder=x Mod y 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 13 页，共 20 页 - - - - - - - - - 14 x=y y=reminder Loop Fun
36、=x End Function 以下是调用该函数的事件过程，该程序的运行结果是（）。Private Sub Command1_Click( ) Dim a As Integer Dim b As Integer a=100:b=25 x=Fun(a,b) Print x End Sub A.0 B.25 C.50 D.100 参考答案： B 本题的难点是子函数的调用过程。子函数 Fun的功能是求 x 和 y 的公约数，由欧几里得公式求最大公约数的算法可知，当余数r 为 0 时，x 为 x 和 y 的最大公约数。变量 x 的值通过子函数名Fun返回。第 35 题：有如下函数过程：Function
37、 lj(x As Integer) As Long Dim s As Long Dim i As Integer s=0 For i=1 To x s=s+i Next i lj=s End Function 在窗体上添加一个命令按钮，名为Command1，编写事件过程调用该函数，输出结果为（）。Private Sub Command1_Click( ) Dim i As Integer For i = 1 To 5 sum=sum+lj(i) Next i Print sum End Sub A.25 B.35 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - -
38、 - - - - - - - - 名师精心整理 - - - - - - - 第 14 页，共 20 页 - - - - - - - - - 15 C.45 D.55 参考答案： B 本题 lj函数为计算到某终止值的所有自然数和。本题执行15 循环，每次循环引用 lj函数。结果为 1+3+6+10+15=35 。第 36 题：下面程序段，运行后的结果是（）。Private Sub Command1_Click( ) Dim b%(1 To 4), i%, t# For i=1 To 4 b(i)=i Next t=Tof(b( ) Print t=; t, End Sub Function To
39、f(a( ) As Integer) Dim t#, i% t=1 For i=2 To UBound(A) t=t * a(i) Next Tof=t End Function A.t=18 B.t=24 C.t=30 D.t=32 参考答案： B 程序调用循环语句对数组b( ) 赋值， b(i)=i，且数组 b 的上下界分别为1 和 4，接着将数组 b( ) 作为对象，调用 Tof 过程。在 Tof 过程中，定义了两个变量 t 和i ，i 作为 For 循环的循环变量，初始值为2，终值为数组 b 的上界。循环体为“t=t*a(i)”，即将 b(i) 的值乘以 t ，然后再赋给 t ，当循环
40、结束后，程序返回的就是数组 b 中除第一个元素以外所有元素值的乘积，本题为234=24，输出结果为 t=24。第 37 题：与键盘操作有关的事件有KeyPress、KeyUp和 KeyDown 事件，当用户按下并且释放一个键后，这三个事件发生的顺序是（）。A.KeyDown 、KeyPress、KeyUp B.KeyDown 、KeyUp 、KeyPress C.KeyPress、KeyDown 、KeyUp D.没有规律参考答案： A 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第
41、 15 页，共 20 页 - - - - - - - - - 16 这三个事件的触发顺序是KeyDown （按下时触发）、 KeyPress（按下或释放时触发）、 KeyUp （释放时触发）。与 KeyDown 和 KeyUp 事件不同的是， KeyPress 不显示键盘的物理状态，只传递一个字符。第 38 题：以下程序运行后，输出结果是（）。For j=1 To 3 Print Tab （3*j);2*(j-1）Next j Print A.1 3 5 B.2 4 6 C.0 2 4 D.0 3 6 参考答案： C tab( ) 函数为输出若干个制表符， 既然 j 是递增的， 所以制表符的数
42、量也是递增的，由此即可得到C）为正确答案。第 39 题：下列各选项说法错误的一项是（）。A.文件对话框可分为两种，即打开（Open ）文件对话框和保存（ Save As）文件对话框B.通用对话框的 Name 属性的默认值为 CommonDialogX ，此外，每种对话框都有自己的默认标题C.打开文件对话框可以让用户指定一个文件，由程序使用；而用保存文件对话框可以指定一个文件，并以这个文件名保存当前文件D.DefaultEXT 属性和 DialogTitle 属性都是打开对话框的属性，但非保存对话框的属性参考答案： D 文件对话框分为两种：打开对话框和保存对话框，所以选项A）正确；通用对话框的
43、Name属性的默认值为CommonDialogX ，此外，每种对话框都有自己的默认标题，所以选项 B）正确；打开文件对话框可以让用户指定一个文件，由程序使用，而用保存文件对话框可以指定一个文件，并以这个文件名保存当前文件，所以选项 C ） 正确； 除 DefaultEXT 、 DialogTitle属性是打开和保存对话框共有的，还有 FileName、 FileTitle、 Filter、 FilterIndex、 Flags 、 InitDir、 MaxFileSize 、CancelError 、HelpCommand 、HelpContext 和 HelpFile属性，都是它们共有的，所
44、以选项 D）不正确。第 40 题：在 VB中按文件的访问方式不同，可以将文件分为（）。A.顺序文件、随机文件和二进制文件B.文本文件和数据文件C.数据文件和可执行文件D.ASCII 文件和二进制文件名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 16 页，共 20 页 - - - - - - - - - 17 参考答案： A 根据访问方式不同文件可以分为顺序文件、随机文件和二进制文件。基本操作题第 41 题：（1）在名称为 Form1 的窗体上添加一个名称为Command1 的命令按
45、钮（如图1 所示），然后通过属性窗口设置窗体和命令按钮的属性，实现如下功能： 窗体标题为“设置按钮属性”； 命令按钮的标题为“等级考试”； 程序运行后，命令按钮不可见； 命令按钮的标题字号、字体用三号常规黑体显示。程序的运行情况如图2 所示。要求：不编写任何代码。注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1.vbp，窗体文件名保存为sjt1.frm。 （2）在名称为 Form1 的窗体上添加一个名称为Label1 的标签，在属性窗口中把BorderStyle 属性设置为 1（如图 1 所示），编写适当的事件过程。使得程序在运行后，如果单击窗体，则可使标签移到窗体的右上角 （只
46、允许在程序中修改适当属性来实现），如图2 所示。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 17 页，共 20 页 - - - - - - - - - 18 要求：不得使用任何变量。 注意：存盘时必须存放在考生文件夹下， 工程文件名保存为sjt2.vbp， 窗体文件名保存为 sjt2.frm。_参考答案：（1） 步骤 1 ： 新建一个窗体，将其 Caption 属性设置为“设置按钮属性” 。向窗体中添加一个命令按钮，将其名称、Caption 、Font、Visible 属性分别设
47、置为“Command1”、 “等级考试” 、 “黑体 常规 三号”、 “False ”。 步骤 2 ：调试并运行程序， 关闭程序后按题目要求存盘。（2） 步骤 1 ： 新建一个窗体，添加一个标签控件， 将其名称和 BorderStyle 属性分别设置为“Label1 ” 、 “1” 。步骤2 ：打开代码编辑窗口，在指定位置编写如下代码。Private Sub Form_Click( ) Label1.Top = 0 设 置Label1 的 初 始 位 置Label1.Left = Form1.Width - Label1.Width End Sub 步骤 3 ：调试并运行程序，关闭程序后按题目
48、要求存盘。简单应用题第 42 题：（1）在考生文件夹下有一个工程文件sjt3.vbp，相应的窗体文件为sjt3.frm。其功能是随机产生30 个 01000 的整数，放入一个数组中，然后输出其中的最小值。程序运行后，单击命令按钮（名称为Command1，标题为“输出最小值”），即可求出其最小值，并在窗体上显示出来（如下图所示）。这个程序不完整，请把它补充完整，并使其能正确运行。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 18 页，共 20 页 - - - - - - - - -
49、19 要求：去掉程序中的注释符，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后将修改后的文件按原名存盘。（2）在考生文件夹下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm，在窗体上有一个文本框和一个命令按钮。程序运行后，单击命令按钮，即可计算出 0 1000 范围内不能被 7 整除的整数的个数，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算不能被7 整除的整数的个数的操作在通用过程Fun 中实现，请编写该过程的代码。要求：请勿改动程序中的任何内容，只在Function Fun( ) 和 End Function 之间填
50、入编写的若干语句。最后将修改后的文件按原文件名存盘。_ 参考答案：（1） 步骤 1 ：打开本题工程文件。步骤 2 ：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容。程序提供代码Option Base 1 Private Sub Command1_Click( ) Dim arrN(30) As Integer Dim Min As Integer Randomize For i = 1 To 30 arrN(i) = Int(Rnd * ？ ) Next i ? = arrN(1) For i = 2 To 30 If ? Then Min = arrN(i) End If N