VB循环语句与数组习题

vb循环练习题VB循环练习题循环是计算机编程中非常重要的概念之一，它允许我们重复执行一段代码，以达到简化程序逻辑和提高效率的目的。

在VB（Visual Basic）编程语言中，循环也是一项基本技能。

为了帮助大家更好地掌握VB循环，下面将给出一些练习题，供大家进行实践。

1. 打印数字编写一个程序，使用循环打印出1到10的数字。

要求每个数字占一行，并在数字前面加上"Number: "前缀。

例如，输出应该是：Number: 1Number: 2...Number: 102. 计算和编写一个程序，使用循环计算1到100的所有整数的和，并将结果打印出来。

要求使用一个变量来保存累加的结果，并在循环结束后打印出结果。

3. 奇偶数判断编写一个程序，使用循环判断一个给定的整数是奇数还是偶数。

要求用户输入一个整数，然后使用循环判断并打印出结果。

例如，如果用户输入的是5，则程序应该输出"5是奇数"；如果用户输入的是8，则程序应该输出"8是偶数"。

4. 阶乘计算编写一个程序，使用循环计算一个给定的正整数的阶乘。

要求用户输入一个正整数，然后使用循环计算并打印出结果。

阶乘的定义如下：n! = n * (n-1) * (n-2) * ... * 2 * 1。

例如，如果用户输入的是5，则程序应该输出"5的阶乘是120"。

5. 九九乘法表编写一个程序，使用循环打印出九九乘法表。

要求每个乘法式占一行，并且每行的结果按照对齐方式排列。

例如，输出应该是：1 * 1 = 11 *2 = 2 2 * 2 = 4...1 * 9 = 92 * 9 = 18 ... 9 * 9 = 81通过完成以上练习题，你将能够更好地理解和掌握VB循环的使用。

循环是编程中非常常见的一种结构，掌握好循环的使用将使你的代码更加简洁高效。

此外，通过实践练习，你还能够提高自己的编程能力和逻辑思维能力。

循环结构测试题(四)一：选择题1：以下（）是正确的for….next结构。

（A）f or 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 step 3re: …. ……Next x next y If I=10 then goto re2:下列循环语句能正常结束循环的是（）（A）I=5 (B) I=1do doI=I+1 I=I+2 Loop until I<0 loop until I=10(C) I=10 (D) I=6do doI=I-1 I=I-2 Loop until I<0 loop until I=1 3:下面程序段的运行结果为（）for I=3 to 1 step –1print spc(5-I);for j=1 to 2*I-1 print “*”; next j print next I (A)4下列程序在文本框输入“ABCD ”四个字符时，窗体上显示的是（ ）private sub text1_change( ) print text1.text; end sub(A) ABCD (B) ( C ) AABABCABCD5哪个程序段不能分别正确显示1!,2!,3!,4!的（ ）* * * * * * * * *(B) * * * * ** * * *(C) * * * * ** * * *(D) * * * * ** * * *A B C D(D) AAB ABC ABCD二：填空题1：要使下列For 语句循环执行20次，循环变量的初值应当是：for k=( ① ) to –5 step –2 2:下面程序段显示（ ② ）个“*”。

For I=1 to 5 For j=2 to I Print “*”; Next j Next I3: 下列第40句共执行了（ ③ ）次，第41句共执行（④ ）次。

vb三种基本结构练习题1、计算圆的面积（顺序结构）dim r,s,c as singler=inputbox("输入r的值")s=3.14*r*rc=2*3.14*rprint sprint c2、小明去买电池，2.5元一节，买电池超过10节，超出的部分按八折出售。

输入小明买电池的数量，输出小明应付的钱数。

（选择语句）dim a as integerdim q as singlea=inputbox("输入小明买的电池数")if a>10 thenb=25+(a-10)*2.5*0.8elseb=a*2.5end ifprint b3、求1+2+3+4+……+100的和。

（循环语句）dim i,sum as integerfor i=1 to 100sum=sum+inext iprint sum4、输入数字n，求n！（n!=1*2*3*……*n）（循环语句）dim i,sum,n as longn=inputbox("输入n的值")sum=1for i=1 to nsum=sum*inext iprint sumVB上机练习汇总1、在窗体上任意位置画一个文本框和一个命令按钮，编写程序，当用户单击命令按钮时，文本框移动到窗体的左上角，并且文本框的大小是原来的2倍。

2、在窗体上任意位置画一个文本框和一个命令按钮，设置窗体的标题属性为“信息窗口”；命令按钮的标题属性为“确定”。

编写程序，当用户单击命令按钮时，在文本框中显示“包头师范学院”，要求字体为隶书、加粗、加下划线、字号为20、颜色为红色。

3、在窗体上任意位置画两个命令按钮，分别设置它们的标题属性为：加载图片、显示信息。

编写程序，当用户单击第一个命令按钮时，在窗体上加载一幅图片（图片自定）。

当用户单击第二个命令按钮时，在窗体上打印信息“包头师范学院“。

