1、国家二级（ VB）机试模拟试卷 80及答案与解析 一、选择题 1 设窗体上有一个名称为 List1的列表框，并有若干列表项。下面语句中不能在所有列表项之后追加一个列表项的是 （ A） List1.List(List1.ListCount) = “VB程序 “ （ B） List1.List(List1.ListCount - 1) = “VB程序 “ （ C） List1.AddItem “VB程序 “ （ D） List1.AddItem “VB程序 “, List1.ListCount 2 设窗体上有一个名称为 Timer1的计时器控件，其 Interval属性被设置为 500，Enabl
2、ed属性被设置为 True；还有一个名称为 Text1的文本框和下面的事件过程： Private Sub Timer1_Timer() Static x As Long x = x + 1 Text1 = x End Sub 程序运行一段时间后，文本框中显示的是 100，则表示 （ A）程序已经运行了 100秒 （ B）程序已经运行了 100毫秒 （ C）程序已经运行了 50秒 （ D） 文本框到窗体左边框的距离是 100 3 有下面事件过程： Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single
3、, Y As Single) If Button = 2 Then Form1.PSet(X, Y) PSet方法可以在 X， Y处画一个点 End If End Sub 程序运行后，产生的效果是 （ A）在窗体上每单击鼠标左键一次，就在鼠标位置处画一个点 （ B）按着鼠标左键，移动鼠标，可在窗体上画出鼠标的运动轨迹 （ C）按着鼠标右键，移动鼠标，可在窗体上画出鼠标的运动轨迹 （ D）不按任何鼠标键，移动鼠标，可在窗体上画出鼠标的运动轨迹 4 下面关于控件数组的叙述中正确的是 （ A）控件数组中所有控件的名称相同，但其 Index属性值各不相同 （ B）控件数组中所有控件的名称相同，但其 V
4、alue属性值各不相同 （ C）控件数组中每个元素都是独立的控件， 因此都有各自的事件过程 （ D）上述都是错误的 5 下面关于菜单的叙述中正确的是 （ A）为了使得选中一个菜单项就可以执行某种操作，要为它的 Click事件过程编写执行该操作的代码 （ B）同一级菜单中的菜单项不能同名，但不同级菜单中的菜单项可以同名 （ C）只能使用鼠标右键把弹出式菜单弹出来 （ D）弹出式菜单中的菜单项不能再有自己的子菜单 6 有下面程序代码： Private Sub Command1_Click() For k = 5 To 1 Step -1 x = k + x * 10 Next k Print x
5、End Sub 程序运行后，单击命令按钮 Command1，输出结果是 （ A） 12345 （ B） 54321 （ C） 15 （ D） 150 7 有下面程序代码： Private Sub Command1_Click() a = 3 s = 0 For k = 1 To 5 s = s + a Mod k a = a + k Next k Print s End Sub 程序运行后，单击命令按钮 Command1，输出结果是 （ A） 15 （ B） 13 （ C） 4 （ D） 1 8 有下面程序代码： Private Sub Command1_Click() Dim sign As
6、 Integer sign = 1 a = 1 b = 2 For k = 1 To 5 c = a + sign * b a = b b = c Print c; sign = -sign Next k End Sub 程序运行后，单击命令按钮 Command1，输出结果是 （ A） 3 -1 2 -3 -1 （ B） 3 5 8 13 21 （ C） -1 1 -2 -1 -1 （ D） 3 4 5 6 7 9 有下面程序代码： Private Sub Command1_Click() Dim a As String a = “COMPUTER“ n = search(a, “T“) Pr
7、int IIf(n = 0, “未找到 “, n) End Sub Private Function search(str As String, ch As String) As Integer For k = 1 To Len(str) c = Mid(str, k, 1) If c = ch Then search = k Exit Function End If Next k search = 0 End Function 程序运行后，单击命令按钮 Command1，输出结果是 （ A） 0 （ B） 8 （ C） 6 （ D）未找到 10 有下面程序代码： Private Sub Co
8、mmand1_Click() a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) n = UBound(a) For k = 0 To UBound(a) / 2 Print a(k) * a(n); n = n - 1 Next k End Sub 程序运行后，单击命令按钮 Command1，输出结果是 （ A） 2 6 12 20 30 （ B） 2 12 20 56 90 （ C） 30 28 24 18 10 （ D） 10 18 24 28 30 11 有下面程序代码： Private Sub Command1_Click() Dim x As Inte
9、ger, s As Integer x = 1 For k = 1 To 3 x = x + 1 proc x s = s + x Next k Print s End Sub Private Sub proc(ByVal a As Integer) Static x As Integer x = x + 1 a = a + x End Sub 程序运行后，单击命令按钮 Command1，输出结果是 （ A） 6 （ B） 9 （ C） 15 （ D） 19 12 窗体上有 1个 Timer1计时器， 1个 Shape1 形状控件，还有下面程序代码： Dim flag As Boolean P
10、rivate Sub Form_Load() flag = True Timer1.Enabled = True Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() If flag Then Shape1.Height = Shape1.Height * 2 Shape1.Width = Shape1.Width * 2 Else Shape1.Height = Shape1.Height * 0.5 Shape1.Width = Shape1.Width * 0.5 End If flag = Not flag End Sub
11、执行程序所产生的效果是 （ A） Shape1形状的尺寸在缩小到原来一半和恢复原状这 2种状态间切换，每秒切换一次 （ B） Shape1形状的尺寸在扩大到原来 2倍和恢复原状这 2种状态间切换，每秒切换一次 （ C） Shape1形状的尺寸在缩小到原来一半和扩大到原来 2倍这 2种状态间切换，每秒切换一次 （ D） Shape1形状的尺寸会不断扩大 13 有下面程序代码： Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer, x, b x = InputBox(“请输入一个多位整数 “) For k = 1 To L
12、en(x) b = Mid(x, k, 1) a(Val(b) + 1) = a(Val(b) + 1) + 1 Next k For k = 1 To 10 Print a(k); Next k End Sub 程序运行时，单击命令按钮 Command1，输入 2355270224，则输出是 （ A） 1 0 4 1 1 2 0 1 0 0 （ B） 0 4 1 1 2 0 1 0 0 0 （ C） 2 3 5 5 2 7 0 2 2 4 （ D） 4 2 2 0 7 2 5 5 3 2 14 设窗体上有 Text1、 Text2两个文本框，并编写了下面的程序代码： Private Sub
13、Text1_KeyPress(KeyAscii As Integer) If “A“ “？ “ Then n = n + 1 If ? = 3 Then MsgBox “三次密码输入错误，你无权进入本系统！ “ End Else MsgBox “第 “ + Str(n) + “次密码输入错误，请重试！ “ Text1 = “ Text1.SetFocus End If Else Text1.Enabled = False Text1 = “ ？ .Hide ？ .Show End If End If End Sub 窗体 2的代码 Private Sub Command1_Click() Fo
14、rm2.Hide Form1.Show End Sub 程序结束 参考答案 第 1个？处填入： True 第 2个？处填入： abc 第 3个？处填入： n 第 4个？处填入： Form1 第 5个？处填入： Form2 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Option Base 1 Dim s As String Private Sub Command1_Click() Open App.Path & “in4.dat“ For Input As #1 s = Input(LOF
15、(1), #1) Close #1 Text1.Text = s End Sub Private Sub Command2_Click() Dim m As Integer If Len(s) = ？ Then MsgBox “请先使用 “读数据 “功能！ “ Else If Text1.？ = 0 Then MsgBox “请先选中文本！ “ Else t = “ For i = 1 To Text1.SelLength c = Mid(Text1.SelText, i, 1) If c “ “ Then t = t + c Else If ? = “the“ Then m = m + 1
16、End If t = “ End If Next i ? = Str(m) End If End If End Sub 程序结束 参考答案 第 1个？处填入： 0 第 2个？处填入： SelLength 第 3个？处填入： Lcase$(t) 第 4个？处填入： Text2 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 四、综合应用题 43 【正确答案】 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Option Base 1 Dim a(5, 8) As Single, athlete(5) As String * 8 Private Su
17、b Command1_Click() Dim ch As String Text1 = “ Open App.Path & “in5.dat“ For Input As #1 For k = 1 To 5 Input #1, ch athlete(k) = ch Text1 = Text1 & ch & “ “ For j = 1 To 8 Input #1, ch a(k, j) = Val(ch) Text1 = Text1 & ch & “ “ Next j Text1 = Text1 & Chr(13) & Chr(10) Next k Close #1 End Sub Private
18、 Function getmark(n As Integer) As Single s = ? maxnum = s minnum = s For k =2 To ? s = s + a(n, k) If maxnum a(n, k) Then minnum = a(n, k) End If Next k s = (s - maxnum - minnum) / 5 getmark= s * 3 * ? End Function Private Sub Command2_Click() 要求考生编写的程序 End Sub Private Sub Command3_Click() Open App
19、.Path & “out5.dat“ For Output As #1 Print #1, Text2, Text3 Close #1 End Sub 程序结束 参考答案 第 1个？处填入： a(n, 1) 第 2个？处填入： 7 第 3个？处填入： a(n, 8) Private Sub Command2_Click() Dim n As Integer For n = 1 To 5 If m getmark(n) Then m = getmark(n) Next Text3.Text = m For n = 1 To 5 If m = getmark(n) Then Text2.Text = athlete(n) Next n End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。
