(a) 图5-2 图像的显示与隐藏（二） (b)
Private Sub Command1_Click() If Picture1.Visible = True Then ___(1)___ Command1.Caption =___(2)___ Else ___(3)___ Command1.Caption =___(4)___ End If End Sub
练习6 循环结构程序设计一、判断程序或程序段的执行结果。 （一）For ? Next 循环结构
1．下列程序段的执行结果为〔 〕。 I=0
For G = 10 To 19 Step 3 I=Ｉ＋1 Next G Print I
(A)4 (B)5 (C)3 (D)6
2．下列程序段的执行结果为〔 〕。 X=6
For K=1 To 10 Step - 2 X=X+K Next K Print K;X
(A)-1 6 (B)-1 16 (C)1 6 (D)11 31 3．下列程序段的执行结果为〔 〕。 K=0
For I=1 To 3 A=I ^ I ^ K Print A; Next I
(A)1 1 1 (B)1 4 9 (C)0 0 0 (D)1 2 3 4．下列程序段的执行结果为〔 〕。 N=10
For K=N To 1 Step-1
15
X=Sqr(K) X=X-2 Next K Print X-2
(A)-3 (B)-1 (C)1 (D)1.16227765 5．下列程序段的执行结果为〔 〕。 X=1 Y=1
For I=1 To 3 F=X+Y X=Y Y=F Print F; Next I
(A)2 3 6 (B)2 2 2 (C)2 3 4 (D)2 3 5 6．下列程序段的执行结果为〔〕。 A= “ABBACDDCBA” For I=6 To 2 Step -2 X =Mid(A,I,I) Y=Left(A,I) Z=Right(A,I) Z=X & Y & Z Next I Print Z
(A)ABA (B)AABAAB (C)BBABBA (D)ABBABA 7.给出下面程段的输出结果。 For X =1.5 To 5 Step 1.5 Print X Next X
8.给出下面程段的输出结果。 For I= -5 To -10 Step -1 X=X+I Print X Next I
9.给出下面程段的输出结果。 For I= 0 To 3
Print Tab(4*I+1);I; \ Next I
10.给出下面程段的输出结果。其中，Trim函数用于去除字符串前后的空格。 For I=1 To 7
Print Tab(8-I);String(I,Trim(Str(I))) Nesxt I
二、Do...Loop循环结
1.下列程序段的执行结果为[ ]. A=0:B=1
16
Do A=A+B B=B+1
Loop While A<10 Print A;B
(A)10 5 (B)A B (C)0 1 (D)10 30 2.下列程序段的执行结果为[ ]. I=4 A=5 Do I=I+1 A=A+2
Loop Until I>=7 Print\ Print\
(A)I=4 (B)I=7 (C)I=8 (D)I=7 A=5 A=13 A=8 A=11 3.下列程序段的执行结果为[ ]. N=0 J=1
Do Until N>2 N=N+1
J=J+N*(N+1) Loop
Print N;J
(A)0 1 (B)3 7 (C)3 21 (D)3 13
4.给出下面程段的输出结果。设运行时依次输入数据： 7,2,-3,8,-5,-10,18,-15,31,4,-1,-1 X=0
Do While X<> -1
X=Val(InputBox(\请输入数据X\ Y=Val(InputBox(\请输入数据Y\ If X * Y < X + Y Then Print X,Y Loop
5.给出下面程段的输出结果。 P=0 S=0 Do P=P+2 S=S+P
Loop While P < 11 Print \
6.给出下面程段的输出结果。 M1=1 M2=1
17
Do While M2<>6 M1=M1 * M2 M2=M2+1 Loop
Print\三、循环的嵌套
1.下列程序段的执行结果为[ ]. N=0
For I=1 To 3
For J=5 To 1 Step -1 N=N + 1 Next J,I Print N;J;I
(A)12 0 4 (B)15 0 4 (C)12 3 1 (D)15 3 1 2.下列程序段的执行结果为[ ]. A=0:B=0
For I= -1 To -2 Step -1 For J=1 To 2 B=B+1 Next J A=A+1 Next I Print A;B
(A)2 4 (B) -2 2 (C)4 2 (D)2 3 3.下列程序段的执行结果为[ ]. K=0
For J=1 To 2 For I=1 To 3 K=I+1 Next I
For I=1 To 7 K=K+1 Next I Next J Print K
(A)10 (B)6 (C)11 (D)16 4.给出下面程段的输出结果。 For a=1 To 6
Print Tab(7 - a); For b=1 To 2 * 2-1 Print\Next b Next a
四、程序填空题
1.以下程序用来产生20个(0,99)之间的随机整数,并将其中的偶数打印出来.
18
Private Sub Command 1_Click() Pandomize For I=1 To 20
X=Int(Rnd *__(1)__)
If X / 2=___(2)___Then Print X Next I End Sub
2.以下程序用来计算由键盘输入的N个数中正整数之和,负数之和,正整数的个数，负整数的个数。其中用C累加负数之和,IC累加负数的个数,D累加正数之和,ID累加正数的个数. Private Sub Command 1_Click() N=0
C=0:IC=0:ID=一0 For K=1 To N
A=Val(InputBox(“请输入A”)) If A<0 Then C=__(1)__:__(2)__ If A>0 Then D=__(3)__:__(4)__ Next K
Print”负数的个数为:”,IC Print”负数的和为:”,C Print”正数的个数为:”,ID Print”正数的和为:”,D End Sub
3.下面 是一个体操评分程序.20位评委,除去一个最高分和一个最低分,计算平均分(设满分为10分).
Private Sub Command 1_Click() Max=0 Min=10
For I=1 To 20
N=Val(InputBox(“请输入分数”) If__(1)__Then Max=N If__(2)__Then Min=N S=S+N Nest I S=__(3)__ P=S / 18
Print “最高分”;Max,最低分”;Min Print “最后得分:”;p End Sub
4.搬砖问题:36块砖36人搬,男的搬4块,女的搬3块,2个小儿抬一块,要求1次全部搬完,问需男,女,小儿各多少人.
Private Sub Command 1_Click() For Male=1 To 9 For Female =1 To 12 For Boy=2 To 36 Step 2
If Boy+Female+Male=36 And__(1)__Then
19