4、例1:在窗体上部设置一个文本框，文本框的下面设置3 个命令按钮，其中左边按钮中标有“单击此按钮”，中间按钮中标有“清除”，右边按钮中标有“程序结束”。

1.终止FOT/NEXT循环的条件是：________2.决定FOR/NEXT循环次数的因素是循环变量的________,_______,和步长。

3.FOR/NEXT循环的步长为____时可以省略。

4.FOR I=A TO B STEP C，循环次数的表达式为________.5.写出下面程序的结果。

(1) For i=-5 to -11 step -3S=s+iPrint sNext(2) A$=”ls”For x=5 to 3 step -1A$=a$+a$Next xPrint mid$(a$,x,3)(3) for i=9 to 2 step -6i=i+2print i*2;next iprint i*2;(4) for i=1 to 10if i\2=i/2 then 40s=s+i40 nextprint s(5) p=1for a=10 to 2 step -2p=p*anext a?a,p(6) s$=””for i=65 to 70 step 2s$=s$+chr$(i)nextprint s$(7) c$=”1234”for i=1 to len(c$)n=n+val(mid$(c$,i))nextprint n (8) for x=0 to 100 step 2print xnext x程序循环了________次。

(9) for x=-3 to 7 step 2print x;next(10) for x=8 to 7 step -2print x;next x(11) for x=2 to 7 step 2x=x+2print x;next x(12) for x=-2 to -7 step -2x=-x^2print x;next x(13) for x=1.5 to 11 step 1.5print x;next x(14) for x%=1.5 to 15 step 1.5print x%;next x%(15) for i=1 to 10print I;i=i+1next i(16) for i=1 to 10print I;i=i*2next i(17) for a=1 to 5b=a*a+1print a,bc=a*anext aprint “b=”;b,”c=”;c (18) for i=-5 to 5if i>0 then x=x+iif i<0 then y=y+inext iprint “x=”;xprint “y=”;y(19) s=0:m=1for k=1 to 100s=s+m*k:m=-mnext kprint s(20) for i=2 to 1 step -1print inext iprint i(21) s=0for i=1 to 5y=rnd(1)+1s=s+int(y)nextprint s(22) k=1:s=0for i=1 to 5s=s+k*ik=-knext iprint s(23) for i=10 to 6 step -1J=iNext iPrint j;i(24) p=1For a=10 to 2 step -2P=p*aNext aPrint a,p(25) x=1For i=1 to 3If k<=1 then a=x*xIf k<=2 then a=x*x+1If k<=3 then a=x*x+2Print a;Next i(26) s=0For i=1 to 3If i>=1 thenP=1Elseif i>=2 thenP=2Elseif i>=3 thenP=3ElseP=4End ifPrint ps=s+pnext iprint s(27) for j=5 to 8A=a*10+jNext jPrint a(28) aa$=”43.2”:bb$=”98.7”Cc$=aa$+bb$Dd=val(cc$)Print dd(29) bb$=”Inviting a friend to dinner”M=len(bb$)For j=1 to mB$=mid$(bb$,j,1)If b$=”n” then x=x+1Next jPrint x6.计算S=1+1/2+1/3……1/10S=0FOR TO________S=________NEXTPRINT S7.计算S=(1×2)+(3×4)+……+(9×10)S=0FOR I=1 TO____S=S+_______NEXT IPRINT S8.求1~100 奇数的平方和,即S = 1 2 +3 2 + (992)FOR I=1 TO________S=S+_________NEXT IPRINT “SUM=”; S9.输入任一字符串, 然后按相反次序打出来INPUT A$M=________B$=“”FOR K=M TO 1 STEP-1B$=________C$=C$+B$NEXT KPRINT C$10.用子程序的方法求2!+3!+4!的值S=0FOR T=2 TO 4S=S+PNEXT TPRINT “2!+3!4!=”; SENDP=1FOR K=1 TO________NEXT KNEXT K________11.输入一个较短的字符串,查找是否包含在字符串“The COMPAQ Personal Computer BASIC”中,并指出短字符串在长字符中串中的位置。

循环部分1. 求自然数1～100之间奇数之和。

2. 求自然数1～100之间偶数之和。

3. 编程计算从200到1000之间的所有4的倍数之和。

4. 编程计算从300到1000之间的所有7的倍数之和。

5. 编写程序在窗体上显示出：5/6+4/5+3/4+2/3+1/26. 编写程序，通过InputBox函数从键盘上输入4个数,计算并在窗体上显示这4个数的和及平均值。

7. 在窗体的单击事件过程中，编写程序计算1！+2！+3！+ (20)8. 有一个窗体，窗体中有一个文本框，名称为Text1，有一个按钮，试编写按钮的单击事件，实现计算1！+2！+3！+…+10!,将结果显示在文本框Text1中。

( 或参照 7 用教材:P86 [例4-21] 方法 )9. 编写程序计算：s=1+1/2!+1/3!+…+1/n!,说明：在窗体中有一个文本框控件：Text1,用来接收n的值，有一个标签控件：Label1，用来显示S的值，试编写窗体的单击事件，实现计算与显示功能，只要求写出事件的主要代码，事件过程的起始语句和结束语句可略去。

