练习5 选择结构程序设计
一、选择题
1． 下列语句正确的是[ ]。 (A) If X≠Y Then Print ″X不等于Y″ (C) If X>
(A) If X<3*Y And X>Y Then Y=X^3 (C) If X<3*Y: X>Y Then Y=X^3
(B) If X<3*Y And X>Y Then Y=X (D) If X<3*Y And X>Y Then Y=X**3
3
(B) If X<>Y Then ″X不等于Y″ (D) If X≠Y Print ″X不等于Y″
(B) If A≥ B Then T=A; A=B; B=T (D) If A>=B Then T=A: A=B : B=T
4．关于语句If x=1 Then y=1,下列说法正确的是[ ]。 (A) x=1和y=1均为赋值语句
(B) x=1和y=1均为关系表达式 (D) x=1为赋值语句，y=1为关系表达式
(C）x=1为关系表达式，y=1为赋值语句 5．执行以下语句后显示结果为[ ]。
Dim x As Integer
If x Then Print x Else Print x - 1
(A) 1 (B) 0 (C) -1 (D) 不确定 6. 执行以下语句后，显示的结果是[ ]。
Dim x As Integer
If x Then Print x Else Print x + 1
(A) 1 (B) 0 (C) -1 (D) 不确定
7．如果X的值小于或等于Y的平方，则打印″OK″，表示这个条件的单行格式If语句是[ ]。 (A)If x <=y Then Print ″OK″ (B) If x <=y^2 Print ″OK″ (C)If x <=y^2 Then ″OK″ (D) If x <=y^2 Then Print ″OK″
8．如果A为整数且|A|>=100，则打印″OK″，否则打印″Error″，表示这个条件的单行格式If语句是[ ]。
(A)If Int(A)=A And Sqr(A)>=10 Then Print ″OK″ Else Print ″Error″ (B) If Fix(A)=A And Abs(A)>=100 Then Print ″OK″ Else Print ″Error″ (C) If Int(A)=A And (A>=100,A<=-100) Then Print ″OK″ Else Print ″Error″ (D) If Fix(A)=A And A>=100 And A<=-100 Then Print ″OK″ Else Print ″Error″
2
9. 若X=-5，执行If X then X=0 Else X=1 的结果为[ ]。
10
(A)实时错误 (B) 编译错误 (C) X=1 (D) X=0
10. 数学关系2≤ X <10 表式成正确的Visual Basic表达式为[ ]。
(A) 2<=X<10 (B) 2<=X AND <10 (C) X>=2 OR X<10 (D) 2<=X AND X<10 二、判断程序或程序段的执行结果
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 2． 下列程序段的执行结果为[ ]。 J1=10 J2=30 If J1 （B）30 （C）10 30 3． 下列程序段的执行结果为[ ]。 X=5 Y=-20 If Not X >0 Then X=Y-3 Else Y = X+3 Print X-Y; Y-X （A）-3 3 （B）5 -8 （C）3 -3 4． 下列程序段的执行结果为[ ]。 A=″1″ B=″2″ A=Val(A)+Val(B) B=Val(″12″) If A <> B Then Print A-B Else Print B-A （A）-9 （B）9 （C）12-12 5． 下列程序段的执行结果为[ ]。 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 ″I=″;I （A）I=1 （B）I=2 （C）I=3 6． 下列程序段的执行结果为[ ]。 A = ″abcd″ B = ″bcde″ E = Right(A,3) F = Mid(B,2,3) If E （B）cdd （C）cdcd （D）1 （D）30 10D）25 -25D）0 D）I=4 （D）bcdcde11 （ （ （ 7． 下列程序段的执行结果为[ ]。 A = 75 If A > 60 Then I = 1 ElseIf A > 70 Then I=2 ElseIf A > 80 Then I = 3 ElseIf A > 90 Then I = 4 End If Print ″I=″; I （A）I=1 （B）I=2 （C）I=3 8． 下列程序段的执行结果为[ ]。 A = 1:B = 0 Select Case A Case 1 Select Case B Case 0 Print ″**0**″ Case 1 Print ″**1**″ End Select Case 2 Print ″**2**″ End Select （A）0 （B）**0** （C）**2** 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）通过10. a = Rnd + 90 If Fix(a) > 10 Then b = Fix(a) If b < 100 Then Print b End If End If （A）20 （B）10 （C）90 12 D）I=4 （D）**1** （D）不通过（D）100 （ 三、程序填空题 1． 以下程序用于判断输入的年份是否是闰年。如果年份能被4整除但不能被100整除，或者年份能被400整除，则该年为闰年；否则该年不是闰年。 Private Sub Command1_Click( ) y = InputBox(″请输入年份″) If (y Mod 4 = 0) And ((y Mod 100 <> 0) Or (y Mod 400 = 0)) Then Print __(1)_ & \年为闰年\ Else Print __(2)_ & \年不是闰年\ End If End Sub 2． 下面的程序用于求三个数中的最大数。 Private Sub Command1_Click( ) a= Val(InputBox(″请输入第一个数″)) b= Val(InputBox(″请输入第二个数″)) c= Val(InputBox(″请输入第三个数″)) Max =a Min =a If b>___(1)___Then Max=b If b<___(2)__ Then Min=b If c>___(3)___Then Max=c If c<___(4)___Then Min=c Print ″最大数为″；Max Print ″最小数为″；Min End Sub 3． 以下程序判断从文本框Text1中输入的数据，如果该数据满足条件：除以3余2，除以5余3，除以7余4，则输出；否则，将焦点定位在文本框Text1中，选中其中的文本。 Private Sub Command1_Click() x=Val(Text1.Text) If__(1)__Then Print x Else __(2)__ __(3)__ __(4)__ End If End Sub 4．下面程序用于根据文本框X中输入的内容进行以下处理： 若X为2、4、6，则打印″X的值为2、4、6″；若为3、5，则打印″X的值为3、5″；若X的值为7、8，则打印″X的值为7、8″；否则，打印″X的值不在范围内″。 Private Sub Command1_Click() x = Val(Text1) Select Case x Case __(1)__ Print \的值为2、4、6\Case __(2)_ Print \的值为3、5\Case __(3)_ Print \的值为7、8\ 13 __(4)__ Print \的值不在范围内\ End Select End Sub 5. 下面程序输入X的值，按以下公式求Y的值。 100-X -100≤X＜0 Y= 100+X 0≤X≤100 400 100＜X≤200 Private Sub Command1_Click() X=Val(Text1.Text) Select Case X Case__(1)__ Print ″X<-100 OR X>200″ Case__(2)__ Y = 100 - X Case__(3)__ Y = 100 +X Case__(4)__ Y=400 End Select Text2.Text = Y End If End Sub 6． 设某工程运行时初始界面如图5-1a的样子，单击″隐藏图像″按钮（Command2）隐藏图片框Picture1中的图像，界面变成图5-1b的样子，这时单击″显示图像″按钮（Command1）界面又能回到5-1a的样子。 Private Sub Command1_Click() ___(1)___ Command1.Enabled =False ___(2)___ End Sub Private Sub Command2_Click() ___(3)___ Command1.Enabled =True ___(4)___ End Sub (a) 图5-1 图像的显示与隐藏（一） (b) 7．设某工程运行时初始界面如图5-2a的样子，单击″隐藏图像″按钮（Command1）隐藏图片框Picture1中的图像，界面变成图5-2b的样子，这时单击″显示图像″按钮（Command1）界面又能回到5-2a的样子。 14