1、国家二级（ VB）机试模拟试卷 33及答案与解析 一、选择题 1 要计算 x的平方根并放入变量 y，正确的语句是 ( )。 （ A） y Exp(x) （ B） y Sgn(x) （ C） y Int(x) （ D） y Sqr(x) 2 Print Format(1234.56， “#.#“)语句的输出结果是 ( )。 （ A） 123.4 （ B） 1234.6 （ C） 1234.5 （ D） 1234.56 3 Print Right(“VB Programming“， 2)语句的输出结果是 ( )。 （ A） VB （ B） Programming （ C） ng （ D） 2 4
2、表达式 12 / 24的值是 ( )。 （ A） 1.5 （ B） 2 （ C） 4 （ D） 1 5 下列数组定义中错误的是 ( )。 （ A） Dim a( 5 To 3) （ B） Dim a(3 To 5) （ C） Dim a( 3 To 5) （ D） Dim a( 3 To 3) 6 在某个事件过程中定义的变量是 ( )。 （ A）局部变量 （ B）窗体级变量 （ C）全局变量 （ D）模块变量 7 以下过程定义 中正确的过程首行是 ( )。 （ A） Private Sub Proc(Optional a as Integer， b as Integer) （ B） Priva
3、te Sub Proc(a as Integer)as Integer （ C） Private Sub Proc(a()As Integer) （ D） Private Sub Proc(ByVal a()As Integer) 8 如果一个菜单项的 Enabled属性被设置为 False，则程序运行时，该菜单项( )。 （ A）不显示 （ B）显 示但无效 （ C）有效可用 （ D）不显示但有效可用 9 顺序文件在一次打开期间 ( )。 （ A）只能读，不能写 （ B）只能写，不能读 （ C）既可读，又可写 （ D）或者只读，或者只写 10 要使图像框 (Image)中的图像能随着图像框的
4、大小伸缩，应该设置的属性及值是( )。 （ A） AutoSize值为 True （ B） AutoRedraw值为 True （ C） Stretch值为 True （ D） BorderStyle值为 0 11 如果在框架中画了 2个复选框，且框架的 Enabled属性 被设置为 False,2个复选框的 Enabled属性被设置为 True，则下面叙述中正确的是 ( )。 （ A） 2个复选框可用 （ B） 2个复选框不可用 （ C） 2个复选框不显示 （ D）上述都不对 12 设窗体上有 2个直线控件 Line1和 Line2，若使两条直线相连接，需满足的条件是 ( )。 （ A） L
5、ine1.X1 Line2.X2 且 Line1.Y1 Line2.Y2 （ B） Line1.X1 Line2.Y1 且 Line1.Y1 Line2.X1 （ C） Line1.X2 Line2.X1 且 Line1.Y1 Line2.Y2 （ D） Line1.X2 Line2.X1 且 Line1.Y2 Line2.Y2 13 设在窗体上有一个名称为 Check1的复选框数组，并有以下事件过程： Private Sub Check1_Click(Index As Integer) End Sub 则下面叙述中错误的是 ( )。 （ A）单击数组中任何复选框都会调用此事件过程 （ B）参
6、数 Index的值等于单击数组中某个复选框的 Index属性的值 （ C）上面的过程是数组中第 1个复选框的事件过程 （ D）从过程的首部 (即第 1行 )无法确定数组中复选框的个数 14 下面列表框属性中，是数组的是 ( )。 （ A） ListCount （ B） Selected （ C） ListIndex （ D） MultiSelect 15 如果要在窗体上使用 2组单选按钮，每组都可以有一个被选中，则应该做的是( )。 （ A）把 1组单选按钮画在窗体的左边，另 1组画在右边 （ B）先画 2组单选按钮，再画 2个框架控件把 2组单选按钮分别框起来 （ C）先画 2个框架控件，再
7、把 2组单选按钮分别画在不同的框架中 （ D）因为 1个窗体中只有 1个单选按钮可以被选中，所以需要使用 2个窗体 16 窗体上有一个 Text1文本框，并编写了下面事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) KeyAscii KeyAscii 3 End Sub 程序运行时，在文本框中输入字符 “A“，则在文本框中实际显示的是 ( )。 （ A） A （ B） B （ C） C （ D） D 17 窗体上有一个名称为 Text1的文本框，一个名称为 Command1的命令按钮。以下程序的功能是从顺序文 件中读取数据： Priva
8、te Sub Command1_Click() Dim s1 As String， s2 As String Open “c： d4.dat“ For Append As #3 Line Input #3， s1 Line Input #3， s2 Text1.Text s1 s2 Close End Sub 该程序运行时有错误，应该进行的修改是 ( )。 （ A）将 Open语句中的 For Append改为 For Input （ B）将 Line Input改为 Line （ C）将两条 Line Input语句合并为 Line Input #3， s1， s2 （ D）将 Close语
9、句改为 Close #3 18 设有如下事件过程： Private Sub Command1_Click() For i 1 To 5 j i Do Print “*“ j j 1 Loop Until j 0 Next i End Sub 运行程序，输出 “*“的个数是 ( )。 （ A） 5 （ B） 15 （ C） 20 （ D） 25 19 设有如下事件过程： Private Sub Command1_Click() Dim a a Array(3， 5， 6， 3， 2， 6， 5， 3， 5， 4， 3， 9， 4， 5， 6， 3， 5) x 0 n UBound(a) For
10、i 0 To n m 0 For j 0 To n If a(i) a(j)Then m m 1 End If Next j If mx Then x m： b a(i) Next i Print b End Sub 运行程序，输出是 ( )。 （ A） 2 （ B） 3 （ C） 5 （ D） 9 20 设窗体上有 2个文本框 Text1和 Text2，并有下面的事件过程： Dim n Private Sub Text1_KeyPress(KeyAscii As Integer) If “A“ y x x y Loop fun x End Function 程序运行时的输出结果是 ( )。
11、（ A） 4 0 1 0 3 0 0 4 0 （ B） 0 3 3 5 1 3 5 1 2 （ C） 9 5 3 5 7 2 4 7 2 （ D） 9 3 3 5 7 3 5 7 2 22 设有下面的语句： Print IIf(x0， 1， IIf(x0 Then x 1 ElseIf x0 Then Print 1 ElseIf x0 Print 1 Case Is0 Then If x0 Then Print 1 ElseIf x0 Then ch$ List1.List(n) List1.List(n) List1.List(n 1) List1.List(n 1) ch End If
12、End Sub 程序运行时，选中 1个列表项，然后单击 Command1按钮，则产生的结果是( )。 （ A）若选中的不是最前面的列表项，则选中的列表项与它前一个列表项互换位置 （ B）选中的列表项与它前面的列表项互换位置 （ C）若选中的不是最后面的列表项，则选中的列表项与它后一个列表项互换位置 （ D）选中的列表项与它后面的列表项互换位置 26 设有如下函数： Function DelSpace(ch As String)As Integer Dim n%， st$， c$ st “ n 0 For k 1 To Len(ch) c Mid(ch， k， 1) If c“ “ Then st st stud(j) Name; stud(j) Average Next j End Sub 模块的代码 Type StudType Num As String * 6 学号 Name As String * 8 姓名 Average As Single 平均分 End Type 程序结束 参考 答案 第 1个？处填入： n - 1 第 2个？处填入： stud(n) Num 第 3个？处填入： j 第 4个？处填入： Average 第 5个？处填入： stud(j) 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。
