Dim i As Integer, sum As Integer For i = 2 To 10
If i Mod 2 <> 0 Then Print i Else
sum = sum + i End If Next i Print sum End Sub
程序运行后，单击窗体，在窗体上的输出结果是 。 参考答案:357930
第9题、在窗体上画一个文本框，然后编写如下程序： Option Base 1
Private Sub Form_Click() Dim Arr(10) As Integer For i = 6 To 10 Arr(i) = i - 3 Next i
Text1.Text = Str(Arr(6) + Arr(Arr(6) + Arr(10))) End Sub
程序运行后，单击窗体，在文本框中显示的内容是 。 参考答案:10
第10题、VB应用程序通常由3类模块组成，即窗体模块、标准模块和______。 参考答案:类模块
第11题、退出VB的快捷键是_______。 实得分值:0 参考答案:Alt+Q
第12题、在窗体上画两个文本框和一个命令按钮，并在命令按钮的代码窗口中编写如下事件过程
Private Sub Command1_Click()
Text1.Text = \ Text2.Text = Text1.Text Text1.Text = \End Sub
程序运行后，单击命令按钮，两个文本框中显示的内容分别为____和____。 参考答案:ABCD VB Programming
第13题、为了使标签能自动调整大小以显示全部文本内容，应把标签的________属性设为True 。
5
参考答案:Autosize
第14题、设有如下的程序段：a$ = \执行上面的程序段后，变量b$的值为_______。 实得分值:0
参考答案:Shanghai
第15题、下列Visual Basic表达式有错误，其正确的形式是 。 (8+6)^(4÷-2)+SIN(2*∏) 参考答案:(8+6)^(4/(-2))+Sin(2*3.14159)
第16题、与下列数学式子对应的Visual Basic 表达式是 。 cos2(c+d) ((C+D)为弧度 ) 参考答案:Cos(c+d)^2 或 Cos(c+d)*Cos(c+d)
第17题、语句Print \的输出结果是_____。 实得分值:0 参考答案:25+32=57
第18题、阅读程序： Private Sub Form_Click() num = 0 Do
num = num + 1 Print num
Loop Until num > 2 End Sub
程序运行后，单击窗体，输出结果是 。 参考答案:123
第19题、在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码： Private Sub Command1_Click() Dim a(5)
For i = 0 To 4 a(i) = i + 1 t = i + 1 If t = 3 Then Print a(i);
a(t - 1) = a(i - 2) Else
a(t) = a(i) End If
If i = 3 Then a(i + 1) = a(t - 4) a(4) = 1 Print a(i); Next i End Sub
6
程序运行后，单击命令按钮，输出结果是 。 参考答案:1 2 3 1 4 1
第20题、能在整个工程范围内使用的全局变量应该在_______模块中定义。 实得分值:0 参考答案:标准
第21题、快捷键Ctrl+O的功能相当于执行文件菜单中的________命令。 实得分值:0 参考答案:打开工程
第22题、在保存VB应用程序时，窗体文件和工程文件的扩展名分别为____和____。 参考答案:.frm .vbp
第23题、.假定一个文本框的Name属性为Text1，为了在该文本框中显示\，所使用的语句为_________。
参考答案:Text1.text=\
第24题、下列Visual Basic表达式有错误，其正确的形式是 。 [(x+y)+z]×80-5 (C+D) 参考答案:((x+y)+z)*80-5*(C+D)
第25题、执行以下语句后，输出结果是 、 。 a$ = \b$ = \Print a$ + b$
参考答案:Good Morning Good Morning
第26题、下列语句的输出结果是 。 Print Int(12345.6789 * 100 + 0.5) / 100 参考答案:12345.68
第27题、以下程序段的输出结果是 x = 8
Print x + 1; x + 2; x + 3 参考答案:9 10 11
第28题、以下循环的执行次数是 。 k = 0
Do While k <= 10 k = k + 1 Loop 参考答案:11
第29题、在窗体上画一个文本框，然后编写如下程序： Option Base 1
Private Sub Form_Click()
7
Dim Arr(10) As Integer For i = 6 To 10 Arr(i) = i - 3 Next i
Text1.Text = Str(Arr(6) + Arr(Arr(6) + Arr(10))) End Sub
程序运行后，单击窗体，在文本框中显示的内容是 。 参考答案:10
第30题、在窗体上画一个命令按钮，然后编写如下程序： Sub inc(a As Integer) Static x As Integer x = x + a Print x; End Sub
Private Sub Command1_Click() inc 2 inc 3 inc 4 End Sub
程序运行后，第一次单击命令按钮时的输出结果为 。
参考答案:2 5 9
三、单选(本大题共120道小题)
第25题、VisualBasic一共有设计、运行和中断三种模式，不可进行界面设计和代码编辑的模式是_______。 实得分值:0
A、设计模式 B、运行模式 C、中断模式 D、任何模式 参考答案:B
第1题、以下叙述中错误的是______。 实得分值:0
A、打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件 B、保存VisualBasic程序时，应分别保存窗体文件及工程文件 C、VisualBasic应用程序只能以解释方式执行 D、事件可以由用户引发，也可以由系统引发
8