1.下列程序运行后,单击命令按钮Command1,则在窗体上显示的内容是( )
Option Base 0
Private Sub Command1_Click()
Dim city As Variant
city = Array("北京", "上海", "天津", "重庆")
Print city(1)
End Sub
(A)天津 (B)重庆 (C)北京 (D)上海
2.已知程序中有如下事件过程，则程序运行时( )
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
CurrentX = X
CurrentY = Y
Print "*"
End If
End Sub
（A） 在窗体上移动鼠标光标，将沿光标移动轨迹画出由“*”组成的曲线
（B） 在窗体上按鼠标左键并移动鼠标光标，将沿光标移动轨迹画出由“*”组成的曲线
（C） 在窗体上按鼠标右键并移动鼠标光标，将沿光标移动轨迹画出由“*”组成的曲线
（D） 在窗体上按鼠标左键并立即释放，能在光标位置画出一个“*”
3.下列程序段执行后的结果为( )
Private Sub Command1_Click（）
Dim a As Integer, b As Integer, c As Integer
a = 5
b = 7
c = a + b
Me.Label1.Caption = "运算结果=" & c
End Sub
（A） 标签Label1中显示：运算结果=5
（B） 标签Label1中显示：运算结果=7
（C） 标签Label1中显示：运算结果=12
（D） 标签Label1中显示：运算结果=35
4.函数Int( 6 * RND )+1的值是在哪个范围内的整数？( )
(A) [0,6] (B) [0,7] (C) [1,6] (D) [1,7]
5．设窗体上有一个文本框，Text1,要求只能显示信息，不能输入，则应用设置Text1的属性为( )
（A) Text1.MaxLength = 0
（B) Text1.Enabled = False
（C) Text1.Visible = False
（D) Text1.Width = 0
6．语句Dim x As Integer作用是:将x定义为( )变量。
（A）单精度型 （B）整型 （C） 布尔型 （D）字符型
7．若要强制变量必须先定义再使用，应该使用的说明语句是( )
（A）Public (B) Option Explicit (C) Explicit (D) Option Base