(29)在窗体上画1个文本框，其名称为Text1，然后编写如下过程：
Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer，Shift As Integer)
Print Chr(KeyCode+2)
End Sub
程序运行后，把焦点移到文本框中，此时如果敲击“A”键，则输出结果为。
A)A
AB)A
BC)A
CD)A
D
(30)为了使列表框中的项目呈多列显示，需要设置的属性为。
A．Columns
b．Style
C．List
D．MultiSelect
(31)在窗体上画1个命令按钮，名称为Command1，然后编写如下程序：
Dim Flag As Boolean
Private Sub Command1_Click()
Dim intNum As Integer
intNum=InputBox("请输入：")
If Flag Then
Print f(intNum)
End If
End Sub
Function f(X As Integer)As Integer
If X<10 Then
Y=X
Else
Y=X+10
End If
f=Y
End Function
Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)
Flag=True
End Sub
运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入5，则程序的输出结果为。
A．0
b．5
C．15
D．无任何输出
(32)在菜单编辑器中建立1个名称为Menu0的菜单项，将其“可见”属性设置为False，并建立其若干子菜单，然后编写如下过程：
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
If Button=1 Then
PopupMenu Menu0
End If
End Sub
则以下叙述中错误的是。
A．该过程的作用是弹出一个菜单
B．单击鼠标右键时弹出菜单
C．Menu0是在菜单编辑器中定义的弹出菜单的名称
D．参数X、Y指明鼠标当前位置的坐标
(33)窗体上有1个名称为CD1的通用对话框，1个名称为Command1的命令按钮。命令按钮的单击事件过程如下：
Private Sub Command1_Click()
CD1.FileName=""
CD1.Filter="All Files|*.*|(*.Do
C．|*.Doc|(*.Txt)|*.txt"
CD1.FilterIndex=2
CD1.Action=1
End Sub
关于以上代码，错误的叙述是。
A．执行以上事件过程，通用对话框被设置为“打开”文件对话框
B．通用对话框的初始路径为当前路径
C．通用对话框的默认文件类型为*.Txt
D．以上代码不对文件执行读写操作
(34)以下叙述中错误的是。
A．用Shell函数可以执行扩展名为.exe的应用程序
B．若用Static定义通用过程，则该过程中的局部变量都被默认为Static类型
C．Static类型的变量可以在标准模块的声明部分定义
D．全局变量必须在标准模块中用Public或Global声明
(35)以下关于文件的叙述中，错误的是。
A．使用Append方式打开文件时，文件指针被定位于文件尾
B．当以输入方式(Input)打开文件时，如果文件不存在，则建立一个新文件
C．顺序文件各记录的长度可以不同
D．随机文件打开后，既可以进行读操作，也可以进行写操作
责任编辑：cyth