( 或参照7 用教材:P87 [例4-22] 方法 )10. 编写程序，在窗体上输出由1、2、3、4、5这五个数字组成的所有可能的两位数，并统计它们的个数。

说明: 程序中红色标示的部分控制每行输出5个数11. 求s=a+aa+aaa+…+aaa…aaa(n个a),其中a和n的值由用户自己输入。

例如，当a=3,n=4时，S=3+33+333+3333。

12. 在窗体上输出下三角的九九乘法表。

13. 编写程序，将26个字母逆序输出。

14. 编写程序，将字符串"山高人为峰"按逆序"峰为人高山"输出。

15. 设纸的厚度为0.5毫米，将纸对折，再对折…，求至少对折多少次，纸张的厚度能达到珠穆朗玛峰的高度8848米。

16. 编写程序，求s的值，s=1×2×3+2×3×4+…+n×(n+1)×(n+2)的值。

VB程序设计--第章数据的循环处理含答案(二)VB程序设计--第章数据的循环处理含答案VB程序设计是一种非常实用的编程语言，可以用于开发各种各样的应用程序。

在VB程序设计中，数据的循环处理是非常重要的一部分。

本章将介绍数据的循环处理的相关知识。

1.什么是数据的循环处理？数据的循环处理是指对一组数据进行重复的操作。

在VB程序设计中，数据的循环处理通常使用循环结构来实现。

循环结构可以让程序在满足一定条件的情况下，重复执行一段代码，从而对一组数据进行处理。

2.常见的循环结构有哪些？在VB程序设计中，常见的循环结构有for循环、while循环和dowhile循环。

for循环是一种基于计数器的循环结构，可以用于对一组数据进行重复处理。

for循环的语法格式如下：For 计数器 = 初始值 To 结束值 Step 步长'执行代码Next 计数器while循环是一种基于条件的循环结构，可以用于对一组数据进行重复处理。

while循环的语法格式如下：While 条件'执行代码Wenddo while循环是一种基于条件的循环结构，可以用于对一组数据进行重复处理。

do while循环的语法格式如下：Do While 条件'执行代码Loop3.如何使用循环结构对数据进行处理？使用循环结构对数据进行处理的过程通常可以分为以下几个步骤：（1）初始化计数器或条件；（2）进入循环结构；（3）执行循环体的代码；（4）更新计数器或条件；（5）判断是否满足循环结束的条件，如果满足则退出循环结构，否则返回第（3）步。

例如，下面的代码演示了如何使用for循环对一组数据进行求和：Dim sum As IntegerFor i = 1 To 10sum = sum + iNext iMsgBox "1到10的和为：" & sum4.常见的循环处理应用场景有哪些？在VB程序设计中，常见的循环处理应用场景有很多，例如：（1）对数组进行遍历；（2）对文件进行读写操作；（3）对数据库进行查询和更新操作；（4）对用户输入的数据进行验证和处理；（5）对图形界面进行绘制和更新操作等。

