2007年9月计算机二级VB模拟试题(8)及答案

(22) 用于将屏幕上的对象分组的控件是
A) 列表框      
B) 组合框
C) 标签       
D) 框架
正确答案:  D

(23) 以下说法不正确的是
A) 使用ReDim语句可以改变数组的维数
B) 使用ReDim语句可以改变数组的类型
C) 使用ReDim语句可以改变数组的每一维的大小
D) 使用ReDim语句可以改变对数组中的所有元素进行初始化
正确答案:  B

(24) 有如下事件过程：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   If (Button And 3) =3 Then
      Print "OK"
   End If
End Sub
程序运行后，为了在窗体上输出"OK"，应当按下的鼠标键是
A) 左键       
B) 右键
C) 同时按下左键和右键   
D) 按什么都不显示
正确答案:  D

(25) 在窗体上画一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮，要求单击命令按钮时，打开一个保存文件的对话框，该窗口的标题为"Save"，缺省文件名称为"SaveFile"，在"文件类型"栏中显示*txt，则能够满足上述要求的程序是
A) Private Sub Command1_Click()
     CommonDialog1.FileName="SaveFile"
     CommonDialog1.Filter="AllFiles|*.*|(*.txt) |*.txt|(*.doC) |*.doc"
     CommonDialog1.FilterIndex=2
     CommonDialog1.DialogTitle="Save"
     CommonDialog1.Action=2
End Sub
B) Private Sub Command1_Click()
      CommonDialog1.FileName="SaveFile"
      CommonDialog1.Filter="AllFiles|*.*|(*.txt) |*.txt|(*.doC) |*.doc"
      CommonDialog1.FilterIndex=1
      CommonDialog1.DialogTitle="Save"
      CommonDialog1.Action=2
End Sub
C) Private Sub Command1_Click()
      CommonDialog1.FileName="Save"
      CommonDialog1.Filter="AllFiles|*.*|(*.txt) |*.txt|(*.doC) |*.doc"
      CommonDialog1.FilterIndex=2
      CommonDialog1.DialogTitle="SaveFile"
      CommonDialog1.Action=2
End Sub
D) Private Sub Command1_Click()
      CommonDialog1.FileName="SaveFile"
      CommonDialog1.Filter="AllFiles|*.*|(*.txt) |*.txt|(*.doC) |*.doc"
      CommonDialog1.FilterIndex=1
      CommonDialog1.DialogTitle="Save"
      CommonDialog1.Action=1
End Sub
正确答案:  A

(26) 阅读下面的程序段：
For a=1 To 2
   For b=1 To a
      For c=b To 2
         I=I + 1
      Next
    Next
Next
Print I
执行上面的三重循环后，I的值为
A) 4        
B) 5
C) 6        
D) 9
正确答案:  B

(27) 设有下面的循环：
i=0
While i <=1
   i=i + 3
   Print i
Wend
则运行后的输出结果是
A) 1        
B) 2
C) 3        
D) 4
正确答案:  C

(28) 设有下面的循环：
i=1
Do
   i=i + 3
   Print i
Loop Until I>    
程序运行后要执行3次循环体，则条件中I的最小值为
A) 6        
B) 7
C) 8        
D) 9
正确答案:  B

(29) 执行以下语句过程，在窗体上显示的内容是
Option Base 0
Private Sub Command3_Click()
Dim d
d=Array("a", "b", "c", "d")
Print d(1) ; d(3)
End Sub
A) ab       
B) bd
C) ac       
D) 出错
正确答案:  B

(30) 下列程序段，在运行时最早输出的内容是
a=2
c=1
AAA:
   c=c + a
   If c < 10 Then
     Print c
     GoTo AAA
Else
     Print "10以内的奇数显示完毕。"
End If
A) 3        
B) 7
C) 9        
D) 6
正确答案:  A