MsgBox CommonDialog1.FileName
End Sub
程序运行后，单击命令按钮，将显示一个"打开"对话框，此时在"文件类型"框中显示的是______。
A：Text Files(*.txt)
B：AllFiles(*.*)
C：Executable Files(*.exe)
D：不确定
参考答案：C
10、在窗体上画一个名称为Command1命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
c = "ABCD"
For n = 1 To 4
Print ______
Next
End Sub
程序运行后，单击命令按钮，要求在窗体上显示如下内容
D
CD
BCD
ABCD
则在______处填入的内容为。
A：Left(c,n)
B：Right(c,n)
C：Mid(c,n,n)
D：Mid(c,n,1)
参考答案：B
11、在窗体上画一个名称为Label1、标题为"VisualBasic考试"的标签，两个名称分别为Command1和Command2、标题分别为"开始"和"停止"的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500，如图所示。
编写如下程序：
Private Sub Form_Load()
Timer1.Enabled=False
End Sub
Private Sub Command1_Click()
Timer1.Enabled=True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
If Label1.Left<Width Then
Label1.Left = Label1.Left + 20
Else
Label1.Left=0
End If
End Sub
程序运行后，单击"开始"按钮，标签在窗体中移动。
对于这个程序，以下叙述中错误的是______。
A：单击"停止"按钮后再单击"开始"按钮，标签从停止的位置继续移动
B：标签的移动方向为自右向左
C：当标签全部移出窗体后，将从窗体的另一端出现并重新移动
D：标签按指定的时间时隔移动
参考答案：B
12、执行下列语句
strInput=InputBox("请输入字符串","字符串对话框","字符串")
将显示输入对话框。此时如果直接单击"确定"按钮，则变量strInput的内容是______。A："请输入字符串"
B：空字符串
C："字符串"
D："字符串对话框"
参考答案：C
13、假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是______。
A：执行语句Picture1.Picture =""
B：执行语句Picture1.Picture = LoadPicture ("")
C：选择图片框，然后按Del键
D：选择图片框，在属性窗口中选择Picture属性条，然后按回车键
参考答案：B
14、在窗体上画一个命令按钮和一个文本框，名称分别为Command1和Text1，然后编写如下程序：
Private Sub Command1_Click()
a=InputBox("请输入日期（1～31）")
t="旅游景点：" _
& IIf ( a > 0 And a <= 10,"长城","") _
& IIf ( a >10 And a <= 20,"故宫","") _
& IIf ( a > 20 And a <= 31,"颐和园","")
Text1.Text = t
End Sub
程序运行后，如果从键盘上输入16，则在文本框显示的内容是______。
A：旅游景点：长城颐和园
B：旅游景点：长城故宫
C：旅游景点：颐和园
D：旅游景点：故宫
参考答案：D
15、若变量a未事先定义而直接使用（例如：a=0），则变量a的类型是______。
A：Variant
B：String
C：Boolean
D：Integer
参考答案：A
16、有如下程序：：
Private Sub Form_Click()
Dim i As Integer, sum As Integer
sum = 0
For i = 2 To 10
If i Mod 2 <> 0 And i Mod 3 = 0 Then
sum = sum + i
End If
Next i
Print sum
End Sub
程序运行后，单击窗体，输出结果为______。
A：30
B：12
C：24
D：18
参考答案：B
17、以下能从字符串"VisualBasic"中直接取出子字符串"Basic"的函数是______。
A：String
B：Mid
C：Left
D：Instr
参考答案：B
18、设窗体上有一个列表框控件List1，含有若干列表项。以下能表示当前被选中的列表项内容的是______。
A：List1.ListIndex
B：List1.List
C：List1.Text
D：List1.Index
参考答案：C
19、设a=5,b=10，则执行c = Int((b - a) * Rnd + a) + 1后，c值的范围为______。
A：6~10
B：6~9
C：5~10
D：5~9
参考答案：A
20、在窗体上有1个名为Cd1的通用对话框，为了在运行程序时打开保存文件对话框，则在程序中应使用的语句是______。
A：Cd1.Action=2
B：Cd1.ShowSave=True
C：Cd1.Action=1
D：Cd1.ShowSave=0
参考答案：A
21、下面可以正确定义2个整型变量和1个字符串变量的语句是______。
A：Dim a As Integer,b,c As String
B：Dim a%,b$,c As String
C：Dim n,m As Integer,s As String
D：Dim x%,y As Integer,z As String
参考答案：D
22、在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：
Private Sub Command1_Click()
a = InputBox("Enter an integer")
b = InputBox("Enter an integer")
Text1.Text = b + a
End Sub
程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是______。
A：出错
B：18
C：810
D：108
参考答案：D
23、在窗体上画一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说英语学习2010计算机等级考试二级VB预测题(4)在线全文阅读。
相关推荐：