(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