VB循环结构及数组练习一、单选题1.执行以下程序段后，i的值为（B）For i = 1 To 10 Step 2y = y + iNext iA）10 B）11 C）12 D）252.假定有如下语句：Private Sub Command1_Click()Counter = 0For i = 1 To 4For j = 6 To 1 Step -2Counter = Counter + 1Next jNext iLabel1.Caption = Str(Counter)End Sub程序运行后，结果为（B）A）11 B）12 C）16 D）203. 假定有如下语句：Private Sub Command1_Click()For i = 1 To 4If i = 1 Then x = iIf i <= 4 Then x = x +1Print x;End Sub程序运行后，结果为A）1 2 3 4 B）2 3 4 5 C）2 3 4 4 D）3 4 5 64.哪个程序段不能分别正确显示1!、2!、3!、4!的值（B）A）For i = 1 To 4n = 1For j = 1 To in = n * jNext jPrint nNext iB）For i = 1 To 4For j = 1 To in = 1n = n * jNext jPrint nNext iC）n = 1For j = 1 To 4n = n * jPrint nNext jD）n = 1: j = 1Do While j <= 4n = n * jPrint nj = j + 1Loop5. 编写如下的事件过程：Private Sub Command1_Click()For i = 1 To 4For j = 0 To iPrint Chr$(65 + i);Next jPrintNext iEnd Sub程序运行后，在窗体上显示的内容是（A）A）BB B）A C）B D）AA CCC BB CC BBB DDDD CCC DDD CCCC EEEEE DDDD EEEE DDDDD6. 编写如下的事件过程：Private Sub Command1_Click()Dim x,n As Integerx = 1n = 0Do While x < 20x = x * 3n = n + 1LoopText1.Text = Str (x)Text2.Text = Str (n)End Sub运行程序后，在2个文本框中显示的值分别是（B）A）20和1 B）27和3 C）195和3 D）600和47. 编写如下的事件过程：Private Sub Command1_Click()Dim i,n As IntegerFor i = 0 To 50i = i + 3n = n + 1If i > 10 Then Exit ForNextText1.Text = Str (n)End Sub运行后，文本框中显示的值是（B）A）2 B）3 C）4 D）58. 编写如下的事件过程：Private Sub Command1_Click()c = 1234c1 = Trim (Str(c))For i = 1 To 4Print ________NextEnd Sub运行程序后，窗体上显示如下11 21 2 31 2 3 4则应该在________处填写的表达式是（B）A）Right (c1,n) B）Left (c1,i) C）Mid (c1,n,1) D）Mid (c1,n,n)9. 编写如下的事件过程：Private Sub Command1_Click()n = Val (Text1.text)For i = 2 To nFor j = 2 To Sqr(i)If i Mod j = 0 Then Exit ForNext jIf j > Sqr(i) Then Print iNext iEnd Sub该事件过程的功能是：（C）A）输出n以内的奇数B）输出n以内的偶数C）输出n以内的素数D）输出n以内能被j整数的数10. 编写如下的事件过程：For i = 1 To 3For j = 5 to 1 Step -1Print i*jNext j,i则语句Print i*j 的执行次数是（A）A）15 B）16 C）17 D）1811.以下程序段输出结果为（B）x = 1y = 4Do Until y > 4x = x * yy = y + 1LoopPrint xA）1 B）4 C）8 D）2012.执行下面的程序段后，x的值为（A）x = 5For i = 1 To 20 Step 2x = x + i\5Next iA）21 B）22 C）23 D）2413. 编写如下的事件过程：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程序运行后，输出结果是（B）A）7 B）15 C）157 D）538 14.有如下的程序段：For i = 1 To 3For j = 1 To ia = a + 1Next jNext i执行上面程序后，a的值为（C）A）3 B）9 C）6 D）2115.有如下的程序段：n = 0For i = 1 To 3For j = 1 To iFor k = j To 3n = n + 1Next kNext jNext i执行上面程序段后，n的值为：（B）A）3 B）14 C）9 D）2116.阅读程序Private Sub Form_Click()x = 50For i = 1 To 4y = InputBox (“请输入1个整数”)y = Val (y)If y Mod 5 = 0 Thena = a + yx = yElsea = a + xEnd IfNext iPrint aEnd Sub程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为（A）A）100 B）50 C）120 D）701.如有以下程序代码：Option Base 1Private Sub Command1_Click()d = 0c = 10x = Array(10, 12, 21, 32, 24)For i = 1 To 5If x(i) > c Thend = d + x(i)c = x(i)Elsed = d - cEnd IfNext iPrint dEnd Sub程序运行后，在窗体上输出的内容为（C）A）89 B）99 C）23 D）772.下面语句定义的数组元素个数中（C）Dim arr(3 To 5, -2 To 2)A）20 B）12 C）15 D）243. 下面语句定义的数组元素个数中（D）Dim a(-3 To 4, 3 To 6)A）18 B）28 C）21 D）324. 如有以下程序代码：Private Sub Command1_Click()Dim arr1(10), arr2(10)For i = 1 To 10arr1(i) = 3 * iarr2(i) = arr1(i) * 3Next iText1.Text = Str(arr2(i / 2 - 0.1))End Sub程序运行后，在文本框显示的是（B）A）36 B）45 C）54 D）635. 如有以下程序代码：Option Base 1Private Sub Command1_Click()Dim aa = Array(1, 2, 3, 4)j = 1For i = 1 To 4s = s + a(i) * jj = j * 10Next iPrint sEnd Sub运行程序后，在窗体上输出的内容为（D）A）1234 B）12 C）34 D）43216. 如有以下程序代码：Private Sub Command1_Click()Dim array1(10, 10) As IntegerDim i, j As IntegerFor i = 1 To 3For j = 2 To 4array1(i, j) = i + jNext jNext iText1.Text = array1(2, 3) + array1(3, 4)End Sub运行程序后，在窗体上输出的内容为（A）A）12 B）13 C）14 D）157.假设通过复制、粘贴建立了一个命令按扭数组Command1，则以下说法错误的是（D）A）数组中每个命令按扭的名称（Name属性）均为Command1B）数组中每个命令按扭的大小都一样C）数组中每个命令按扭可以使用同一个时间过程D）用名称Command1可以访问数组中每个命令按扭8. 如有以下程序代码：Private Sub Command1_Click()Dim arr1(10), arr2(10) As Integern = 3For i = 1 To 5arr1(i) = iarr2(n) = 2 * n + iNext iPrint arr2(n); arr1(n)End Sub运行程序后，在窗体上输出的内容为（A）A）11 3 B）3 11 C）13 3 D）3 139.如有以下程序代码：Private Sub Command1_Click()Dim arr(3, 3) As IntegerFor i = 1 To 3For j = 1 To 3If j = i Or j = 3 - i + 1 Thenarr(i, j) = 1Elsearr(i, j) = 0End IfNext jNext iPrint arr(1, 1) + arr(2, 2) + arr(3, 3)End Sub运行程序后，在窗体上输出的内容为（D）A）0 B）1 C）2 D）310.如有以下程序代码：Option Base 1Dim a() As IntegerPrivate Sub Form_Click()Dim i As Integer, j As IntegerReDim a(3, 2)For i = 1 To 3For j = 1 To 2a(i, j) = i * jNext jNext iReDim Preserve a(3, 4)For i = 3 To 4a(3, i) = i + 5Next iPrint a(3, 2); a(3, 4)End Sub运行程序后，在窗体上输出的内容为（B）A）0 0 B）6 9 C）7 12 D）8 1311.在窗体上话3个单选按扭，组成1个名为chkOption的控件数组。

