《循环结构程序设计》历届真题(1) 执行下面的程序段后，x 的值为 (2002年4月)。
x=5For i=1 To 20 Step 2x=x+i\5Next iA) 21B) 22 C) 23 D) 24(2) 在窗体上画一个命令按钮，然后编写如下事件过程：(2002年4月) Private Sub Command1_Click()For i=1 To 4x=4For j =1 To 3x=3For k=1 To 2x=x+6Next kNext jNext iPrint xEnd Sub程序运行后，单击命令按钮，输出结果是。
A) 7 B) 15C) 157 D) 538(3) 在窗体上画一个命令按钮，然后编写如下事件过程：(2002年4月) Private Sub Command1_Click()x=0Do Until x=-1a = InputBox("请输入A的值")a = Val(a)b = InputBox("请输入B的值")b = Val(b)x = InputBox("请输入x的值")x = Val(x)a = a+b+xLoopPrint aEnd Sub程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为。
A) 2B) 3 C) 14 D) 15(4) 阅读下面的程序段：(2002年4月)For i=1 To 3For j=1 To iFor k=j To 3Next kNext jNext i执行上面的三重循环后，a 的值为。
A)3 B) 9C) 14D) 21(5) 在窗体上画一个文本框（其中Name属性为Text1），然后编写如下事件过程：(2002年4月)Private Sub Form_Load()Text1.Text=""Text1.SetFocusFor i=1 To 10Sum=Sum+iNext iText1.Text=SumEnd Sub上述程序的运行结果是。
A) 在文本框Text1中输出55 B) 在文本框Text1中输出0C) 出错D) 在文本框Text1中输出不定值(6) 在窗体上画两个文本框(其Name 属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1)，然后编写如下事件过程：(2002年4月) Private Sub Command1_Click()x=0Do While x<50x=(x+2)*(x+3)n=n+1LoopText1.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 Integerx=1n=0Do While x<20x=x*3n=n+1LoopText1.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 IntegerFor I=0 To 50i=i+3n=n+1If i>10 Then Exit forNextText1.Text=Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是A)2B) 3C) 4 D) 5(9) 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: (2003年4月)Private Sub Command1_Click()x=0n=InputBox("")For i= 1 To nFor j = 1 To ix = x +1Next jNext iPrint xEnd 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 Integernum = 1Do Until num > 6Print num;num = num + 2.4LoopEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是A）1 3.4 5.8 B）1 3 5 C）1 4 7 D）无数据输出(12) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： (2 003年9月)Private Sub Command1_Click()Dim a As Integer, s As Integera = 8s = 1Dos = s + aa = a－1Loop While a <= 0Print s; aEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是A）7 9 B） 34 0 C） 9 7 D）死循环(13) 设有如下程序：(2003年9月)Private Sub Command1_Click()Dim sum As Double, x As Doublesum = 0n = 0For i = 1 To 5x = n / in = n + 1sum = sum + xNextEnd Sub该程序通过For循环计算一个表达式的值，这个表达式是A）1+1/2+ 2/3+3/4+4/5 B）1+1/2+2/3+3/4C）1/2+2/3+3/4+4/5D）1+1/2+1/3+1/4+1/5(14)设有如下程序段：（2004年9月）x=2For i=1 To 10 Step 2x=x+iNext运行以上程序后，x的值是A) 26 B) 27C) 38 D) 57(15) 在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：（2005年4月）Private Sub Command1_Click()Dim i As Integer, x As IntegerFor i = 1 To 6If i = 1 Then x = iIf i <= 4 Thenx = x + 1Elsex = x + 2End IfNext iPrint xEnd Sub程序运行后，单击命令按钮，其输出结果为______。
A)9B)6 C)12 D)15(16) 在窗体上画一个名称为Command1命令按钮，然后编写如下事件过程：（2005年4月）Private Sub Command1_Click()c = “ABCD”For n= 1 To 4Print ______NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容DCDBCDABCD则在______处填入的内容为。
A) Left(c,n) B) Right(c,n) C) Mid(c,n,1) D) Mid(c,n,n)(17) 执行以下程序段（2005年4月）Dim i As Integer, x As Integerx = 0For i = 20 To 1 Step -2x = x + i \ 5Next iPrint x后，x的值为______。
A)16 B)17C)18D)19(18) 假定有如下事件过程：（2005年9月）Private Sub Form_Click()Dim x As Integer, n As Integerx = 1n = 0Do While x < 28x = x * 3n = n + 1LoopPrint x, nEnd Sub程序运行后，单击窗体，输出结果是A）81 4 B）56 3 C）28 1 D）243 5(19) 有如下程序：（2005年9月）Private Sub Form_Click()Dim Check, CounterCheck = TrueCounter = 0DoDo While Counter < 20Counter = Counter + 1If Counter = 10 ThenCheck = FalseExit DoEnd IfLoopLoop Until Check = FalsePrint Counter, CheckEnd Sub程序运行后，单击窗体，输出结果为A）15 0 B）20 –1 C）10 True D）10 False (20) 有如下程序：（2005年9月）Private Sub Form_Click()Dim i As Integer, sum As Integersum = 0For i = 2 To 10If i Mod 2 <> 0 And i Mod 3 = 0 Thensum = sum + iEnd IfNext iPrint sumEnd Sub程序运行后，单击窗体，输出结果为A）12B）30 C）24 D）18(刘向阳整理)。