1、国家二级（ VB）机试模拟试卷 40及答案与解析 一、选择题 1 鼠标拖放控件要触发两个事件，这两个事件是 ( )。 （ A） DragOver事件和 DragDrop事件 （ B） Drag事件和 DragDrop事件 （ C） MouseDown事件和 KeyDown事件 （ D） MouseUp事件和 KeyUp事件 2 在窗体上画一个通用对话框，程序运行中用 ShowOpen方法显示 “打开 “对话框时，希望在该对话框的 “文件类型 “栏中只显示扩展名为 DOC的文件，则在设计阶段应把通用对话框的 Filter属性设置为 ( )。 （ A） (*.DOC*. DOC （ B） (*.
2、DOC|(.DOC （ C） (*. DOC|*. DOC （ D） (*.DOC|*. DOC 3 以下叙述中错误的是 ( )。 （ A） Print #语句和 Write #语句都可以向文件中写入数据 （ B）用 Print #语句和 Write #语句所建立的顺序文件格式总是一样的 （ C）如果用 Print #语句把数据输出到文件，则各数据项之间没有逗号分隔，字符串也不加双引号 （ D）如果用 Write #语句把数据输出到文件， 则各数据项之间自动插入逗号，并且把字符串加上双引号 4 如果把命令按钮的 Cancel属性设置为 True，则程序运行后 ( )。 （ A）按 Esc键与单
3、击该命令按钮的作用相同 （ B）按回车键与单击该命令按钮的作用相同 （ C）按 Esc键将停止程序的运行 （ D）按回车键将中断程序的运行 5 为了使命令按钮的 Picture、 DownPicture或 DisabledPicture属性生效，必须把它的 Style属性设置为 ( )。 （ A） 0 （ B） 1 （ C） True （ D） False 6 列表 框中被选中的数据项的位置可以通过一个属性获得，这个属性是 ( )。 （ A） List （ B） ListIndex （ C） Text （ D） ListCount 7 为了使一个复选框被禁用 (灰色显示 )，应把它的 Valu
4、e属性设置为 ( )。 （ A） 0 （ B） 1 （ C） 2 （ D） False 8 为了使文本框显示滚动条，除要设置 ScrollBars外，还必须设置的属性是( )。 （ A） AutoSize （ B） Alignment （ C） Multiline （ D） MaxLength 9 在窗体上画一个通用对话框，其名称为 CommonDialog1，则下列与CommonDialog1.ShowOpen方法等效的语句是 ( )。 （ A） CommonDialog1.Action 1 （ B） CommonDialog1.Action 2 （ C） CommonDialog1.Act
5、ion 3 （ D） CommonDialog1.Action 4 10 如果改变驱动器列表框的 Drive属性，则将触发的事件是 ( )。 （ A） Change （ B） Scroll （ C） KeyDown （ D） KeyUp 11 为了调整图像框的大小以与其中的图形相适应，必须把它的 Stretch属性设置为( )。 （ A） True （ B） False （ C） 1 （ D） 2 12 在窗体上添加 “控件 “的正确的操作方式是 ( )。 （ A）先单击工具箱中的控件图标，再单击窗体上适当位置 （ B）先单击工具箱中的控件图标，再双击窗体上适当位置 （ C）直接双击工具箱中的
6、控件图标，该控件将出现在窗体上 （ D）直接将工具箱中的控件图标拖动到窗体上适当位置 13 窗体上有一个名称为 Command1的命令按钮，事 件过程如下： Private Sub Command1_Click() Dim arr_x(5， 5)As Integer For i 1 To 3 For j 2 To 4 arr_x(i， j) i * j Next j Next i Print arr_x(2， 1)； arr_x(3， 2)； arr_x(4， 3) End Sub 运行程序，并单击命令按钮，窗体上显示的内容为 ( )。 （ A） 0 6 0 （ B） 2 6 0 （ C） 0
7、 6 12 （ D） 2 6 12 14 有如下程序： Private Sub Form_Click() Dim i As Integer， n As Integer For i 1 To 20 i i 4 n n i If i10 Then Exit For Next Print n End Sub 程序运行后，单击窗体，则输出结果是 ( )。 （ A） 14 （ B） 15 （ C） 29 （ D） 30 15 窗体上有 1个名称为 Command1的命令按钮，事件过程如下： Private Sub Command1_Click() Dim num As Integer， x As Int
8、eger num Val(InputBox(“请输入一个正整数 “) Select Case num Case Is100 x x num Case Is0 Then Print Mid(num， p 1) Else Print “END“ End If End Sub 运行程序，单击窗体，根据提示输入一个数值。如果输入的不是实数，则程序输出“END“；否则 ( )。 （ A）用字符方式输出该实数 （ B）输出该实数的整 数部分 （ C）输出该实数的小数部分 （ D）去掉实数中的小数点，保留所有数码输出 18 在窗体上画一个文本框，名称为 Text1，然后编写如下程序： Private Sub
9、 Form_Load() Show 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）为原字符串的逆序字符串，且所有字母转换为大写
10、 （ D）为原字符串的逆序字符串 19 有以下通用过程： Function fun(N As Integer) s 0 For k 1 To N s s k *(k 1) Next k fun s End Function 该过程的功能是 ( )。 （ A）计算 N！ （ B）计算 1 2 3 . N （ C）计算 12233. NN （ D）计算 12 23 34 . N(N 1) 20 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a$ InputBox(“请输入一个二进制数 “) n Len(a$) For i 1 To n D
11、ec Dec * 2 (a$， i， 1) Next i Print Dec End Sub 程序功能为：单击命令按钮，将产生一个输入对话框，此时如果在对话框中输入一个二进制数，并单击 “确定 “按钮，则把该二进制数转换为等值的十进制数。这个程序不完整，应在 “ “处填入的内容是 ( )。 （ A） Left （ B） Right （ C） Val （ D） Mid 21 设有如下事件过程： Private Sub Form_Click() Sum 0 For k 1 To 3 If k10不成立， i加 1转入下次循环。 i 6时， i i 4 6 4 10， n n i 5 10 15，此
12、时， i 10， i10不成立， i加 1转入下次循环。 i 11时， i i 4 11 4 15， n n i 15 15 30，此时， i 15， i10成立，退出循环。此时 n 30。 15 【正确答案】 B 【试题解析】 按钮事件中变量 x为过程局部变量，第 1次输入 100时， Select语句执行 Case Else分支 x x*num 0*100=0。第二次输入 90时， Select语句执行Case Else分支 x x*num 0*90=0。第三次输入 60时 Select语句执行 Case Is0即说明找到了小数点，是实数 )就输入该实数的小数部分，否则输出 “END“。因
13、此选项 C正确。 18 【正确 答案】 C 【试题解析】 程序中 Mid 函数从输入字符串左边开始逐一取一个字符转换为大写，并连接到上次取出的字符的前面，因此文本框中显示的将是原输入字符串转换为大写的并倒序排列的字符串。所以 C正确。 19 【正确答案】 D 【试题解析】 由程序可知 s 1*(1+1)+2*(2+1)+3*(3+1)+4*(4+1).+N*(N+1),因此选项 D正确。 20 【正确答案】 D 【试题解析】 将二进制数转换为十进制数需要将二进制数的每一位取出来进行运算，从一个数值字符串中截取一位数字字 符要使用 Mid函数，因此在程序空缺处该填入 Mid。 21 【正确答案】
14、 B 【试题解析】 程序执行过程如下： 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。 22 【正确答案】 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)
15、 0 0 0。因此标签中显示为 0。 23 【正确答案】 B 【试题解析】 程序中将变量 arr初始化为有 4个元素的数组，使用 Lbound和Ubound函数分别获取数组下标的上下限，然后将数组中的元素值相加，用整除运算求它们的平均值。算式可写为 (12 4 8 16)/ 4 (40)/4 10。所以答案为 B。 24 【正确答案】 A 【试题解析】 程序执行的效率与数据的存储结构、数据的逻辑结构、程序的控制结构、所处理的数据量等有关。 25 【正确答案】 D 【试题解析】 队列的修改是依先进先出的原则进行的， D正确。 26 【正确答案】 C 【试题解析】 栈的修改是按后进先出的原则进行的
16、，所以顺序应与入栈顺序相反，故选 C。 27 【正确答案】 B 【试题解析】 白盒测试法主要有逻辑覆盖、基本路径测试等。逻辑覆盖测试包括语句覆盖、路径覆盖、判定覆盖、条件覆盖、判断 -条件覆盖，选择 B。其余为黑盒测试法。 28 【正确答案 】 A 【试题解析】 对象之间进行通信的构造叫做消息， A正确。多态性是指同一个操作可以是不同对象的行为， D错误。对象不一定必须有继承性， C错误。封装性是指从外面看只能看到对象的外部特征，而不知道也无须知道数据的具体结构以及实现操作， B 错误。 29 【正确答案】 C 【试题解析】 根据软件设计原理提出如下优化准则： 划分模块时，尽量做到高内聚、低耦
17、合，保持模块相对独立性，并以此原则优化初始的软件结构。 一个模块的作用范围应在其控制范围之内，且判定所在的模块应与受其影响的模块在层次上尽量靠近 。 软件结构的深度、宽度、扇入、扇出应适当。 模块的大小要适中。 C正确。 30 【正确答案】 C 【试题解析】 数据库系统的特点为高共享、低冗余、独立性高、具有完整性等，C错误。 31 【正确答案】 D 【试题解析】 数据库设计过程主要包括需求分析、概念结构设计、逻辑结构分析、数据库物理设计、数据库实施、数据库运行和维护阶段。答案为 D选项。 32 【正确答案】 A 【试题解析】 VB 中系统只能检查出语法错误，不能检查出逻辑错误。故选 A。 33
18、 【正确答案】 B 【试题解析】 VB 中变量的命名规则为： 必须以字母或汉字开头 由字母、汉字、数字或下划线组成 不能使用 VB的保留字。变量名 sum a中有减号，不合法； print是 VB保留字，不能作变量名，不合法； 5avg不能以数字开头，不合法。故选 B。 34 【正确答案】 C 【试题解析】 本题按运算符从高到低优先级计算： *(，所以应该是 396)*Sgn( 6)=39（ 6)*( 1)=(39 6=6 ，故选 C。 35 【正确答案】 B 【试题解析】 VB 标准控件中不同控件具有不同属性，有的 相同有的不同，但都具有 Name属性。故选 B。 36 【正确答案】 D 【
19、试题解析】 赋值语句的格式是：变量名表达式。赋值号左边必须是变量名，不能是表达式或常量。 D选项中赋值号左边 m n 是表达式，不是变量名，故 D选项错误。 37 【正确答案】 B 【试题解析】 在 VB中可被对象识别的动作称为事件，事件是由用户或系统触发的，触发后就会执行相应的事件过程代码。故选 B。 38 【正确答案】 D 【试题解析】 顺序文件的特点是：文件中各记录写入、存放和读取的顺序是一致的，即最先写入的记 录放在文件的最前面，后面写入的依次往后面存放，最后写入的记录存放在文件的最后。读取时也是，先读取完前面的记录，才能读取后面的记录。所以文件的组织与数据写入的顺序有关，而且读取文件
20、时效率低，不灵活。故 A选项错误， D选项正确。根据顺序文件的特点，文件实现记录的增减不容易。故 B选项错误。顺序文件的每条记录中各数据项个数不固定，所以记录的长度也不固定。故 C选项错误。 39 【正确答案】 C 【试题解析】 可以在属性窗口中给 MousePointer属性设置属性值。故 C选项错误。 40 【正确答案】 A 【试题解析】 在 “编辑 “菜单中没有 “菜单编辑器 “命令。故 A选项错误。 二、基本操作题 41 【正确答案】 (1)【操作步骤】步骤 1：按题目要求添加控件，并设置其属性。程序中用到的控件及属性见表 3.131。步骤 2：调试并运行程序，关闭程序后按题目要求存盘
21、。 (2)【操作步骤】步骤 1：程序中用到的控件及属性见表 3.132。 步骤 2：编写程序代码。参考答案 Private Sub List1_Click() HS.Width = List1.TextEnd Sub 步骤3：调试并运行程序，关闭程序后按题目要 求存盘。 三、简单应用题 42 【正确答案】 (1)【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Private Sub Form_load() HScroll1.Min = Shape2.Left HScroll1.Max = Shape2.Width + Shape2.Left - Sha
22、pe1. ? VScroll1.Min = Shape2.Top VScroll1.Max = Shape2.Height + ? - Shape1.Height HScroll1.Value = 1000 VScroll1.Value = 1000 End Sub Private Sub HScroll1_Change() ？ = HScroll1.Value End Sub Private Sub VScroll1_Change() Shape1.Top = ? End Sub 程序结束 参考答案 第 1个？处填入： Width 第 2个？处填入： Shape2.Top 第 3个？处填入：
23、 Shape1.Left 第 4个？处填入： VScroll1.Value 步骤 3： 调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Dim a, t, d Private Sub Command1_Click() Timer1.? = True d = Image1.Top End Sub Private Sub Command2_Click() Open App.Path & “out4.txt“ For Output As #1 Print #1, Label1, Label2 Close #1
24、 End Sub Private Sub Form_Load() a = 1 t = 0 End Sub Private Sub Timer1_Timer() Image1.Top = Image1.Top - a * 50 If Image1.Top + Image1.Height = Image2.Top + Image2.Height - 200 Then ？ = False d = ? - Image1.Top Label1 = d Label2 = t * Timer1.Interval / 1000 End If a = a + 0.1 t = ? End Sub 程序结束 参考答
25、案 第 1个？处填入： Enabled 第 2个？处填入： Timer1.Enabled 第 3个？处填入： d 第 4个？处填入： t + 1 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 四、综合应用题 43 【正确答案】 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Private Sub Command1_Click() Open App.Path & “in5.txt“ For Input As #1 Input #1, a% Text1.Text = a% Close #1 End Sub Private Sub Command2
26、_Click() 需要考生编写的内容 End Sub Function isprime(a As Integer) 需要考生编写的内容 End Function Private Sub Command3_Click() Open App.Path & “out5.txt“ For Output As #1 Print #1, Text2.Text Close #1 End Sub 程序结束 参考答案 Private Sub Command2_Click() a% = CInt(Text1.Text) Do a% = a% + 1 Loop Until isprime(a%) Text2.Text = a% End Sub Function isprime(a As Integer) Dim flag As Boolean k% = 2 flag = True While k% = Int(a / 2) And flag If a / k% = Int(a / k%) Then flag = False End If k% = k% + 1 Wend isprime = flag End Function 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。
