计算机二级(VB)9
(总分1780, 做题时间90分钟)
选择题(每小题2分，共70分) 下列各题四个选项中，有一个是正确的，请选择正确答案。
1. 
下列程序的运行结果为(    )。
  Dim a(-1 To 6)
  For i=LBound(a，1)To UBound(a，1)
    a(i) = i
  Next i
  Print a (LBound(a，1))；a(UBound(a，1))
A 选择查询
B 删除查询
C 更新查询
D 追加查询
2. 
可以在常量的后面加上类型说明符以显示常量的类型，可以表示整型常量的是（  ）。
A  ％
B  #
C  !
D  $欧阳娜娜个人资料简介
3. 
有如下事件过程：
  Private Sub Command1_Click( )
    Dim m AS Integer，n AS Integer
    m=2：n=1
    Print "m="；m；"n="；n
    Call TOD(m，n)
    Print "m="；m；"n="；n
  End Sub
  Sub TOD(x，y)
    x=x^2
    y=y^3
  End Sub
  程序运行后，输出的结果为(    )。
A  Swing胜过AWT的主要优势在于MVC体系结构的普遍使用
B  MVC用户界面存在3个通讯对象：模型、视图和控件二级VB
C  MVC其思想是把数据的内容本身和显示方式分离开来
D  以上说法都正确
4. 
设菜单中有一个菜单项为“Open”。若要为该菜单命令设置访问键，即按下Alt及字母O 时，能够执行“Open”命令，则在菜单编辑器中设置“Open”命令的方式是（  ）。 
4. 
下列有关子菜单的说法中，错误的是（  ）。
A 除了Click事件之外，菜单项不可以响应其他事件
B 菜单项的索引号必须从1开始
C 每个菜单项都是一个控件，与其他控件一样也有其属性和事件
D 菜单的索引号可以不连续
5. 
有如下程序：
  Private Sub Commandl_Click()
    Dim a As Single
    Dim b As Single
    a=2：b=4
    Call CS(a，b)
  End Sub
  Sub CS(x As Single，y As Single)
    t=X
    x=t\y
    y=t Mod y
  End Sub
  程序运行后，单击命令按钮，a和b的值分别为(    )。
A Dim pict[3,4]As Integer
B Dim pict(3，4)As Integer
C Dim pict[3．4]As Integer
D Dim pict(3：4)As Integer．
6. 
下面程序段执行结果为（  ）。
  x=Iht(Rnd()+4)
  Select Case x
  　Case 5
    　Print"excellent"
  　Case 4
    　Print"good"
  　Case 3
    　Print"paSS"
  　Case Else
    　Print "fail"
  End Select
高修结婚
陈紫函演的电视剧
A excellent
B good
C pass
D fail
7. 
在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：
  Private Sub Command1_Click()
  　n = Val(Text1.Text)
  　If n\2 = n/2 Then
    f = f1(n)
  　Else
    f = f2(n)
  　End If
  　Print f; n
  End Sub
  Public Function f1(ByRef x)
  　x=x*x
  　f1=x+x
  End Function
  Public Function f2(ByVal x)
  　x=x*x
  　f2=x+x+x
  End Function
  程序运行后，在文本框中输入6，然后单击命令按钮，窗体上显示的是（  ）。
7. 
表达式5 Mod 3+3\5*2的值是（  ）。
7. 
关于货币型数据的说明，正确的是（  ）。
A 货币型数据有时可以表示成整型数据
B 货币型数据与浮点型数据完全一样
C 货币型数据是由数字和小数点组成的字符串
D 货币型数据是小数点位置固定的实型数
8. 
有如下事件过程：
  Sub ABD(x％，y％，z％)
    z％=X％ +y％
  End Sub
  Private Sub Command1 _ Click( )
    a％=30：b％=40
    Call ABD(a％，b％，c％)
    Print c％
  End Sub
  运行上面的程序，单击命令按钮，输出结果为(    )。
A 70
B 70.0
C  7，0E+1
D  显示错误信息
9. 
在默认情况下，InputBox函数返回值的类型为（  ）。
A 逻辑类型
B 字符串型
C 数值型
D 日期型
10. 
在窗体上画一个命令按钮，然后编写如下程序
  Private Sub Command4 Click()
    Dim a As Integer，b As Integer
    a=1
    b=2
    Print N(a，b)
  End Sub
  Function N(x As Integer，y As Integer)As Integer
    N=IIf(x＞y，x，y)
  End Function
  程序运行后，单击命令按钮，输出结果为（  ）。
A l
B 2
C 5李金铭张涛
D 8
11. 
下面程序段执行结果为（  ）。
  x=Int(Rnd()+3)
  Select Case x
    Case 5
      Print "excellent"
    Case 4
      Print "good"
立夏诗词