VB循环语句与数组习题

合集下载

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循环的使用。

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

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

vb三种基本结构练习题

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 个命令按钮，其中左边按钮中标有“单击此按钮”，中间按钮中标有“清除”，右边按钮中标有“程序结束”。

vb程序设计for循环练习

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”中,并指出短字符串在长字符中串中的位置。

VB编程题(循环部分总结题目

循环部分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程序设计是一种非常实用的编程语言，可以用于开发各种各样的应用程序。

在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循环结构及数组练习

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的控件数组。

vb循环结构练习题

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("?.!？。

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

“a”是一个字符串，它和 “wa?” 、 “同学”一样都是字符串常量而a是一个变量名，用来存储其他数据
a = 13 b = 1 + 13，即b=14 s = “ 13” + “ 14“，即s= “1314 "
插入数据
pos=5 a(i) 值
a(1) 24 a(2) 25 a(3) 31 a(4) 36 a(5) 40 a(6) 54 a(7) 89 a(8) 95 a(9) 96 a(10) 97 … …
+
0
0
0
0
4
4
8
13
12
22 15
乘法计算完毕，接下来处理进位。从ans(1)开始向高位进位 0 0 5 5 3 5
规律：第i位数乘以第j位数，结果累加在ans的i+j-1位上
二、阅读程序并填空（1）
Dim a(1 To 6) As Integer s=0 For i = 1 To 6 If i Mod 2 = 1 Then s = s + a(i) End If Next i （1）数组a存储的数据依次为2、4、6、1、3、7，则上面程序执行后变量s的值关系判断语句i Mod 2 = 1，即i是奇数才成立，s累加对应的a(i) a(i) 对应的值 a(1) a(2) a(3) a(4) a(5) a(6)
2
4
6
1
3
7
所以S=0+2+6+3=11
初值
二、阅读程序并填空（2）
Dim a(1 To 6) As Integer s=0 For i = 1 To 6 If a(i) < 0 Then s=s+1 End If Next i （2）假设数组a存储的数据依次为 1、3、3、1、-9、7，则程序执行后变量s的值关系判断语句a(i) < 0 成立， s累加1 a(i) 对应的值 a(1) a(2) a(3) a(4) a(5) a(6)
1
3
3
1
-9
7
只有一个a(i)的值小于0所以累加1次，即S=0+1=1
二、阅读程序并填空（3）
Dim a(1 To 6) As Integer s=0 For i = 2 To 6 If a(i) = a(i - 1) Then s=s+1 End If Next i （3）假设数组a存储的数据依次为 1、2、2、3、3、3，则程序执行后变量s的值关系判断语句a(i) = a(i - 1)成立，即两两相等 s累加1 a(i) 对应的值 a(1) a(2) a(3) a(4) a(5) a(6)
a(i) 对应的值
a(1) 1
a(2) 2
a(3) 6
a(4) 3
a(5) 2
a(6) 1
前后两两对称有2个相等，累加2次，即S=0+1+1=2
二、阅读程序并填空（5）
Dim a(1 To 6) As Integer n = 6: k = 1 For i = 1 To n If a(i) > a(k) Then k = i Next i （5）假设数组a存储的数据依次为 1、2、6、3、2、1，则程序执行后变量k的值查找数组中最大元素的下标，并将下标存储在变量k中 K a(i) 对应的值 a(1) a(2) a(3) a(4) a(5) a(6)
1
2
6
3
2
1
即k=3
二、阅读程序并填空（6）
Dim a(1 To 6) As Integer n = 6: k = 2 For i = 3 To n If Abs(a(i)-a(i-1)) > Abs(a(k)-a(k-1)) Then k=i End If Next i （6）假设数组a存储的数据依次为8、2、6、3、 12、1，则程序执行后变量k的值查找数组两两元素差值绝对值最大，并将前面下标存储在变量k中 a(1) a(2) a(3) a(4) a(5) a(6)
查找两个数组对应元素相等的个数
a(i) 对应的值
b(i) 对应的值
a(1) 21 b(1) 3
a(2) 2 b(2) 2
显然a(2)=b(2) ,a(3)=b(3),有2个相等，累加2次，即S=0+1+1=2
（8）
Dim a As Integer, b As Integer Dim s As String a = 13 b = Len("a") + a s = Str(a) + Str(b)
循环和数组习题分析
杜宗飞
先计算5乘以123，得到结果，先不急于进位
ans(6) ans(5) ans(4) ans(3) ans(2) ans(1)
0
ans(6)
0
ans(5)
0
ans(4)
5ans(3)来自10ans(2)15
ans(1)
再计算4乘以123，得到结果，再原来上累加 0 0 0 5 10 15
key
a(i) 值
a(1) 24 a(2) 25 a(3) 31 a(4) 36 a(5) 38 a(6) 40 a(7) 84 a(8) 89 a(9) 95
逐个后移
a(10) 96 a(11) 98
a(i) 对应的值
8
6
2
4
6
3
3
9
12
11
1
显然差值绝对值最大的是a(6)-a(5) ，即k=6
二、阅读程序并填空（7）
Dim a(1 To 5) As Integer Dim b(1 To 5) As Integer n = 5: s = 0 For i = 1 To n If a(i) = b(i) Then s=s+1 End If Next i （7）数组a数据依次为21、2、6、3、2而数组b数据依次为3、2、5、3、1则上面程序执行后变量s的值 i=2 i=4 a(3) 6 b(3) 5 a(4) 3 b(4) 3 a(5) 2 b(5) 1
1
2
2
3
3
3
两两之间有4个相等，累加4次，即S=0+1+1+1+1=4
二、阅读程序并填空（4）
Dim a(1 To 6) As Integer n = 6: s = 0 For i = 1 To n \ 2 If a(i) = a(n - i + 1) Then s=s+1 End If Next i （4）假设数组a存储的数据依次为 1、2、6、3、2、1，则程序执行后变量s的值关系判断语句a(i) = a(n - i + 1)成立， s累加1 a(i) = a(n - i + 1)代表数组中前后对称的两个元素