（D） If sex =＂男＂And age < 40 And duty =＂教授＂And duty＂副教授＂Then n = n + 1 9. 下面程序段求两个数中的大数，____D____不正确。
（A）Max = If(x > y,x,y) （B）If x > y Then Max = x Else Max = y （C）Max = x （D）If y > = x Then Max = y If y > = x Then Max = y Max = x 10. 下面语句执行后，变量W中的值是________。
W = Choose(Weekday(＂2000,5,1＂),＂Red＂,＂Green＂,＂Blue＂,＂Yellow＂) （A）＂Blue＂ （B）＂Red＂ （C）＂Green＂ （D）＂Yellow＂ 11. 以下不正确的单行结构条件语句是____D____。
(A) If x>y Then Print “x>y” (B) If x Then t=t*x
(C) If x Mod 3 = 2 then ? x (D) If x<0 Then y=2*x-1 : print 12. 给定程序段： Dim a As Integer, b As Integer, c As Integer
a = 1 : b = 2 : c = 3
If a = c-b Then Print “ ##### ” Else Print “ ***** ”
以上程序____C____。
(A) 没有输出 (B) 有语法错 (C) 输出##### (D) 输出***** 13.下列Case语句中正确的是____C____。
(A) Select Case x (B) Select Case x
Case 1 Or 3 Or 5 Case 1, 3, 5 Y = x*x – 1 y = 2*x – 1 Case Is > 10 Case Is x <= 1 Y = x + 1 y = 2*x + 1 End Select End Select
(C) Select Case x (D) Select Case x
Case Is <= 0 Case x>=1 And x <= 5 Y = x – 1 y = x – 1 Case Is > 0 Case Is > 10 Y = Sqr(x) + 1 y = x*x + 1 End Select End Select 14. 有程序段： I% = 10 : Sum = 0 If I >1 Then Sum = Sum + I I = I – 1 End if
Print Sum 执行之后屏幕上____B____。
(A) 无显示 (B) 显示 10 (C) 显示 54 (D) 显示 55 15.有如下程序
total=0
For k=1 To 3 If k>=1 Then Part=1
ElseIf k>=2 Then Part=2
- 40 -
x End If ElseIf k>=3 Then Part=3 Else part=4 End If
Print part; total=total+part Next k Print total
运行时的输出结果是____C____
(A）3 3 3 9 (B）3 2 1 6 (C）1 1 1 3 (D）1 2 3 6 16．下列程序的执行结果是____A____
a=75
If a>90 Then i=4 Ifa>80 Then i=3 If a>70 Then i=2 If a>60 Then i=1 Print”i=”;i
(A)i=1 (B)i=2 (C)i=3 (D)i=4 17.有如下程序：
x=InputBox(“input value of x:”) Select Case x Case Is>0 y=y+1 Case Is=0 y=x+2 Case Else y=x+3 End Select Print x;y
运行时，从键盘输入-5，输出的结果是____A____ (A）-5 -2 (B）-5 -4 (C）-5 -3 (D）-5 -5 18．设a=6，则执行IIf（a>5,-1,0）后，x的值为________
(A）5 (B）6 (C）0 (D）-1 19.下列程序输出的结果为____C____。
Privrate Sub Commandl_Click() Dim a As Boolean A=Ture
If a Then Goto 11 Else Goto 22 11:
Print “VB” 22:
Print”VC” End Sub
(A)VB (B)VC (C)VB VC (D)出错信息
- 41 -
20.在窗体上画一个名为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1-Click () x=6
If x>6 Then Print \Else
If x<8 Then Print \Else
If x= 6 Then Print \EndIf End If End If End Sub
程序运行后,单击命令按钮,输出的结果是____A____。 (A) x<8 (B) x=6 (C) x<8x=6 (D) x<8或x=6 二. 填空题
1. 下面程序运行后输出的结果是____7____。 x = Int(Rnd) + 3
If x＾2 > 8 Then y = x＾2 + 1 If x＾2 = 9 Then y = x＾2 – 2
If x＾2 < 8 Then y = x＾3 Print y
2. 下面程序的功能是________。 Dim n%,m%
Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then
If IsNumeric(Text1.Text) Then Select Case Text1.Text Mod 2 Case 0
n = n + Text1.Text Case 1
m = m + Text1.Text End Select End If
Text1.Text = ＂＂ Text1.SetFocus End If End Sub
3. 下面的程序段是检查输入的算术表达式中圆括号是否配对，并显示相应的结果。本程序
在文本框输入表达式，边输入，边统计，以输入回车符作为表达式输入结束，然后显示结果。
Dim count1%
- 42 -
Private Sub Text1_KeyPress(KeyAscii As Integer) If ________ = ＂(＂Then count1 = count1 + 1
ElseIf ________ = ＂) ＂Then ________ Else If
If KeyAscii = 13 Then If ________ Then
Print＂左右括号配对＂ ElseIf ________ Then
Print＂左括号多于右括号＂;count1; ＂个＂ Else
Print＂右括号多于左括号＂; – count1; ＂个＂ End If End If End Sub
注意：该题中统计括号个数的变量count1在通用声明段声明，若在Text1_KeyPress内声明，程序会产生什么结果？
4. 输入文本框中若干字符，统计有多少个元音字母、有多少个其他字母，直到按Enter键
结束，并显示结果，大小写不区分。其中CountY中放元音字母个数，CountC中放其他字符数。
Dim CountY%,CountC%
Private Sub Text1_KeyPress(KeyAscii As Integer) Dim C$
C = ________
If ＂A＂< = C And C < = ＂Z＂Then Select Case ________ Case ________
CountY = CountY + 1 Case ________
CountC = CountC + 1 End Select End If
If ________ Then
Print＂元音字母有＂; ＂个＂ Print＂其他字母有＂; ＂个＂ End If End Sub
5.以下程序段对应的函数表达式是______
x=InputBox (\x=Clnt(x) Select Case x Case Is<=O y=O
- 43 -