1． 在窗体上画一个名称为Text1的文本框，要求文本框只能接收小写字母的输入。以下能实现该操作的事件过程是（ 【29】 ）

　（A）Private Sub Text1_KeyPress(KeyAscii As Integer)

          If KeyAscii < 97 Or KeyAscii > 122 Then

            MsgBox “请重新输入小写字母”

            KeyAscii = 0

          End If

       End Sub

　（B）Private Sub Text1_MouseUp(Button As Integer,Shift As Integer, _

X as Integer,Y as Integer)

          If KeyCode < 97 Or KeyCode > 122 Then

            MsgBox “请重新输入小写字母”

            KeyCode = 0

          End If

       End Sub

　（C）Private Sub Text1_MouseUp(Button As Integer,Shift As Integer, _

X as Integer,Y as Integer)

          If Asc(Text1.Text) < 97 Or Asc(Text1.Text) > 122 Then

            MsgBox “请重新输入小写字母”

          End If

       End Sub

　（D）Private Sub Text1_Change()

          If Asc(Text1.Text) > 96 And Asc(Text1.Text) < 123 Then

            MsgBox “请重新输入小写字母”

          End If

       End Sub

2． 以下语句的输出结果是（ 【30】 ）

　　  Print Format ( 1234567.89 , “ ## , ###.000 ” )

　（A）34,567.890　　　　　　　　　（B）1,234,567.890

（C）1,234,567,89　　　　　　　　（D）34,567.89

3． 当某个控件获得焦点时，将会触发的事件是（ 【31】 ）

　（A）GotFocus　　（B）SetFocus　　（C）ReceiveFocus　（D）无事件触发

4． 在窗体上画一个名称为Command1的命令按钮，然后编写如下的事件过程：

Private Sub Command1_Click()

      Dim a As Integer

      Open “c:\VbTest\Test32.dat” For Binary As #1

      a=1000

      Seek #1, 10

Put #1, , a

      Close #1

End Sub

则以下叙述中正确的是（ 【32】 ）

　（A）如果文件c:\VbTest\Test32.dat不存在，则Open命令执行失败

　（B）由于Put命令中没有指明位置，因此把变量a的值写到文件的末尾

　（C）变量a的值会从文件的第10个字节处开始写入

　（D）变量a的值会从文件的第10个记录处开始写入

5． 下列叙述中正确的是（ 【32】 ）

　（A）在窗体的Form_Load事件过程中定义的变量是全局变量

　（B）局部变量的作用域可以超出所定义的过程

　（C）在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程

　（D）在调用过程中，所有局部变量被系统初始化为0或空字符串

6． 以下关于焦点的叙述中，错误的是

（A）当文本框失去焦点时，触发LostFocus事件

（B）当文本框的Enabled属性为False时，其Tab顺序不起作用

（C）可以用TabIndex属性改变Tab顺序

（D）如果文本框的TabStop属性为False，则不能接收从键盘上输入的数据

7． 设a = 10，b=12，则执行

　　x = Iif ( b \ a *a = 10 , 0 , -1 )

　后，x的值为（ 【33】 ）

（A）0　　　　　　（B）1　　　　　　（C）-1　　　　　　（D）使用错误

8． 使用下面语句定义的数组元素个数是（ 【34】 ）

　　  Dim A ( 4 , 2 To 5 ) As Integer

　（A）12　　　　　（B）15　　　　　（C）16　　　　　（D）20

9． 如果要在菜单中添加一个分隔线，则应将其Caption属性设置为

（A）=　　　　　 （B）* 　　　　　（C）& 　　　　　（D）-

10．   为了将菜单项分组，使不同类型的菜单之间有一条水平分隔线，设置方法是在菜单中插入一个菜单项，将该菜单控件的（ 【35】 ）属性设置为一个连字符（-）即可。

　（A）Name　　　（B）Caption　　　（C）ShortCut　　　（D）Text