第六章 循环结构程序设计

《循环结构程序设计》历届真题

(1) 执行下面的程序段后，x 的值为 (2002年4月)。

x=5

For i=1 To 20 Step 2

x=x+i\5

Next i

A) 21B) 22 C) 23 D) 24

(2) 在窗体上画一个命令按钮，然后编写如下事件过程：(2002年4月) Private Sub Command1_Click()

For i=1 To 4

x=4

For j =1 To 3

x=3

For k=1 To 2

x=x+6

Next k

Next j

Next i

Print x

End Sub

程序运行后，单击命令按钮，输出结果是。

A) 7 B) 15C) 157 D) 538

(3) 在窗体上画一个命令按钮，然后编写如下事件过程：(2002年4月) Private Sub Command1_Click()

x=0

Do Until x=-1

a = InputBox("请输入A的值")

a = Val(a)

b = InputBox("请输入B的值")

b = Val(b)

x = InputBox("请输入x的值")

x = Val(x)

a = a+b+x

Loop

Print a

End Sub

程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为。

A) 2B) 3 C) 14 D) 15

(4) 阅读下面的程序段：(2002年4月)

For i=1 To 3

For j=1 To i

For k=j To 3

Next k

Next j

Next i

执行上面的三重循环后，a 的值为。

A)3 B) 9C) 14D) 21

(5) 在窗体上画一个文本框（其中Name属性为Text1），然后编写如下事件过程：(2002年4月)

Private Sub Form_Load()

Text1.Text=""

Text1.SetFocus

For i=1 To 10

Sum=Sum+i

Next i

Text1.Text=Sum

End Sub

上述程序的运行结果是。

A) 在文本框Text1中输出55 B) 在文本框Text1中输出0

C) 出错D) 在文本框Text1中输出不定值

(6) 在窗体上画两个文本框(其Name 属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1)，然后编写如下事件过程：(2002年4月) Private Sub Command1_Click()

x=0

Do While x<50

x=(x+2)*(x+3)

n=n+1

Loop

Text1.Text=Str(n)

Text2.Text=Str(x)

End Sub

程序运行后，单击命令按钮，在两个文本框中显示的值分别为

A) 1和0 B) 2和72 C) 3和50 D) 4和168

(7)在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：(2002年9月)

Private Sub Command1_Click()

Dim x As Integer,n As Integer

x=1

n=0

Do While x<20

x=x*3

n=n+1

Loop

Text1.Text=Str(x)

Text2.Text=Str(n)

程序运行后，单击命令按钮，在两个文本框中显示的值分别是

A) 15和1 B) 27和3C) 195和3 D) 600和4

(8) 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：(2002年9月)

Private Sub Command1_Click()

Dim i As Integer,n As Integer

For I=0 To 50

i=i+3

n=n+1

If i>10 Then Exit for

Next

Text1.Text=Str(n)

End Sub

程序运行后，单击命令按钮，在文本框中显示的值是

A)2B) 3C) 4 D) 5

(9) 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: (2003年4月)

Private Sub Command1_Click()

x=0

n=InputBox("")

For i= 1 To n

For j = 1 To i

x = x +1

Next j

Next i

Print x

End Sub

程序运行后,单击命令按钮,如果输入3,则在窗体上显示的内容是______。

A)3 B)4 C)5 D)6

(10) 设有以下循环结构(2003年9月)

Do

循环体

Loop While <条件>

则以下叙述中错误的是

A）若"条件"是一个为0的常数，则一次也不执行循环体

B）"条件"可以是关系表达式、逻辑表达式或常数

C）循环体中可以使用Exit Do语句

D）如果"条件"总是为True，则不停地执行循环体

(11) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：(2 003年9月)

Private Sub Command1_Click()

Dim num As Integer

num = 1