第4章 选择结构程序设计
１．你预习了本章内容了吗？共花时间 分
２．你复习了上一堂课内容吗？共花时间 分
３．你作业做了吗？ ４．作业是自己做的吗？
一、选择题
1. 下面程序段运行后，显示的结果是 。 Dim x As Integer x=0
If x Then Print x Else Print x+1
A．1 B. 0 C. -1 D .显示出错信息 2. 下面程序段求两个数中的大数， 不正确。
A . Max=X B .If X>Y Then Max = X Else Max=Y
If Y>=max Then Max =Y
C．Max=X D. If Y>=X Then Max=Y
If Y>=X Then Max =Y Max = X 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 D．25 -25
4. 已知变量A、B、C中C最小，则判断A、B、C可否构成三角形的逻辑表达式为： A． A>=B And B>=C And C>0 B． A+C>B And B+C>A And C>0 C．（A+B>=C Or A-B <=C） And C>0 D． A+B>C And A-B
A=75
If A>60 Then I=I+1
Elseif A>70 Then I=I+2
Elseif A>80 Then I=I+3
Elseif A>90 Then I=I+4 End If
Print “I=”;I
A．I=1 B．I=3 C．I=6 6. 下列程序段的执行结果为是 。
9
D．I=10
VB网络课堂：info.zjfc.edu.cn/vbweb
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． **1** C． **2** D． 0
1. 窗体上有一个命令按钮，事件代码如下：
Private Sub Command1_Click() A = \ B = \
A = Val(A) + Val(B) B = Val(\
If A <> B Then Print A - B Else Print B - A End Sub
结果： 程序执行后，单击命令按钮，输出结果为多少？
2. 下段程序执行后，设输入的数据分别为14、3、125、21时，写出在标签框Label1中显示的内容。
Private Sub Form_Click（） 结果： Dim A As Integer,W As Integer
A=Val（Inputbox（\请输入数据\， ，100）） Select Case A Mod 5 Case Is <4 W=A+10 Case Is <2 W=A * 2 Case Else W=A-10 End Select
Label1.Caption=\（W） End Sub
3．写出单击窗体4次，每次输入分别为1、2、3、4时窗体上显示的结果。
Dim s As Integer
Private Sub Form_Click() 结果： Dim x As Integer
x = Val(InputBox(\请输入一个正整数\ If x Mod 2 = 0 Then s = s * x Else
s = s + x End If
Me.Print \在当前窗体上输出 End Sub
10
VB网络课堂：info.zjfc.edu.cn/vbweb
三、程序填空题
1. 下面的程序用于求三个数中的最大数和最小数。
Private Sub Command1_Click（） A=Val（Inputbox（“A=？”）） B= Val（Inputbox（“B=？”）） C= Val（Inputbox（“C=？”）） Max=A Min=A
If B> (1) Then Max=B If B< (2) Then Min=B If (3) Then Max=C If (4) Then Min=C Print “最大数为”;Max Print “最小数为”;Min End Sub
2. 下程序判断从文本框Text1中输入的数据，如果该数据满足条件：除以3余2，除以5余3，除以7余4 ，则输出；否则将文本框内容清空。
Private Sub Command1_Click（） X=Val（Text1.Text） If （5） Then Print X Else
（6） End If End Sub
四、编程题
1. 输入一公元年号，判断是否是闰年。闰年的条件是：年号能被4整除但不能被100整除，或者能被400整除。
2．输入3个不同的数，将它们从大到小排序。 3. 编程计算下列分段函数值：
?x2?2x?6, x?0且x??f(x)??3?x?Sinx?2x, 0?x?10且x?2及x?3
??x?5?log10(x?4), 其他代码编写：
1、 2、
11
VB网络课堂：info.zjfc.edu.cn/vbweb
3、
批改人：
VB网络课堂：info.zjfc.edu.cn/vbweb
12