a％=2/3
b％=32/9 Print a％,b％ End Sub
运行以上程序，输出结果为________。 A. 1 4 6. 编写如下程序： Private Sub Form_Click()
a = 3 b = 6
Print c = a+b/3 End Sub
则单击窗体时，输出结果为： A. c=(a+b)/3 B. 9
C. 3
D. False
7. 以下语句的输出结果是 。 Print Format$(12345.6＂000,000.00＂)
A. 12345.6 C. 012,345.60 参考答案
1. 分析：Print方法具有计算和输出两种功能。当Print的输出项是表达式时，将先计算表达式，然后输出表达式的值。所计算和输出的表达式可以是算术表达式，也可以是关系表达式或逻辑表达式。该例中的a=b+c是一个关系表达式，其中a的值为4，b+c的值是11，Print a=b+c实际上执行的是：Print 4=11，显然是一个“假”值。
答案：C
注意，有人可能会认为本例的答案应当为D，这是不对的。
2. 分析：在顺序结构中，语句将按照出现的顺序逐条执行。前两条语句是给变量赋初值，第三条语句使Ia为-2，第四条语句使Ib为8，第五条语句的表达式是Ib^2，按照运算符的优先顺序，先计算乘方再取负。
答案：B
3. 分析：InputBox函数的函数值是字符串类型，由于变量a和b没有说明，故是变体类型，当把函数值赋给变量a和b后，a和b是变体字符串，方法Print输出的是两个字符串的连接结果34。
答案：B
4. 分析：MsgBox函数的返回值是一个整数，这个整数与所选择的按钮有关。本例的第二个参数由三部分组成，其中 vbAbortRetryIgnore 用来在信息框中显示3个按钮，分别为“终止”、“重试”和“忽略”；vbCritical用来在信息框中显示Critical Message图标；而vbDefaultButton3把信息框的第三个按钮(即“忽略”)指定为默认按钮。执行该语句后，在信息框中显示3个按钮，并把第三个按钮作为默认按钮，此时如果按回车键，则返回值是该按钮所对应的值。由于“忽略”按钮对应的值是5，因此变量answer的值为5。
16
B. O 3 C. 1 3 D. 0 4
B. 12,345.6 D. 12,345.60
答案：B
5. 分析：当把一个数值赋给一个指定类型的变量时，如果数值和变量的类型不一致，系统要先进行处理，然后再赋给变量。本题中把一个精度高的值赋给一个精度低的变量，2／3的结果进行四舍五入处理后为整数l，32／9的值为3.556。四舍五入后为整型值4。在VB中“％”是整形数据类型说明符；“!”是单精度类型数据说明符；“#”是双精度数据类型说明符；“$”是字符串数据类型说明符；“&”是长整形数据类型说明符。
答案：A
6. 分析：Print c = (3 + 6)/3是把a+b/3赋值给c的语句，而Print没有赋值的功能所以当程序执行时，会出现错误。
答案：D
7. 分析：考查对数值格式化输出的掌握，应当记牢“0”、“.”、“，”等字符的作用,并能在多种字符一同存在时灵活运用。
答案：C
五、选择结构程序设计
选择题
1. 根据以下程序段，判断输出结果。 Private Sub Form_Click()
Dim a As Integer，b As Integer，x As Integer a=InputBox(＂a=?＂) b=InputBox(＂b=?＂) x=a+b
If a>b Then x=a-b Print x End Sub
运行时从键盘输入3和4，输出x的值是 。 A.3
B.5
C.7
D.9
2. 根据以下程序段，判断输出结果。 Private Sub Form_Click() b=1:a=2 Print If(a>=b,a,b) End Sub
运行后输出的结果是 。 A.0 3. 下列程序
17
B.l C.2 D.3
Private Sub Form_Click()
s=Val(InputBox(″input value of s″)) Select Case s Case Is<6 f=s+1 Case Is<5 f=s+2 Case Is<4 f=s+3 Case Else f=s+4 End Select Print s;f End Sub
运行时从键盘输入6，输出的结果是 。 A. 6 7
B. 6 8
C. 6 9
D. 6 10
4. 下面的程序段显示的结果是________。 Private Sub Command1_Click()
Dim x x=Int(Rnd+5) Select Case x
Case 5
Print″优秀″ Case 4
Print″良好″ Case 3
Print″通过″ Case Else
Print″不通过″
End Select
End Sub A. 优秀
B. 良好 C. 通过 D. 不通过
B. If x>y Then Max=x Else Max=y D. If y>=x Then Max=y Max=x
5. 下面的程序求两个数的大数，不正确的是_______。 A. Max=If(x>y,x,y) C. Max=x If y>=x Then Max=y
6. 已知一个人出生的年、月、日分别存放在变量y0、m0、d0中，当前日期的年、月、日分别存放在变量y1、m1、d1中，这个人的实足年龄存放在变量age中。则以下可以正确计算实足年龄的程序段是________。
18
A. B.
age = y1-y0 age = y1-y0
If m1 ＜ m0 Then If m1 ＜ m0 Or d1＜d0 Then age = age -1 age = age -1 ElseIf d1 ＜ d0 Then End If age = age-1
End If
C.
D.
age = y1-y0 age = y1-y0 If m1 ＜ m0 Then If m1 ＜ m0 Then age = age -1 age = age -1 End If End If
If m1 = m0 And d1＜ d0 Then If d1 ＜ d0 Then age = age - 1 age = age - 1 End If End If 7. 下列程序
Private Sub Form_Click()
a=Val(InputBox(″请输入a″)) b=Val(InputBox(″请输入b″)) x=a*a+b
If b>a Then x=b*b+a Print x End Sub
运行时从键盘输入3和4，输出x的值是 。 A. 12 B. 13 C. 19 D. 20
8. 下列程序
Private Sub Form_Click() K=2
If K>=1 Then A=3 If K>=2 Then A=2 If K>=3 Then A=1 Print A End Sub
运行时，输出的结果是 。 A. 1
B. 2
C. 3
D. 出错
9. 在窗体中添加一个命令按钮，并编写以下代码： Private Sub Command1_Click() a=Textl.Text If a Mod 2=0 Then
19
MsgBox″输入的数是偶数!″ Else
MsgBox″输入的数是奇数!″ End If End Sub
单击命令按钮后，在文本框中输入23后运行结果为________。
A. 弹出消息框″输入的数是奇数! ″ B. 弹出消息框″输入的数是偶数!″ C. 弹出错误消息! Private Sub Command1_Click() Dim a As Single a=-1.234567
b=Int(a):c=Sgn(a):d=Abs(a):e=Fix(a) If a
运行后输出结果是________。 A. -2 -1 1.234567 -1 C. -l 1.234567 -1 参考答案
选择题
1. 分析：在执行条件If前，变量x的值为输入的两个数之和7，在执行If语句时，a>b的条件为假，不能执行x=a-b，所以x的值不变。执行Print方法后，输出为7。
答案：C
2. 分析：本题主要考察If的掌握情况，当条件为真，函数值是表达式1的值，否则，函数值是表达式2的值。本题条件a>=b为真，函数值是表达式l即a的值，选项C是a的值。
答案：C
3. 分析：运行时在输入对话框中输入6，Val函数将输入的字符6转化为数值6赋给变量s，多分支入口Select Case s，测试表达式s，从上到下检查Case中的表达式列表是否满足条件，本例中，所有的Case表达式列表都不满足条件，因此，执行Case Else中的f=s+4，f的值执行后为10，s的值不变仍为6，最后输出6和10。
答案：D
4. 分析：因为Rnd函数产生0~1之间的随机数，所以x值不会小于5。 答案：A。
5. 分析：明显D选项的语句顺序有错误，不能保证Max始终能取y,x中的大数的值。 答案：D。
20
D. 无消息!
10. 在窗体中添加一命令按钮，并在命令按钮中编写如下代码：
B. -2 1.234567 D. -1 -1.234567 -1