练习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

        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; "2" & 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

     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"I=";I

      Print"A=";A

     (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 "S=";S

   6.给出下面程段的输出结果。

     M1=1

     M2=1

     Do While M2<>6

      M1=M1 * M2

      M2=M2+1

     Loop

     Print"M1=";M1,"M2=";M2

三、循环的嵌套

   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)之间的随机整数,并将其中的偶数打印出来.

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

Print Male,Female,Boy

End If

Next Boy

Next Female

End Sub

5.以下程序用于计算N=1+(1+3)+(1+3+5)+…+(1+3+5+….39)

Private Sub Command 1_Click()

T=0

M=1

Sum=0

Do

T=T+__(1)__

Sum=Sum+__(2)__

M=M+2

Loop While__(3)__

Print “Sum=”;Sum

End Sub

6.以下程序用于在带垂直滚动条的文框Text1中输入3到100之间的全部素数.

Private Sub Command 1_Click()

Text1.Text=””

ForN=3 To 100

K=Int(Sqr(N))

I=2

Flag=0

Do While I<__(1)__And Flag=0

If N Mod I=0 Then Flag=1 Else I=I+1

Loop

If__(2)__Then

Text1.Text=Text1.Text&Str(N)&Chr(13)&Chr(10)

End If

Next N

End Sub

7.以下程序用来输出20个在开区(10,87)中的随机整数R,每行输出4个整数.

Private Sub Command 1_Click()

For I=1 To 20

R=__(1)__

Print R;

If__(2)__Then Print

Next I

End Sub

8.以下程序在文件框Text1中输入任何一字符串,并按相反的次序显示在文框Text2中.

Private Sub Command 1_Click()

Dim N As String,C As String, D As String

N=Text1.Text

M=__(1)__

For I=M To 1 Step -1

C=Mid(N,I,1)

D=D&__(2)__

Next I

__(3)__=D

End Sub

9.单击窗体时输入”:斐波那契数列”的前20项.该数列第一项为0,第二项为1,其后每一项的值都是前两项之和.即:0,1,1,2,3,5,8,13,…从题后供选择的答案中选出正确答案,填入以下程序中相应处,构成完整程序.

Private Sub Command 1_Click()

X1=1

X2=1

N=0

Do While__(1)__

Print X1,X2

X1=__(2)__

X2=__(3)__

N=N+1

Loop

End Sub

供选择的答案:

(1)(A)N<=0(B)N<9(C)N<10(D)N<20     (2)(A)X1+X2(B)X2(C)X1+N(D)X2+N

(3)(A)X1+X2(B)X2(C)X1+N(D)X2+N

 

 

 

 

 

 

练习6   循环结构程序设计

一、判断程序或程序段的执行结果

1．A     2．C      3．A      4．A      5．D      6．C

7） 1．5

    3

4．5

8） -5

-11

-18

-26

-35

-45

9）  02 0

         12 1

            22 2

               32 3

10）            1

               22

              333

             4444

           55555

          666666

         7777777

二、Do...Loop循环结

1．A    2.  D     3. C

4）  -3         8

     18       -15

5） S=42

6）  M1=120       M2=6

三、循环的嵌套

1.  B   2.  A   3 .   C

4.            ***

             ***

            ***

           ***

         ***

        ***

四、程序填空题

1） 98+1           x \ 2  （或  Fix(x/2)  或Int(x/2)）

2)  C+A          IC=IC+1         D+A                ID=ID+1

3)  N>Max        N

4)  4*Male + 3* Female + Boy \ 2=36

5)  M      T     M<=39 (或 M<41)

6)  k+1 (或 =k)           Flag=0

7)  Int(Rnd*76+11)       I MOD 4 = 0

8)  Len(N)              C             Text2

9)  C A A