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

(21) 使用语句Dim A(2) As Integer 声明数组A之后，以下说法正确的是
A) A数组中的所有元素都为0
B) A数组中的所有元素值不确定
C) A数组中所有元素值都为Empty
D) 执行Erase A后，A数组中所有元素值都不为0
正确答案:  A

(22) 有如下事件过程，当同时按下转换键Shift和功能键F5时其最后输出的信息是
Const ShiftKey=1
Const CtrlKey=2
Const Key_F5=&H74
Const Key_F6=&H75
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode=Key_F5 And Shift=ShiftKey Then
       Print "Press Shift+F5"
   ElseIf KeyCode=Key_F6 And Shift=CtrlKey Then
       Print "Press Ctrl+F6"
   End If
End Sub
A) 无任何信息     
B) Press Shift+F5
C) Press Ctrl+F6     
D) 程序出错
正确答案:  B

(23) 执行下列程序后，鼠标单击窗体，输出结果为  。
Private Sub Form_Click()
   Print "Click";
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift _
         As Integer, X As Single, Y As Single)
     Print "Donw"
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift _
         As Integer, X As Single, Y As Single)
     Print " Up"
End Sub
A) DownUpClick     
B) ClickDownUp
C) DownClickUp     
D) UpDownClick
正确答案:  A

(24) 以下事件过程可以将打开的对话框的标题改为"新时代"的是
A) Private Sub Command2_Click()
       CommonDialog1.DialogTitle="新时代"
       CommonDialog1.ShowOpen
   End Sub 
B) Private Sub Command2_Click()
       CommonDialog1.DialogTitle="新时代"
       CommonDialog1.ShowFont
  End Sub
C) Private Sub Command2_Click()
       CommonDialog1.DialogTitle="新时代"
       CommonDialog1.Show
   End Sub
D) Private Sub Command2_Click()
       CommonDialog1.DialogTitle="新时代"
       CommonDialog1.ShowColor
  End Sub
正确答案:  A

(25) 如果要设计一个多窗体程序时，要设计一个封面窗体(名称(Name) 为FormCover，标题(Caption 为"多媒体演示") ，其内部的各控件及其属性见下表。
控件 名称(Name) 标题(Caption) 
图片框 Pic1  
命令按钮1 Command1 "演示" 
命令按钮2 Command2 "结束" 
则设计出的窗体可能是
A)     B) 
C)     D) 
正确答案:  A

(26) 下列语句中，不能实现循环100次的是
A) N=0
  Do
     N=N+1
  Loop Until N>=100
B) N=0
  Do
     N=N+1
  Loop While n<100
C) N=0
  N=N+1
  Do
  Loop Until N<100
D) N=0
  Do While n<100
     N=N+1
  Loop
正确答案:  C

(27) 单击一次命令按钮后，下列程序的执行结果为
Private Sub Command1_Click()
   Dim m As Integer, I As Integer, x(10) As Integer
   For I=0 To 4: x(I) =I + 1: Next I
   For I=1 To 2: Call Prioc(x) : Next I
   For I=0 To 3: Print x(I) ;: Next I
End Sub
Private Sub Prioc(a() As Integer)
   Static I As Integer
   Do
      a(I) =a(I) + a(I + 1)
      I=I + 1
      Loop While I < 2
End Sub
A) 3 4 7 5      
B) 3 5 7 4
C) 1 2 3 4      
D) 1 2 3 5
正确答案:  B

(28) 下面程序段的运行结果是
a=1
b=1
Do
    a=a + 1
    b=b + 1
Loop Until b > 5
Print "k="; a; Spc(4) ; "b="; b + a
A) k＝7  b＝14     
B) k＝6  b＝6
C) k＝4  b＝8     
D) k＝6  b＝12
正确答案:  D