第四章基本的控制结构答案

基本的控制结构

一、选择题

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.下面程序运行后输出的结果是 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.下面程序的功能是（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 的循环次数是___ 6 ___。

4.循环语句 For I= -3.5 To

5.5 Step 0.5 的循环次数是__ 19 。

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

6. 下面程序运行后的结果是__ 10100___ _？该程序的功能是_将十进制数转换成二进制字符串___？

Private Sub Command1_Click()

Dim x$, n%

n = 20