A= \ B=\ C=Left(A, 5) + \ D=Right(A, 7) E=Mid(A, 6, 4)
F=Mid(B, Len(B)-6, 5)+ \ G=E+ \ + D + \ H=C+ \ Print H+ \
(A)HELLO!CHANG!GOOD MORNING! (B)HELLO!WANG!GOOD MORNING! (C)HELLO!LI!GOOD MORNING! (D)HELLO!CHANG!GOOD!MORNING! 6．下列程序段的执行结果为【 】。
A=0：B=1
A=A+B: B=A+B: Print A; B A=A+B: B=A+B: Print A; B A=A+B: B=A+B: Print A; B
(A)1 2 (B)1 1 (C)1 3 (D)1 2 3 5 3 5 3 4 3 4 8 13 8 13 8 13 5 6
8．在窗体上有两个文本框Textl和Text2及一个命令按钮Commandl，并有如下两个事件过程。程序运行时，在文本框Textl中输入123，在文本框Text2中输入321，然后单击命令按钮，则在窗体上输出【 】。
Private Sub Form_Load() ． Textl．Text=\ Text2．Text=\ End Sub
Private Sub Commandl_C1ick() a=Textl.Text+Text2.Text Print a End Sub
(A) 444 (B) 321123 (C) 123321 (D) 132231
9．在窗体Form1上有两个文本框Textl和Text2，一个命令按钮Commandl，并有如下两个事件过程，程序运行时，在文本框Text1中输入123，文本框Text2中输入321，然后单击命令按钮，则输出结果为【A 】。
Private Sub Commandl_Click() a=Val(Textl.Text)+Val(Text2.Text) Print a End Sub
Private Sub Form_Load() Textl.Text=\ Text2.Text=\ End Sub
(A) 444 (B) 321123 (C) 123321 (D) 132231 10．在窗体Form1上有两个文本框Text1和Text2，一个命令按扭Commandl，并有如下两个事件过程。程序运行时，在文本框Text1中输入123，文本框Text2中输入321，然后单击命令按钮，则输出结果为【 C 】。
Private Sub Commandl_Click() a=Val(Textl.Text+Text2.Text) Print a End Sub
Private Sub Form_Load() Textl.Text=\ Text2.Text=\ End Sub
(A)444 (B)321123 (C)123321 (D)132231
11．在窗体Forml上有一个命令按钮Commandl，且其单击(Click)事件过程如下。程序运行时，单击命令按钮，先后在两个输入框中输入123和32l，则输出结果为【A】。 PriVate Sub Commandl_C1iCk() ’ a=Val(InputBox(”请输入第一个数”)) b=Val(InputBox(”请输入第二个数”)) Print a+b End Sub
(A)444 (B)321 123 (C)123321 (D)132231
13．在窗体Forml上有一个命令按钮Commandl，其单击(Click)事件过程如下。程序运行时，三次单击命令按钮Command1，分别在输入框中输入1、2、3，则在文本框Text1中显示的内容为【 】 Private Sub Commandl_Click()
a=InputBox(”请输入一个数”)。
Textl.Text = Textl.Text & Space(1) & a End Sub
(A)3 (B)12 (C)I (D)1 2 3
14．在窗体Forml上有一个命令按钮Commandl，其单击(Click)事件过程如下。程序运行时，三次单击命令按钮Commandl，分别在输入框中输入1、2、3，则在文本框Text1中显示的内容为【 】 Private Sub Commandl_Click() a=InputBox(¨请输入一个数\ Textl.Text=a End Sub
(A) 3 (B) 12 (C) 1 (D) 1 2 3
15．在窗体上有一个命令按钮Commandl和--个文本框Textl，命令按钮的单击事件过程如下。程序运行后，单击命令按钮，文本框中显示【 】。 Private Sub Commandl_C1ick() a=1.2 : b=321
C=Len(Str(a)+Str(b))
(A)3 (B)4 (C)6 (D)8
三、程序填空(在程序中的划线位置填上适当内容，以完成题目所要求的功能)
2．下面是窗体Form1的Click事件过程，实现运行时每次单击窗体时，窗体均向右移动100缇。 Private Sub (1) () (2) intleft As Integer intleft= intleft+100
Forml. (3) =intleft
供选择的答案：
(1)(A)Form1_Click (B)Form_Click (C) Command_Click (D) Command1_Click (2)(A) Dim (B) Static (c) Private (D) Public (3)(A) Caption (B) Top (c) Width (D) Left
3．下面的事件过程实现从键盘输入两个变量的值，交换这两个变量的值，并将交换后的结果显示在 立即窗口中。
Private Sub Form_Load()
Dim a As Double，b As Double，c As Double a=Val(InputBox(\请输入a\ b = (1) (2) Print a Print b
供选择的答案：
(1) (A)Val(InputBox(\请输入b\ (B) InputBox(\请输入b\ (C)Val(InputBox(\请输入a\ (D) InputBox(\请输入a\(2) (A) c=a：a=b：b=c (B)a=b：b=a (C) c=a：b=c：a=b (D)b=a：a=b
5．下面的事件过程随机产生一个三位正整数，然后逆序输出，并将产生的数与逆序数显示在一行上。例如，产生345，输出345 543。 Private Sub Form_Click()
Dim a As Integer，S As String，b As Integer Randomize
a = (1) s= (2) b= (3) Print a； (4) ；b End Sub
供选择的答案：
(1) (A) Int(Rnd*900+100) (B) Int(Rnd*l00) (C) Int(Rnd*900) (D) Int(Rnd*100+900)
(2) (A)Str(a) (B) Trim(Str(a)) (c) Trim(a) (D) Left(a) (3) (A) Val(Right(s, 2) & Left(s, 2))
(B) Val(Right(s, 1) & Mid(s, 2, 1) & Left(s, 1)) (C) Val(Mid(s, 1) & Left(s, 1)) (D) Val(Left(s, 1) & Right(s, 1))
(4) (A)Tab(4) (B)\ (c) Left(4) (D) Spc(4)
第5章选择结构程序设计
一．选择题(除了特别注明“多选”外，其余均为单选题) 2．下列语句正确的是【 】
(A) If A≥B Then T=A A=B B=T (B) If A≥B Then T=A; A=B; B=T (C) If A>=B Then T=A A=B B=T (D) If A>=B Then T=A: A=B: B=T 3．下列语句正确的是【 】。
(A) If X<3*Y And X>Y Then Y=X^3 (B) If X<3*Y And X>Y Then Y=X3
(C) If X<3*Y: X>Y Then Y=X^3 (D) If X<3*Y And X>Y Then Y=X**3 6．如果X的值小于或等于Y的平方，则打印“0K”，表示这个功能的单行格式If语句是【 】。
(A) If X<=Y2 Then Print \ (B) If X<=Y^2 Print \
(C) If X<=Y^2 Then \ (D) If X<=Y^2 Then Print \
8.下列程序段【 】能够正确实现：如果 X (C) If X End If 9．能够实现以下分段函数的程序段是 (A) If X>=O Then Y=1+X (B) If X≥0 Then Y=1+X Y=1-X Else Y=1-X End If (C) If X>=0 Then Y=1+X (D)If X<0 Then If X<0 Then Y=1-X Y=1-X E1se : Y=1+X End If (多选) 11．计算分段函数： 下面程序段中正确的是【 】。 (A) If X<0 Then Y=0 (B) If X>=2 Then Y=3 If X<1 Then Y=1 If X>=1 Then Y=2 If X<2 Then Y=2 If X>=0 Then Y=1 If X>=2 Then Y=3 If X<0 Then Y=0 (C)If x<0 Then (D) If X>=2 Then Y=0 Y=3 Elself X>=0 Then Elself X>=1 Then Y=1 Y=2 Elself X>=1 Then ElseIf X>=0 Then Y=2 Y=1 Else Else Y=3 Y=0 End If End If 二、判断程序或程序段的执行结果 1．下列程序段的执行结果为【 】 X=2 Y=1 If X*Y<1 Then Y=Y-1 Else Y= -1 Print Y-X>0 (A) True (B) False (C) -1 (D) 1 2．下列程序段的执行结果为【 】 J1=10 J2=30 If J1 (A) 10 (B) 30 (C) 10 30 (D) 30 10 3．下列程序段的执行结果为【 】 X=5 Y= -20 If Not X>0 Then X=Y-3 E1se Y=X+3 Print X-Y；Y-X (A) -3 3 (B)5 -8 (C)3 -3 (D)25 -25 9．下列程序段的执行结果为【 】 X=Int(Rnd+4) Select Case X Case 5 Print \优秀\ Case 4 Print \良好\ Case 3 Print \通过\ Case Else Print \不通过\End Select (A)优秀 (B)良好 (C)通过 (D)不通过 10．下列程序段的执行结果为【 】 x=40 Select Case X Case Is>=10 Print \ Case Is>=20 Print \ case Is>=30 Print \ Case Is>=40 Print \ End Select (A) A (B) B (C) C (D) D