(30) 有如下程序：
Private Sub Command1_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．0 0 
B．1 1
C．0 2 
D．1 2
正确答案: C

(31) 下面有一段程序代码，如果从键盘上输入"Computer"，则在文本框内显示的内容是
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >=65 And KeyAscii <=122 Then
KeyAscii=42
End If
End Sub
A．Computer 
B．什么都没有
C．******** 
D．程序出错
正确答案: C

(32) 下列有关子菜单的说法中，错误的是
A．除了Click事件之外，菜单项不可以响应其他事件
B．菜单项的索引号必须从1开始
C．每个菜单项都是一个控件，与其他控件一样也有其属性和事件
D．菜单的索引号可以不连续
正确答案: B

(33) 在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写如下事件过程：
Private Sub Command1_Click()
CommonDialog1.Flags=vbOFNHideReadOnly
CommonDialog1.Filter= "All Files(*.*) |*.*|Text Files(*.*) |*.txt|" _
& Batch Files(*.bat) |*.bat"
CommonDialog1.FilterIndex=1
CommonDialog1.ShowOpen
MsgBox CommonDialog1.FileName
End Sub
程序运行后，单击命令按钮，将显示一个"打开"对话框，此时在"文件类型"框中显示的是
A．All Files(*.*) 
B．Text Files(*.*)
C．Batch Files(*.bat) 
D．All Files(*.*) |Text Files(*.*)
正确答案: A

(34) 在Visual Basic中，要将一个窗体从内存中释放，应使用的语句是
A．Hide 
B．Unload
C．Load 
D．Show
正确答案: B

(35) 在Visual Basic中按文件的编码方式不同，可将文件分为
A．顺序文件和随机文件 
B．文本文件和数据文件
C．ASCII文件和二进制文件 
D．数据文件和可执行文件
正确答案: C

[1] [2] [3] [4] [5]