为( )。
A) 2 B) 62 C) 8 D) 26
8 在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Comand1_Click()
Dim a As Integer,b As Integer
a=InputBox(\ B=InputBox(\ Print b+a End Sub
程序运行后，单击命令按钮，先后在两个输入对话框中分别输入“456”和“123”，则输出结果是( )。
A) 579 B) 123 C) 456 D) 123456
9 Print方法可以输出多个表达式值，若使用标准格式输出，各表达式的分割符应是( )
A) 空格 B) 逗号 C) 冒号 D) 分号 10 设有语句:
x=InputBox(\输入数值\，\，\示例\
程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是( )。 A) 变量X的值是数值10
B) 在InputBox对话框标题栏中显示的是“示例” C) 0是默认值
D) 变量X的值是字符串“10”
11 MsgBox函数的返回值的类型为( )。
A) 整型 B) 变体类型 C) 字符串型 D) 日期型 12 以下关于MsgBox的叙述中，错误的是( )。
A）MsgBox函数返回一个整数
B）通过MsgBox函数可以设置信息框中图标和按钮的类型 C）MsgBox语句没有返回值
D）MsgBox函数的第二个参数是一个整数，该参数只能确定对话框中显示的按钮数量 13 执行下面的语句后，所产生的信息框的标题是( )。 a=MsgBox(\
A) BBBB B)空 C) AAAA D)出错，不能产生信息框 14 使“计算机技术”在当前窗体上输出的语句是( )。
A) Print \计算机技术\ B) Picture1.Print \计算机技术\C) Printer.Print \计算机技术\ D) Debug.Print \计算机技术\15 设a=6,则执行
x=IIf(a>5,-1,0) 后，x的值为( )。
A）5 B）6 C）0 D）-1 16 运行下列程序段后，显示的结果为( )。
a=23
- 21 -
b=32
If a
A) 23 B) 32 C) 55 D) 2332 17 下列程序段执行结果为( )。
x=5 y=-6
If Not x>0 Then x=y-3 Else y=x+3 Print x-y; y-x
A) -3 3 B) 5 -9 C) 3 -3 D) -6 5 18 下列语句正确的是( )。
A) If A≠B Then Print \不等于B\B) If A<>B Then Printf \不等于B\C) If A<>B Then Print \不等于B\D) If A≠B Print \不等于B\19 下列程序段的执行结果为( )。
a=95
If a>60 Then I=1 If a>70 Then I=2 If a>80 Then I=3 If a>90 Then I=4 Print \
A) I＝1 B) I＝2 C) I＝3 D) I＝4 20 下列程序段的执行结果为( )。
a=75
If a > 60 Then I=1 If a > 70 Then I=2 If a > 80 Then I=3 If a < 90 Then I=4 Print \
A) I＝1 B) I＝2 C) I＝3 D) I＝4 21 下列程序段的执行结果为( )。
X=2 Y=5
If X * Y < 1 Then Y=Y - 1 Else Y=-1 Print Y - X > 0
A) True B) False C) -1 D) 1
22 对话框在关闭之前，不能继续执行其他操作，这种对话框属于( )A) 输入对话框 B) 输出对话框 C) 模式(模态) 对话框 D) 无模式对话框
- 22 -
。
23 下面程序段执行结果为( )。
x=Int(Rnd() + 4) Select Case x Case 5
Print \ Case 4
Print \ Case 3
Print \ Case Else
Print \End Select
A)Excellent B)Good C)Pass D)Fail 24 执行下面的程序段后，变量c的值为( )。
a=14 b=30
Select Case b ＼ 10 Case 0
c=a * 10 + b Case 1 To 9
c=a * 100 + b Case 10 To 99 c=a * 1000 + b End Select Print c
A) 363 B) 2548 C) 1430 D) 9875 25 以下Case语句中错误的是( )。
A) Case 0 To 10 B) Case Is>10
C) Case Is>10 And Is<50 D) Case 3, 5, Is>10
二、填空题
1 语正确答案是选项句Print\的输出结果是 。
2 在一个窗体上有两个命令按钮，CmdMax和CmdMin。单击CmdMax时，窗体上显示\字体由小变大\，字号每次增加2；单击CmdMin时，窗体上显示“字体由大变小”，字号每次减小2。请填空。
Private Sub Form_Load()
Form1.Caption=\字体变化示范\ CmdMax.Caption=\字体变大\ CmdMin.Caption=\字体变小\End Sub
Private Sub CmdMax_Click()
- 23 -
Form1.Print \字体由小变大\End Sub
Private Sub CmdMin_Click()
Form1.Print \字体由大变小\End Sub
3 完成下面的程序，使显示结果如下图所示。
Private Sub Form_Click() FontSize = 18
Sample = \
x = (ScaleWidth - TextWidth(Sample)) / 2 y = (ScaleHeight - TextHeight(Sample)) / 2 CurrentX = x CurrentY = y Sample End Sub
图程序运行界面
4 有下面一个程序段，从文本框中输入数据，如果该数据满足条件，除以4余1，除以5余2，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。
Private Sub Command1_Click() x=Val(Text1.Text) If Then Print x Else
Text1.Text=\ End If End Sub
5 下面程序的作用是用InputBox()函数输入一个整数，然后判断能否同时被2，5和7整除，如果能则输出该数及平方值。请填空。
Private Sub Command1_Click() Dim numX As Integer
numX=Val(InputBox(\请输入一个整数\ If Then
Form1.Print End If End Sub
- 24 -
6 在有下面一个程序段从文本框中输入数据，如果该数据满足条件，除以6余2，除以5余3，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。
Private Sub Command1_Click() num=Val(Text1.Text) If Then Print num Else
Text1.Text=\ End If End Sub
7 下面的程序是计算给定函数的值，自变量x，y的值用InputBox()函数输入，函数如下：
?x2?y2 x?0,y?0?2f(x,y) ??x-2y2 x?0,y?0
?y2-2x2 其它?程序不完整，请填空，将程序的补充完整。 Option Explicit Dim x As Single Dim y As Single Dim z As Single
Private Sub Command1_Click() x=Val(InputBox(\ y=Val(InputBox(\End Sub
Private Sub Command2_Click() If Then z=x ^ 2 + y ^ 2 ElseIf Then z=x ^ 2 - 2 * y ^ 2
z=y ^ 2 - 3 * x ^ 2 End If
Form1.Print \当x，y的值为：\ Form1.Print \的值为：\End Sub
8 在窗体上有一个“背景色变换”按钮和一个“结束”按钮。单击“背景色变换”按钮，背景色变为红色；再单击，背景色变为绿色；再单击，背景色变为蓝色；再单击背景色变为红色??如此循环。单击“结束” 按钮，程序运行结束。请填空。
Private Sub CmdChange_Click() If Mark=0 Then Mark=1
ElseIf Then
- 25 -