第四章基本的控制结构

基本的控制结构
一、选择题
1.VB 提供了结构化程序设计的三种基本结构，这三种基本结构是 。

（A ） 递归结构、选择结构、循环结构 （B ）选择结构、过程结构、顺序结构
（C ）过程结构、输入输出结构、转向结构 （D ）顺序结构、选择结构、循环结构
2．下面程序段运行后，显示的结果是 。

Dim x
If x then print x else print x+1
(A) 1 (B)0 (C)-1 (D)显示出错信息
3．对于语句If x=1 then y=1，下列说法正确的是 。

(A) x=1和 y=1均为赋值语句 （B ）x=1和y=1均为关系表达式
(C) x=1为关系表达式，y=1为赋值语句 （D ）x=1为赋值语句，y=1为关系表达式
4．用if 语句表示分段函数f(x)= 1,31,12<+≥+x x x x ，下列不正确的程序段是
(A) f=x*x+3 (B) if x>=1 Then f=Sqr(x+1) If x>=1 Then f=Sqr(x+1) if x<1 Then f=x*x+3
(C)if x>=1 Then f=Sqr(x+1) (D)if x<1 Then f=x*x+3 Else f=x*x+3 Else f=Sqr(x+1)
5.下面程序段，运行后显示的结果是
Dim x
X=Int(Rnd)+5
Select Case x
Case 5
Print “优秀”
Case 4
Print “良好”
Case 3
Print “通过”
Case Else
Print “不通过”
End Select
(A)优秀 (B)良好 (C)通过 (D)不通过
6．下面语句执行后，变量w 中的值是
W=Choose(Weekday(“2007,5,1”),“Red”, “Green ” “Blue ” “Yellow ”)
(A)Null (B) “Red” (C) “Blue ” (D) “Yellow ”
7. 以下______是正确的For … Next 结构。

（A ）For x=1 To Step 10 （B ）For x = 3 To 3 Step 3
… …
Next x Next x
（C） For x = 1 To 10 （D） For x = 3 To 10 Step 3 AA: … …
Next x Next y
If i = 10 Then GoTo AA
8. 下列循环能正常结束循环的是。

(A) i=5 (B) i=1
DO DO
i=i+1 i=i+2
Loop Until i<0 Loop Until i=10
(C) i=10 (D) i=6
DO DO
i=i+1 i=i-2
Loop Until i>0 Loop Until i=1
9. 哪个程序段不能分别正确显示1！、2！、3！、4！的值______。

（A）For i = 1 To 4
n = 1
For j = 1 To i
n = n * j
Next j
Print n
Next i （B）For i = 1 To 4
For j = 1 To i
n = 1
n = n * j
Next j
Print n
Next i
（C）n = 1
For j = 1 To 4
n = n * j
Print n
Next j （D）n = 1
j=1
Do While j<=4
n = n * j
Print n
j=j+1
Loop
10. 下列程序的执行结果是______。

Dim s,n As Integer
s=0∶n=1
Do while n<5
s=s+n
n=n+1
Loop
Print s
（A） 10 （B） 50 （C）25 （D）15
11. Do-Loop［While｜Until］循环体的作用说明正确的是______ 。

(A) 不能用Do-Loop语句设计出预先确定循环次数的循环
(B) While关键字或Until关键字必须选择其中之一
(C) While关键字或Until关键字可以同时使用
(D) While关键字或Until关键字的作用正相反
12.单击如下事件过程，显示的结果为______。

Private Sub Command1_Click()
A=0
For M=1 To 10
A=A+1
B=0
For J=1 To 10
A=A+1
B=B+2
Next J
Next M
Print A；B
End Sub
（A）10 20 （B）20 110 （C）110 20 （D）200 110
三、填空题
1.下面程序运行后输出的结果是
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 Textl_KeyPress ( KeyAscii As Integer )
If KeyAscii = 13 Then
If IsNumeric(Textl) Then
Select Case Textl Mod 2
Case 0
n= n + Textl
Case 1
m = m + Textl
End Select
End If
Text1 = “”
Text1.SetFocus
End If
End Sub
3. 循环语句 For I= -3 To 20 Step 4 的循环次数是___ ___。

4. 循环语句 For I= -3.5 To
5.5 Step 0.5 的循环次数是__ 。

5. 循环语句 For I= -3 To 20 Step 0 的循环次数是_ _____。

6. 下面程序运行后的结果是____ _？该程序的功能是_将十进制数转换成二进制字符串___？
Private Sub Command1_Click()
Dim x$, n%
n = 20
x=""
Do While n <> 0
a = n Mod 2
n = n \ 2
x = Chr(48 + a) & x
Loop
Print x
End Sub
7. 给定年份，下列程序用来判断该年是否闰年，请在划线处将程序补充完整。

提示：闰年的条件是年号可以被4整除但不能被100整除，或者能被400整除。

Private Sub Command6_Click()
Dim y As Integer
y=InputBox(″请输入年号″)
If(y Mod 4=0 _and_ y Mod 100 _<>0 or_ (y Mod 400=0)Then
Print ″是闰年″
Else
Print ″是普通年份″
End If
End Sub
8. 下列程序完成如下功能：以文本框Text1的值为n，计算1!+2!+3!+……n!的值。

清除图形框中显示的内容，并显示如下内容：
sum=1!+2!+3!+……n! =xxx
Private Sub Command1_Click()
n = Val(Text1)
__sum=0____ : t = 1
For i = 1 To n
t = _t*i____
Sum = Sum + t
Next i
__picture1.cls____
Picture1.Print "sum=";
For i = 1 To n
If i=1__ Then Picture1.Print i & "!"; Else Picture1.Print "+"; i & "!";
Next i
______
Picture1.Print " ="; Sum
End Sub。