1.打印有规律图形Private Sub Form_Click()For i = 1 To 9Print Tab(20 - i); String(2 * i - 1, Trim(Str(i))) Next iPrint Tab(10); String(19, Right(Str(i), 1)) End Sub2.近似计算pi的值；Private Sub Command1_Click()n = Text1pi = 2For i = 1 To na = (2 * i) * (2 * i) / ((2 * i - 1) * (2 * i + 1)) pi = pi * aNext iText2 = piEnd Sub3.显示图形Private Sub Picture1_Click()Dim se As StringFor i = 1 To 6s = 0For j = 1 To is = 10 * s + jIf i Mod 2 = 0 Thense = "-" & sPicture1.Print Tab(j * 9 + 1); se; Else: se = sPicture1.Print Tab((j) * 9 + 2); se; End IfNext jPicture1.PrintNext iEnd Sub4.显示水仙花数，三位数的Private Sub Form_Click()For s = 100 To 999a = s \ 100b = (s - 100 * a) \ 10c = s - 100 * a - 10 * bIf s = a * a * a + b * b * b + c * c * c Then Print sEnd IfNext sEnd Sub5.求sn=a+aa+aaa……+aaaa（n个a）a是1到9的随机数，n是5到10的随机数Private Sub Command1_Click()m = Int(Rnd * 9 + 1)n = Int(Rnd * 6 + 5)temp = 0s = 0For i = 1 To ntemp = temp * 10 + ms = s + tempNext iPrint sPrint mPrint nEnd Sub6.规范文字句子开头大写，其他都小写，句子结束符号位“.”“！”“？”Option ExplicitPrivate Sub Command1_Click()Dim T As String, i, S As String, zf As StringDim OutPut As StringT = "."zf = Trim(Text1.Text)For i = 1 To Len(zf)S = Mid(zf, i, 1)OutPut = OutPut & IIf(InStr("?.!？。

一、VB 基本知识及选择、循环结构习题一、基本概念题（1） 说明下列哪些是Visual Basic 合法的直接常量，并分别指出它们的类型。

100.0 %100 1E1 123D3 123,456 0100“ASDF” “1234.5” #2004/10/7# 100# π&O78 &H123 True T -1123! 345.54#答：在VB 中，直接常量是以直接明显的形式给出的数据。

根据数据类型的不同，直接常量分为：字符串常量、数值常量、日期常量和布尔常量。

字符串常量是由一对半角双引号“””加以界定的字符序列，该字符序列可以是任何能被计算机处理的字符。

本题中，“ASDF ” 、 “1234.5”是字符串常量；数值常量是由数值、小数点和正负号所构成的数值。

在Visual Basic 中除十进制数值常量外，还有八进制、十六进制数值常量。

八进制常量前加&O ；十六进制常量前加&H 。

本题中，100.0、1E1、123D3、0100、100#、&O78 、&H123、-1123!和345.54#均为数值常量。

日期常量用来表示某一天或某一天的具体时间。

在Visual Basic 中，日期常量用两个“#”号加以界定。

本题中，#2004/10/7#是日期常量。

逻辑型常量只有True 和False 两个值，表示“真”和“假”。

本题中，True 是逻辑常量。

本题中，％100、123,456、π、T 不是合法的常量。

（2）下列数据哪些是变量，哪些是常量？是什么类型的常量？Name “name” False ff “11/16/99” cj“120” n #11/12/2004# 12.345答：“name ”、 “11/16/99”、 “120”是字符串常量；12.345是数值常量；#11/12/2004#是日期常量；False 是逻辑常量。

Name 、ff 、cj 、n 是变量。

VB循环结构练习题一、分析程序的运行结果（每题2分，共60分）1>以下循环的执行次数是______ OK=0Do While k<=10k=k+1Loop2、 _____________________________________ 下列程序段的执行后输出的结果为____________________ ol=4:A=5Do1=1+1 :A=A+2Loop Until l>=7Print "A=";A3、__________________________ 下列程序的执行结果是oT = O : m = 1 : Sum = 0Dot = t + m : Sum = Sum + t: m = m + 2Loop While m <= 9Print Sum4、_________________________________ 下列程序段的执行时，共循环_________________________ 次。

For a=0 To 1For b=1 To 2For c=1 To 31=1+1 Next cNext bnext a5、下列程序段的运行结果是：Sub sele()Dim n as Integer1=21 :n=3Do While l>nl=l-nLoopPrint IEnd Sub打印结果_____ o6、___________________________________ 执行下面的程序段后，s的值为_________________ oS=5For l=2.6 To 4.9 Step 2s=s+1Next I7、下列程序段的执行后输出的结果为__________K= 1For I = 1 To 3A=I A I A KNext IPrint A8、___________________________ 下列程序的执行结果是_______________________ o M1 = 1:m2 = 1Do While m2<>6ml = m1*m2 : m2 = m2+1LoopPrint ml9、下列程序的执行结果是_____ oPrivate Function P(N As Integer)For I = I To NSUM = SUM + 1Next IP = SUMEnd FunctionPrivate Sub Command 1_Click()S = P(1) + P(2) + P(3) + P(4)Print S;End Sub10、以下程序用来输出1到100所有奇数的和，请补充完该程序。

循环语句基础行政班：教学班：姓名：学号：一、For语句For循环变量 = 初值 To终值Step步长语句1语句2（循环体）……Next循环变量返回判断循环变量是否小于终值，成立继续循环。

注意：（1）如果步长为负数，循环变量是否大于终值，成立继续循环。

（2）Step 1可以省略不写流程图步长为正数（1）For循环执行过程填空s = 0For i = 1 To 3 s = s + iNext i在右边填写变量的值i = 1 时，i<=3成立s=i = 2 时，i<=3成立s=i = 3 时，i<=3成立s=i = 4 时，i<=3不成立，循环结束循环结束后变量s的值为变量i的值为（2）For循环执行过程填空s = 0For i = 5 To 2 Step -2 s = s + 2Next i i = 5 时，i>=2成立s=i = 3 时，i>=2成立s=i = 1 时，i>=2不成立，循环结束循环结束后变量s的值为变量i的值为（3）For循环执行过程填空s = 0 : a = 1For i = 1 To 3 s = s + 1a = a * sNext i在右边填写变量的值i = 1 时，i<=3成立s= a=i = 2 时，i<=3成立s= a=i = 3 时，i<=3成立s= a=i = 4 时，i<=3不成立，循环结束循环结束后变量s的值为变量a的值为（4）For循环执行过程填空s = 0 : a = 1For i = 1 To 6 Step 2IF i mod 2 = 0 Then s = s + i a = a * iNext i i = 1 时，i<=6成立s= a= i = 3 时，i<=6成立s= a= i = 5 时，i<=6成立s= a= i = 7 时，i<=6不成立，循环结束循环结束后变量s、a、i的值分别为二、Do 语句（1）Do 循环执行过程填空三、快速填空(限时10分钟)s = 0For i = 1 To 5 s = s + i Next i（1）上面循环结束后变量s 的值为 s = -1For i = 3 To 1 Step -2 s = s + i Next i（2）上面循环结束后变量s 的值为 s = 0For i = 1 To 3 s = s + 1 Next i（4）上面循环结束后变量s 的值为 s = 1For i = 1 To 4 s = s * i Next i（5）上面循环结束后变量s 的值为 s = 1For i = 1 To 5 Step 2 s = s * i Next i（6）上面循环结束后变量s 的值为s = 0For i = 1 To 10If i Mod 3 = 0 Then s = s + i End If Next i（7）上面循环结束后变量s 的值为 s = 0For i = 1 To 10If i Mod 4 = 0 Then s = s + 1 End If Next i（8）上面循环结束后变量s 的值为 s = 0For i = 1 To 5If i / 2 = i \ 2 Then s = s + 1 Next i（9）上面循环结束后变量s 的值为 s = "": i = 1 Do While i <= 5 s = s + Str(i) i = i + 2 Loop（10）上面循环结束后变量s 的值为。

数组测试题（一）：选择题（8小题）1．下列数组声明语句，是正确的。

(a) Dim a[3,4] As Integer (b) Dim a(3,4) As Integer(c) Dim a(n,n) As Integer (d) Dim a(3 4) As Integer 2．以下程序输出的结果是。

Dim a： A=Array(1,2,3,4,5,6,7)For I=Lbound(a) To Ubound(a)A(i)=a(i)*a(i)Next IPrint a(i)(a) 49 (b) 0 (c) 不确定 (d) 程序出错3．下面程序段的运行结果是。

（ Option Base 1）Private Sub Form_Click()Dim a： b$ = "": c$ = ""a = Array("effort", "run", "lucky")For i = 1 To UBound(a)b$ = b$ + Left$(a(i), 1)： c$ = c$ + Right$(a(i), 1)Next IPrint c$ + b$End Sub（A）effort （B）tnyerl （C）erltny （D）c$+b$4．以下程序输出的结果是。

（Option Base 1）Private Sub Command1_Click( )Dim a%(3,3)For I=1 to 3For j=1 to 3If j>1 And I>1 ThenA(I,j)=a(a(I-1,j-1),a(I,j-1))+1 ElseA(I,j)=I*jEnd IfPrint a(I,j);””;Next jPrintNext IEnd Sub（a） 1 2 3 (b) 1 2 32 3 1 1 2 33 2 3 1 2 3(c ) 1 2 3 (d) 1 1 12 4 6 2 2 23 6 9 3 3 35．如下数组声明语句中，数组a包含元素的个数为Dim a(3,-2 to 2,5)(a) 120 (b)75 (c) 60 (d) 13 6．下面程序输出的结果是。

一、单选题1.在中，一组具有相同名字、不同下标的变量称为____________。

A.数组B.变量C.同类数据D.同类变量2.一维数组的大小为______________。

A.上界+下界+1B.上界+下界-1C.上界-下界+1D.上界-下界-13.数组的存放是按____________存放的。

A.数据大小B.数据类型C.列D.行4.数组具有相同的_____________。

A.下标B.类型C.数值D.存放地址5.重定义数组大小的语句是______________。

A.Dim语句B.ReDim语句C.Static语句D.Public语句6.使用Dim A(100) As Integer 语句声明了数组A，其下标的取值范围为____________。

A.0~100B.1~100C.0~99D.1~997.若使用Dim A(100) As Integer 语句声明了数组A，下列引用错误的是___________。

A.A(0)=2B.A(1)= -28C.A(56)= A(-56)D.A(100)=A(0)+A(55)8.如果要对已经声明的数组重新定义大小，并保留原有数据，可使用语句___________。

A.DimB.ReDimC.Dim PreserveD.ReDim Preserve9.对于Integer 类型的静态数组，如果没有赋值，则所有元素的值为____________。

A.空B.0C.1D.最大数10.执行重定义数组大小语句ReDim A(UBound(B))后，A数组的上界为______________。

A.B数组的上界B.B数组的上界+1C.B数组的上界- 1D.不确定11.下列数组声明语句中正确的是______________。

A.Dim A(9) As Single ={1,2,3,4,5,6,7,8,9,10}B.Dim A() As Single ={1,2,3,4,5,6,7,8,9,10}C.DimA() As Single ={1,”abc”,”ccc”,4,5,6,7,8,9,10}D.Dim A( , ) As Single ={1,2,3,4,5,6,7,8,9,10}12.若有声明Dim a(2 ,3) as Integer，则数组a共有元素个。

V B循环结构测试题及答案内部编号：（YUUT-TBBY-MMUT-URRUY-UOOY-DBUYI-0128）循环结构测试题(四)一：选择题1：以下（）是正确的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 step 3re: …. ……Next x next yIf I=10 then goto re2:下列循环语句能正常结束循环的是（）（A）I=5 (B) I=1do doI=I+1 I=I+2Loop until I<0 loop until I=10(C) I=10 (D) I=6do doI=I-1 I=I-2Loop until I<0 loop until I=13:下面程序段的运行结果为（）for I=3 to 1 step –1print spc(5-I);for j=1 to 2*I-1 print “*”; next j print next I4下列程序在文本框输入“ABCD ”四个字符时，窗体上显示的是（ ） private sub text1_change( ) print ; end sub(A) ABCD (B) ( C ) AABABCABCD5哪个程序段不能分别正确显示1!,2!,3!,4!的（ ） 二：填空题1：要使下列For 语句循环执行20次，循环变量的初值应当是： for k=( ① ) to –5 step –2 2:下面程序段显示（ ② ）个“*”。

For I=1 to 5For j=2 to IPrint “*”; Next j Next I* * * * (B) * * * * * * * * (C) * * * * * * * *(D) * * * * ** * *A BCD(D) AAB ABCABCD（A ）for I=1 to 4n=1 for j=1 to （B ） for I=1 to 4for j=1 toI(C) N=1for j=1 to 4 (D)N=1 J=1 Do whilej<=430for j=1 to 12 step 340for k=6 to 2 step –241print j,k42next k43next j4: 以下程序运行后，si,sj,I,j,k的结果分别是（⑤），（⑥），（⑦），（⑧），（⑨），（⑽）private sub command1_click( )for I=1 to 2for j=1 to Isk=0for k=j to 3sk=sk+1next ksj=sj+1next jsi=si+1next Iprint si,sj,sk,I,j,kend sub5:下面程序运行后输出的结果是（⑾）private sub command1_click()print tab(5*I+1);”2”+I;”2”&I;next Iend sub6:下面程序运行后输出的结果是（⑿） private sub command1_click()a$=”*”;b$=”$”for I=2 to 4if I mod 2=0 thenx$=string(len(a$)+I,b$)elsex$=string(len(a$)+I,a$)end ifprint x$;next Iend sub7: 执行下面程序，打印结果是（⒀）option explicitprivate sub form_click( )dim I as integer,j as integerj=10for I=1 to j step 2I=I+1Next IPrint I,jEnd sub8:输入任意长度的字符串，要求将字符顺序倒置，例如：将输入“ABCDEFG”变换成“GFEDCBA”private sub command1_click()dim a$,I%,c$a=inputbox(“输入字符串”)n=( ⒁ )for I =1 to ( ⒂)c=mid(a,I,1)mid(a,I,1)=( ⒃ )( ⒄ )=cnext Iprint aend sub9：找出被3，5，7除，余数为1的最小的5个正整数。

vb循环练习题VB是一种流行的编程语言，而循环则是编程中常用的一种结构。

通过循环，我们可以重复执行一段代码，提高程序的效率。

本文将为您提供一些VB循环练习题，帮助您巩固循环的使用。

1. 输出1到10的数字题目要求：使用循环输出1到10的数字，并在每个数字后面加上一个换行符。

解题思路：可以使用For循环来实现。

```vbFor i As Integer = 1 To 10Console.WriteLine(i)Next```2. 计算1到100的和题目要求：使用循环计算1到100的和，并将结果输出。

解题思路：可以使用Do-While循环来实现。

```vbDim sum As Integer = 0Dim i As Integer = 1Do While i <= 100sum += ii += 1LoopConsole.WriteLine("1到100的和为：" & sum)```3. 输出九九乘法表题目要求：使用循环输出九九乘法表。

解题思路：可以使用嵌套的For循环来实现。

```vbFor i As Integer = 1 To 9For j As Integer = 1 To iConsole.Write(i & " * " & j & " = " & i * j & vbTab) NextConsole.WriteLine()Next```4. 找出100以内的素数题目要求：使用循环找出100以内的素数，并将结果输出。

解题思路：可以使用嵌套的For循环和判断素数的方法来实现。

```vbFor i As Integer = 2 To 100Dim flag As Boolean = TrueFor j As Integer = 2 To Math.Sqrt(i)If i Mod j = 0 Thenflag = FalseExit ForEnd IfNextIf flag ThenConsole.WriteLine(i)End IfNext```5. 使用循环绘制图案题目要求：使用循环绘制如下图案，并将结果输出。

VB循环结构练习题一、分析程序的运行结果（每题2分，共60分）1、以下循环的执行次数是_____。

K=0Do While k<=10k=k+1Loop2、下列程序段的执行后输出的结果为_____。

I=4:A=5DoI=I+1:A=A+2Loop Until I>=7Print "A=";A3、下列程序的执行结果是____。

T = O : m = 1 : Sum = 0Dot = t + m : Sum = Sum + t : m = m + 2Loop While m <= 9Print Sum4、下列程序段的执行时，共循环____次。

For a=0 To 1For b=1 To 2For c=1 To 3I=I+1Next c Next bnext a5、下列程序段的运行结果是：Sub sele()Dim n as IntegerI=21:n=3Do While I>nI=I-nLoopPrint IEnd Sub打印结果_____。

6、执行下面的程序段后，s的值为____。

S=5For I=2.6 To 4.9 Step 2s=s+1Next I7、下列程序段的执行后输出的结果为_______。

K = 1For I = 1 To 3A = I ^ I ^ KNext IPrint A8、下列程序的执行结果是_____。

M1 = 1:m2 = 1Do While m2<>6m1 = m1*m2 : m2 = m2+1LoopPrint m19、下列程序的执行结果是_____。

Private Function P(N As Integer)For I = I To NSUM = SUM + 1Next IP = SUMEnd FunctionPrivate Sub Command1_Click()S = P(1) + P(2) + P(3) + P(4)Print S;End Sub10、以下程序用来输出1到100所有奇数的和，请补充完该程序。

vb双循环累加累乘练习题1.在窗体上画一个命令按钮，名称为Command1。

然后编写如下程序：Private Sub Command1_Click()For I=1 To 4For J=0 To 1Print Chr$(65+I);Next J Print Next I End Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是A)BB B)A C)B D)AA CC BB CC BBB DD CCC DDD CCCCEE DDDD EEEE DDDDD2.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Private Sub Command1_Click()Dim i As Integer,j As Integer Dim a(10,10)As Integer For i=1 To 3For j=1 To 3a(i,j)=(i-1)*3+j Print a(i,j);Next jPrint Next i End Sub程序运行后，单击命令按钮，窗体上显示的是A)123 B)234C)147 D)123246 345 258 456369 456 369 7893.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：Private Sub Command1_Click()n=Val(Text1.Text) For i=2 To nFor j=2 To sqr(i)1If i Mod j=0 Then Exit For Next jIf jSqr(i)Then Print i Next i End Sub该事件过程的功能是A)输出n以内的奇数B)输出n以内的偶数C)输出n以内的素数D)输出n以内能被j整除的数4.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim array1(10,10)As Integer Dim i As Integer,j As Integer For i=1 To 3 For j=2 To 4 array1(i,j)=i+j Next j Next iText1.Text=array1(2,3)+array1(3,4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是A)15B)14 C)13 D)125.在窗体上画两个名称分别为Command1和Command2、标题分别为“初始化”和“求和”的命令按钮。