2007年9月计算机等级二级VB考前密卷一及答案

(13) 下列方法中不能退出Visual Basic的是
  A) 按Alt+Q组合键
  B) 按下Alt+F组合键，然后按Esc键
  C) 打开"文件"菜单，执行"退出"命令
  D) 按F10键，然后按F键，再按X键
  答案：D
(14) 任何控件都有的属性是
  A) BackColor     
  B) Caption
  C) Name      
  D) BorderStyle
  答案：C
(15) 可以实现从键盘输入一个作为双精度变量a的值的语句是
  A) a=InputBox()
  B) a=InputBox("请输入一个值")
  C) a=Val(InputBox("请输入一个值") )
  D) a=Val(InputBox() )
  答案：C
(16) 下列符号常量的声明中，不合法的是
  A) Const a As Single=1.1  
  B) Const a="OK"
  C) Const a As Double=Sin(1)  
  D) Const a As Integer="12"
  答案：C
(17) 在Visual Basic中，要强制用户对所用的变量进行显式声明，这可以在哪里设置?
  A) "属性"对话框   
  B) "程序代码"窗口
  C) "选项"对话框   
  D) 对象浏览器
  答案：C
(18) 下列语句中，获得列表框List1中项目个数的语句是
  A) x=List1.ListCount   
  B) x=ListCount
  C) x=List1.ListIndex   
  D) x=ListIndex
  答案：A
(19) 要获得当前驱动器应使用驱动器列表框的属性是
  A) Path      
  B) Drive
  C) Dir      
  D) Pattern
  答案：B
(20) 如果将文本框的MaxLength属性设置为0，则文本框中的字符不能超过
  A) 8K      
  B) 16K
  C) 32K      
  D) 64K
  答案： c

(21) 当在滚动条内拖动滚动块时触发
  A) KeyUp事件    
  B) KeyPress事件
  C) Scroll事件     
  D) Change事件
  答案：C
(22) 设有声明语句
Dim b(-1 To 10, 2 To 9, 20) As Integer
则数组b中全部元素的个数
  A) 2310      
  B) 2016
  C) 1500      
  D) 1658
  答案：B
(23) 设在窗体上有个文本框，然后编写如下的事件过程：
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
   Const Alt=4
   Const Key_F2=&H71
   altdown%=(Shift And Alt) > 0
   f2down%=(KeyCode=Key_F2)
   If altdown% And f2down% Then
     Text1.Text="BBBBB"
   End If
End Sub
上述程序运行后，如果按 【Shift+F2】 ，则在文本框中显示得是
  A) Alt+F2     
  B) BBBBB
  C) 随机出几个数    
  D) 文本框平均内容无变化
  答案：D
(24) 设已经在"菜单编辑器"中设计了窗体的快捷菜单，其顶级菜单为Bs，取消其"可见"属性，运行时，在以下事件过程中，可以使快捷菜单响应鼠标右键菜单的是
  A) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
         X As Single, Y As Single)
     If Button=2 Then PopupMenu Bs, 2
   End Sub
  B) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
         X As Single, Y As Single)
     PopupMenu Bs
   End Sub
  C) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
         X As Single, Y As Single)
     PopupMenu Bs,0
   End Sub
  D) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
         X As Single, Y As Single)
     If (Button=vbLeftButton) Or (Button=vbRightButton) Then PopupMenu Bs
   End Sub
  答案：A