教教学学课课件件第第4 4章章3 3 循环结结构循环结结构 在Visual Basic程序的三种结构中,循环结构是一种重要结构。循环的本质循环的本质：不断地重复某种动作。对计算机程序而言，循环必须具备两个重要因素：对计算机程序而言，循环必须具备两个重要因素：1. 在一定的条件下，重复执行一组语句2. 必然出现不满足条件的情况，使循环终止教教学学课课件件一、循环程序设计结构 VB中提供了两种类型的循环语句：中提供了两种类型的循环语句：一种是计数循环语句；一种是计数循环语句；另一种是条件循环语句。另一种是条件循环语句。Visual Basic 支持的循环结构有：支持的循环结构有： DoLoop For.Next WhileWend GoTo 语句语句重点掌握：重点掌握： DoLoop、 For.Next、 WhileWend等前三等前三种循环种循环教教学学课课件件、For循环语句语法格式：语法格式：For 循环变量循环变量 = 初值初值 To 终值终值 Step 步长步长 Next 循环变量循环变量循环体循环体循环变量增加步长循环变量增加步长循环变量获得初值循环变量获得初值F循环变量在终值内循环变量在终值内?For循环的执行过程T教教学学课课件件例例题：题： 编程计算：编程计算：S=1*2*3*10Dim S& , i%S=1 累加前变量累加前变量S为为1For K=1 to 100 S=S * KNext KPrint S= , S 教教学学课课件件For循环语句步长可为正、可为负、为步长可为正、可为负、为1时可省略时可省略如果步长为正，则变量小于等于终值时循环如果步长为正，则变量小于等于终值时循环如果如果步长为负步长为负，则变量大于等于终值时循环，则变量大于等于终值时循环当是单层循环时，当是单层循环时，Next后面的循环变量可不后面的循环变量可不写写特点：计数型循环，特点：计数型循环，循环次数循环次数=INT(终值终值-初值初值)/步长步长+1For语句和语句和Next语句必须成对出现语句必须成对出现在在循循环环体体中中可可以以使使用用循循环环变变量量，但但一一般般不不再再对循环变量赋值。对循环变量赋值。教教学学课课件件2、DoLoop循环结构循环结构 DoDoLoopLoop循循环环用用于于事事先先不不知知道道循循环环次次数数的的循循环结构。此种语句四种语法格式：环结构。此种语句四种语法格式： . Do While . Do While Loop Loop 语句语句 . Do . Do Loop While Loop While 语句语句 . Do Until . Do Until Loop Loop 语句语句 . Do . Do Loop Until Loop Until 语句语句教教学学课课件件 . Do While Loop语句语句语法格式：语法格式：Do While 条件表达式条件表达式 循环体循环体 LoopTF条件条件循环体循环体流程图教教学学课课件件说明： 条件表达式可以是一个逻辑表达式，也可以是一个关系表达式，其值应是逻辑型。 Do While和Loop应成对出现。 循环体中要有改变循环控制变量值的语句，以避免出现死循环。 由于该循环的特点是先判断条件，然后再决定是否要执行循环体里的语句。所以，这种循环可以一次也不执行循环体。 Exit Do 表示当遇到该语句时，强制退出循环，执行Loop后的下一条语句，一般与If 语句联用教教学学课课件件（2）. Do Loop While语句语句语法格式：语法格式： Do 循环体循环体 Loop While条件表达式条件表达式流程图TF条件循环体注意：注意： 至少要执行循环体一次。 与Do While循环的区别：Do While循循环环先先测测试试条条件件是是否否成成立立，只只有有成成立立才才执执行行循循环环；而而该该循循环环先先执执行行循循环环体体，后后测测试试条条件是否成立。件是否成立。教教学学课课件件语法格式：语法格式： Do Until条条件件表表达达式式 循环体循环体 Loop . Do Until Loop语句语句Do Until Loop语句流程图 . Do Loop Until语句语句格式：格式：Do 循环体循环体 Loop Until条条件件表表达达式式TF条件循环体Do Loop Until语句流程图FT条件循环体教教学学课课件件A=val(InputBox(“请输入第请输入第1个学生成绩个学生成绩”)B=val(InputBox(“请输入第请输入第2个学生成绩个学生成绩”)C=val(InputBox(“请输入第请输入第3个学生成绩个学生成绩”)Avg=(A+B+C)/3Print Avg编程：通过输入对话框输入三个学生成绩，计算成绩编程：通过输入对话框输入三个学生成绩，计算成绩平均分。平均分。 此程序存在问题：如果需要输入此程序存在问题：如果需要输入20个成绩或更多个成绩或更多或成绩个数根本不确定，则几乎让人无法忍受或成绩个数根本不确定，则几乎让人无法忍受教教学学课课件件编程：通过输入对话框输入编程：通过输入对话框输入10个学生成绩，计算成绩平均分。个学生成绩，计算成绩平均分。K=1Do While K=10 A=val(InputBox(“请输入第请输入第1个学生成绩个学生成绩”) K=K+1LoopAvg=(A+B+C)/10Print Avg思路思路：在前一程序的基础上作些改动，：在前一程序的基础上作些改动，10个数据的输入个数据的输入过程用循环实现：让第一个输入语句循环过程用循环实现：让第一个输入语句循环10次次思考：此程序存在哪些问题？思考：此程序存在哪些问题？1、输入的前面、输入的前面9个成绩丢失个成绩丢失,B 和和 C中无值中无值2、输入对话框中的提示总是显示、输入对话框中的提示总是显示“第第1个个”教教学学课课件件解决办法：解决办法：1、每个输入的成绩即时累加；、每个输入的成绩即时累加；2、提示信息分解、提示信息分解成三部分：成三部分： “请输入第请输入第” 、变量变量K 、 “个学生成绩个学生成绩”K=1：s=0Do While K=10 A=val(InputBox(“请输入第请输入第” & K & “个学生成绩个学生成绩”) S=S+Val(A) : K=K+1LoopAvg=S/10Print Avg教教学学课课件件编程：通过输入对话框编程：通过输入对话框输入若干输入若干成绩，成绩，如果输入的成如果输入的成绩为绩为-1，表示输入数据完毕，表示输入数据完毕，计算成绩平均分。，计算成绩平均分。 S = 0 : N = 1 cj = Val(InputBox(请输入第请输入第 & N & 个成绩个成绩) Do While cj -1 S = S + cj N = N + 1 cj = Val(InputBox(请输入第请输入第 & n & 个成绩个成绩) Loop Avg= S / (N-1) Print 平均成绩为：平均成绩为： ; Avg教教学学课课件件Exit Do与Exit For语句语句功能：强制退出循环语句功能：强制退出循环Exit Do语句只能用在语句只能用在Do循环语句中循环语句中Exit For 语句只能用在语句只能用在For循环语句中循环语句中使用方法：在循环体中，作为使用方法：在循环体中，作为IF语句的子句语句的子句x = 1For K = 1 To 30 If x = 10 Then Exit For If x Mod 2 = 1 Then x = x + 7 Else x = x - 5Next KPrint x教教学学课课件件功能：功能：当当WhileWhile的条件表达式的值是的条件表达式的值是TrueTrue时执行循环体内的时执行循环体内的代码，直到代码，直到WhileWhile后的条件表达式的值为后的条件表达式的值为FalseFalse。说明：说明：它与它与Do LoopDo Loop语句的差别是：语句的差别是：While WendWhile Wend语句中不能使用语句中不能使用ExitExit语句跳出循环。语句跳出循环。语法格式：语法格式：While (While (条件表达式条件表达式 ） 等价于等价于 do Whiledo While（条件表达式）条件表达式） 循环体循环体 循环体循环体Wend LOOPWend LOOP3、WhileWend循环结构循环结构教教学学课课件件4、GoTo语句构成循环语句构成循环格式：格式：GoTo 标号标号| 行号行号说明：说明： 标号：冒号结尾的标识符标号：冒号结尾的标识符 行号：一个整数，不跟冒号行号：一个整数，不跟冒号功能：无条件转移到指定行号或标号处执行功能：无条件转移到指定行号或标号处执行P=10000: r=0.025T=1Again:If t10 then goto 100I=P* rP=P+IT=t+1Goto Again100Print p教教学学课课件件二、循环的嵌套二、循环的嵌套多重循环结构多重循环结构1 1、如果在一个循环内完整地包含另一个循环、如果在一个循环内完整地包含另一个循环结构，则称为多重循环，或循环嵌套，结构，则称为多重循环，或循环嵌套，2 2、嵌套的层数可以根据需要而定，嵌套一层、嵌套的层数可以根据需要而定，嵌套一层称为二重循环，嵌套二层称为三重循环。称为二重循环，嵌套二层称为三重循环。 上面介绍的几种循环控制结构可以相互嵌套，上面介绍的几种循环控制结构可以相互嵌套，下面是几种常见的二重嵌套形式：下面是几种常见的二重嵌套形式：教教学学课课件件（1）For I=. . For J=. . Next J . Next I（2）For I=. . Do While/Until . . Loop . Next I（3）Do While. . For J=. . Next J . Loop（4）Do While/Until. . Do While/Until . . Loop . Loop教教学学课课件件对于循环的嵌套，要注意以下事项：对于循环的嵌套，要注意以下事项：(1) 内循环变量与外循环变量不能同名；内循环变量与外循环变量不能同名；(2) 外循环必须完全包含内循环，不能交叉；外循环必须完全包含内循环，不能交叉； (3) 不能从循环体外转向循环体内，也不能从外循环转向内循不能从循环体外转向循环体内，也不能从外循环转向内循环环. 正 确错 误 For i =1 To 10 For j=1 To 20 Next i Next j For i =1 To 10 For j=1 To 20 Next j Next i For i =1 To 10 Next i For i =1 To 10 Next i For i =1 To 10 For i=1 To 20 Next i Next i教教学学课课件件一、程序分析举例一、程序分析举例题目题目1:K = 7A = 5Do K = K - 1 A = A + 2Loop Until K 1 n = n + 1 j = j + n * (n + 1)LoopPrint n ; j写出程序的输出结果写出程序的输出结果:3 1教教学学课课件件程序分析举例程序分析举例题目题目3:k = 1: m = 2: n = 4Do While k 0 If DC Then C= C+1 D= Val(InputBox(请输入一个数请输入一个数)LoopPrint C+D运行时输入运行时输入9,8,7,0写出程序的输出结果写出程序的输出结果:7教教学学课课件件程序分析举例程序分析举例题目题目5:S=0:i=1Do while i100 if i mod 100 then s=s+i end if i=i+1LoopPrint s= ; s写出程序的输出结果写出程序的输出结果:S=4500教教学学课课件件程序分析举例程序分析举例题目题目6:x = 1y = 1For i = 1 To 3 f = x + y y = x x = f Print f;Next i写出程序的输出结果写出程序的输出结果: 2 3 5教教学学课课件件程序分析举例程序分析举例题目题目7:x = 1For y = 1 To 30 If x = 10 Then Exit For End If If x Mod 2 = 1 Then x = x + 7 Else x = x - 5 End IfNext yPrint x写出程序的输出结果写出程序的输出结果: 10教教学学课课件件程序分析举例程序分析举例题目题目8:For i = 1 To 10 k = 2 * i - 1 Print k; If I Mod 3 = 0 Then PrintNext i写出程序的输出结果写出程序的输出结果: 1 3 5 7 9 11 13 15 17 19教教学学课课件件循环结构程序的要素：循环结构程序的要素：二、程序设计举例二、程序设计举例依据四要素画出流程图依据四要素画出流程图,再写程序再写程序1.处理的数据量大或处理的步骤多处理的数据量大或处理的步骤多2.对每个数据的处理或每个步骤的处理有规律对每个数据的处理或每个步骤的处理有规律首行考虑什么情况下要用循环技术来设计程序？首行考虑什么情况下要用循环技术来设计程序？1. 循环体是什么？循环体是什么？2. 循环控制变量及循环控制表达式是什么？循环控制变量及循环控制表达式是什么？3. 循环应如何初始化？循环应如何初始化？4. 对于每次循环，其控制变量如何改变？对于每次循环，其控制变量如何改变？教教学学课课件件循环控制变量赋初值循环控制变量赋初值及其他相关初始化语句及其他相关初始化语句循环控制条件循环控制条件循环体语句循环体语句改变循环控制变量的语句改变循环控制变量的语句教教学学课课件件题目题目1: 输入若干个职工工资，输入输入若干个职工工资，输入0时结束，时结束，求平均工资。求平均工资。循环控制变量赋初值循环控制变量赋初值及其他相关初始化语句及其他相关初始化语句循环控制条件循环控制条件循环体语句循环体语句改变循环控制变量的语句改变循环控制变量的语句X=输入一个工资输入一个工资S=0:N=0工资工资X0？S=S+xX=输入一个工资输入一个工资S=0：N=0X=Val(inputbox()Do while x0 S=S+x X=Val(inputbox()loop教教学学课课件件题目题目2:目前我国人口为目前我国人口为13亿，如果以每年亿，如果以每年1.1%的的速度增长，多少年以后我国人口将达到速度增长，多少年以后我国人口将达到15亿。亿。循环控制变量赋初值循环控制变量赋初值及其他相关初始化语句及其他相关初始化语句循环体语句循环体语句改变循环控制变量的语句改变循环控制变量的语句循环控制条件循环控制条件人口人口x=15?X=13N=0N=N+1X=x*1.011Do while x=15 N=N+1 X=x*1.011loop题目题目3: 对对SUM=1+3+5+N，求，求SUM不大于不大于1000的最大整数之和以及所对应的的最大整数之和以及所对应的N值。值。循环控制变量赋初值循环控制变量赋初值及其他相关初始化语句及其他相关初始化语句循环控制条件循环控制条件循环体语句循环体语句改变循环控制变量的语句改变循环控制变量的语句Sum=1000?Sum=1K=1K=K+2Sum=Sum+KDo while sum=1000 K=K+2 sum=sum+kloop题目题目4:输出所的水仙花数，所谓水仙花数是指一个三位数，其输出所的水仙花数，所谓水仙花数是指一个三位数，其各位数字的立方和等于该数本身，例如，各位数字的立方和等于该数本身，例如，153是一个水仙花是一个水仙花数，因为数，因为153=13+53+33。循环控制变量赋初值循环控制变量赋初值及其他相关初始化语句及其他相关初始化语句循环控制条件循环控制条件循环体语句循环体语句改变循环控制变量的语句改变循环控制变量的语句数值数值K=999?K=100a=个位数个位数:b=十位数十位数:c=百位数百位数判断是否是水仙花数判断是否是水仙花数,如是如是,则输出它则输出它K=K+1Do while k=999 a=k mod 10: if k=a3+b3 k=k+1loop题目题目5: 统计一文本框中数字字符的个数。统计一文本框中数字字符的个数。循环控制变量赋初值循环控制变量赋初值及其他相关初始化语句及其他相关初始化语句循环控制条件循环控制条件循环体语句循环体语句改变循环控制变量的语句改变循环控制变量的语句位置号位置号k=总长总长L？K=1L=len(text1.text)C=第第k个字符个字符C是数字字符是数字字符?如是，个数如是，个数N累加累加1K=k+1:N=0Do while k=“0” and c k=k+1loopDo while kx if x mod k=0 then exit do k=k+1LoopIf k=x then print x思考：什么情况下说明是素数思考：什么情况下说明是素数?题目题目6: 判断一个数判断一个数x是否为素数。是否为素数。循环控制变量赋初值循环控制变量赋初值及其他相关初始化语句及其他相关初始化语句循环控制条件循环控制条件循环体语句循环体语句改变循环控制变量的语句改变循环控制变量的语句分母分母kx?K=2X=val(text1.text)如果如果x能被能被k整除整除,则强行退出则强行退出K=k+1For k=2 to x-1 if Next kIf k=x then print x结论：结论：x=k说明是素数说明是素数题目题目7:求裴波那契数列的前求裴波那契数列的前20项，该数列形式为：项，该数列形式为：1，1，2，3，5，8。即。即A(1)=1，A(2)=1，A(K+2)=A(K)+A(K+1)循环控制变量赋初值循环控制变量赋初值及其他相关初始化语句及其他相关初始化语句循环控制条件循环控制条件循环体语句循环体语句改变循环控制变量的语句改变循环控制变量的语句项数项数k=20?K=3A=1:B=1C=A+B:输出输出CA=B：B=CK=K+1a=1:b=1For k=3 to 20 c=a+b print c a=b:b=cNext k教教学学课课件件循环嵌套举例循环嵌套举例教教学学课课件件一、程序分析举例一、程序分析举例题目题目1:n = 1For i = 1 To 3 For j = 5 To I Step -1 n = n + 2 Next j Print n ; j ; iNext iPrint n ; j ; i写出程序的输出结果写出程序的输出结果: 11 0 1 19 1 2 25 2 3 25 2 4教教学学课课件件程序分析举例程序分析举例题目题目2:k = 0For j = 1 To 2 Print I For i = 1 To 3 k = i + 1 Next I Print I For i = 1 To 2 k = k + 1 Next I Print INext jPrint k ; I写出程序的输出结果写出程序的输出结果: 4 3 3 4 3 6 3教教学学课课件件程序分析举例程序分析举例题目题目3:For m = 1 To 2 For j = 1 To m For k = j To 2 Print m= ; m , j=; j , k= ; kNext k , j , m写出程序的输出结果写出程序的输出结果:注意其写法：顺序，原则，等价形式注意其写法：顺序，原则，等价形式教教学学课课件件教教学学课课件件程序分析举例程序分析举例题目题目4:For i = 5 To 4 Step -1 s = 0# For j = i To 3 Step -1 s = s + i * j Next jNext iPrint s写出程序的输出结果写出程序的输出结果: 28把把s = 0#放在放在For i的前一行呢的前一行呢?教教学学课课件件程序设计举例程序设计举例题目题目1: 输出一行（输出一行（20个）星号。个）星号。 输出一列（输出一列（20个）星号。个）星号。 输出输出5行星号，每行行星号，每行20个。个。 输出输出5行三角形形式星号。行三角形形式星号。* * * * * * * * * * * * * * * * * * * * *教教学学课课件件Print *Print *Print *Print *Print *.Print *Print * Print *Print *Print *Print *Print *Print *“Print *Print *Print *Print *Print *Print *Print *请分析这些语句与请分析这些语句与Print * ;的联系与区别的联系与区别教教学学课课件件循环控制变量赋初值循环控制变量赋初值及其他相关初始化语句及其他相关初始化语句循环控制条件循环控制条件循环体语句循环体语句改变循环控制变量的语句改变循环控制变量的语句列号列号X=20?X=1输出一个星号输出一个星号,输出后不换行输出后不换行X=X+1For X=1 to 20 Print * ;Next X教教学学课课件件循环控制变量赋初值循环控制变量赋初值及其他相关初始化语句及其他相关初始化语句循环控制条件循环控制条件循环体语句循环体语句改变循环控制变量的语句改变循环控制变量的语句行号行号K=5?K=1输出第输出第K行星号行星号,中间不换行中间不换行输出完后换行输出完后换行K=K+1For K=1 to 5 输出第输出第K行星号行星号 PrintNext K* *教教学学课课件件循环控制变量赋初值循环控制变量赋初值及其他相关初始化语句及其他相关初始化语句循环控制条件循环控制条件改变循环控制变量的语句改变循环控制变量的语句行号行号K=5?K=1换行换行,K=K+1初始化语句初始化语句循环控制条件循环控制条件循环体语句循环体语句改变循环控制变量的语句改变循环控制变量的语句列号列号X=20?X=1输出一个星号输出一个星号,不换行不换行X=X+1For K=1 to 5 For X=1 to 20 Print * ; Next X Print Next K* * * * * * * * * * * * * * * * * * * * *教教学学课课件件 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *For K=1 to 5 在第在第K行前输出行前输出?个空格个空格 For X=1 to ? Print * ; Next X Print Next KFor K=1 to 5 在第在第K行前输出行前输出?个空格个空格 For X=1 to ? Print * ; Next X Print Next KPrint tab(5-K);教教学学课课件件例题：例题：打印九九乘法表打印九九乘法表. For i = 1 To 9 For j = 1 To 9 se = i & & j & = & i * j Print Tab( j - 1) * 9 + 1) ; se; Next j Print Next i教教学学课课件件题目题目2: 求求100至至200内所有素数（之和）。内所有素数（之和）。循环控制变量赋初值循环控制变量赋初值及其他相关初始化语句及其他相关初始化语句循环控制条件循环控制条件循环体语句循环体语句改变循环控制变量的语句改变循环控制变量的语句数值数值X201?X=101X是否是素数是否是素数?如是，累加到如是，累加到SX=X+2思考：什么情况下说明是素数思考：什么情况下说明是素数?循环控制变量赋初值循环控制变量赋初值及其他相关初始化语句及其他相关初始化语句循环控制条件循环控制条件循环体语句循环体语句改变循环控制变量的语句改变循环控制变量的语句分母分母KX?K=2X=val(t1.text)如果如果x能被能被k整除整除,则强行退出则强行退出K=K+1结论：结论：X=k说明是素数说明是素数如何判断如何判断X是素数是素数?K=2X=Val( T1 . text )Do while K X If X mod K=0 Then Exit Do K=K+1Loop Sqrt(X)教教学学课课件件循环控制变量赋初值循环控制变量赋初值及其他相关初始化语句及其他相关初始化语句循环控制条件循环控制条件改变循环控制变量的语句改变循环控制变量的语句数值数值x201?X=101:s=0如果是素数，则累加：如果是素数，则累加：X=x+2初始化语句初始化语句循环控制条件循环控制条件循环体语句循环体语句改变循环控制变量的语句改变循环控制变量的语句分母分母kx?K=2如果如果x能被能被k整除整除,则强行退出则强行退出K=k+1S=0For x=101 to 201 step 2 for k=2 to x-1 if x mod k=0 then exit for next k if x=k then s=s+x(print x)Next x教教学学课课件件题目题目3: 求求S=1!+2!+3!+7！循环控制变量赋初值循环控制变量赋初值及其他相关初始化语句及其他相关初始化语句循环控制条件循环控制条件循环体语句循环体语句改变循环控制变量的语句改变循环控制变量的语句数值数值X8?X=1:Sum=0 S = X!累加累加:Sum=Sum+S X=X+1教教学学课课件件循环控制变量赋初值循环控制变量赋初值及其他相关初始化语句及其他相关初始化语句循环控制条件循环控制条件循环体语句循环体语句改变循环控制变量的语句改变循环控制变量的语句k=X?K=1X=val(text1.text)S=S*KK=k+1例例:求一个数求一个数X的阶乘的阶乘教教学学课课件件循环控制变量赋初值循环控制变量赋初值及其他相关初始化语句及其他相关初始化语句循环控制条件循环控制条件改变循环控制变量的语句改变循环控制变量的语句数值数值X8?X=1:Sum=0Sum=Sum+S：X=X+1初始化语句初始化语句循环控制条件循环控制条件循环体语句循环体语句改变循环控制变量的语句改变循环控制变量的语句k=X?S=1:K=1S=S*KK=k+1Sum=0For X=1 to 8 S=1 For k=1 to x S=S*K Next K Sum=Sum+SNext X解法一解法一:每一项阶乘值独立求解每一项阶乘值独立求解教教学学课课件件循环控制变量赋初值循环控制变量赋初值及其他相关初始化语句及其他相关初始化语句循环控制条件循环控制条件改变循环控制变量的语句改变循环控制变量的语句数值数值N8?N=1:S=1:Sum=0S=S*N累加累加:Sum=Sum+S N=N+1解法二解法二:第第N项阶乘值等于项阶乘值等于第第N-1项阶乘值再乘以项阶乘值再乘以N优点优点:省去内层省去内层循环循环,效率高效率高Sum=0:S=1For N=1 to 8 S=S*N Sum=Sum+SNext N教教学学课课件件练习：教材习题练习：教材习题P116，二，二，5教教学学课课件件程序设计举例程序设计举例题目题目4:穷举法穷举法 for a=1 to 9 for b=0 to 9 for c=0 to 9 next c , b , a(1)请用上面的循环方式找出所有水仙花数请用上面的循环方式找出所有水仙花数(2)教材教材P105，例，例4-22(3)教材习题：教材习题：P116，二，二，4教教学学课课件件以下代码用于计算以下代码用于计算的近似值，当级数第的近似值，当级数第i i项的绝对值小于项的绝对值小于1010-5-5时计时计算结束，同时调用内部函数进行验证。这里，算结束，同时调用内部函数进行验证。这里，x x为为弧度。弧度。x=3.14159/6x=3.14159/6i=1:t=i=1:t=x:sinxx:sinx=t=tDo WhileDo While (1) (1) i=i+2i=i+2t=t= (2) (2) sinxsinx= =sinx+tsinx+tLoopLoopPrint Print sinxsinx, , (3) (3) 教教学学课课件件下面的程序用于对下面的程序用于对9位的准考证号进行校验。参数位的准考证号进行校验。参数mno存放存放准考证号，准考证号，mjy存放产生的校验位，存放产生的校验位，tag判断校验正确否，若校判断校验正确否，若校验正确在验正确在L1中显示中显示“yes”，否则在否则在L1中显示中显示“no” 。产生校产生校验位的算法为：取准考证号右边的验位的算法为：取准考证号右边的8位数之和关于位数之和关于9的模作为校的模作为校验值，准考证号最左边的一位为校验位。验值，准考证号最左边的一位为校验位。Mno$=text1.text msum = 0 (1) m = Mid(mno, j, 1) msum = msum + Val(m) Next j mjy = (2) If (3) Then L1.Caption=“Yes” Else L1.Caption=“No” End If教教学学课课件件三、程序填空题三、程序填空题题目题目1：以下程序用于计算数学表达式：以下程序用于计算数学表达式 12-22+32-+972-982的值的值S=0 : I=1 : C=1Do S=S+C*I*I c=_ I=_Loop while_Print s= ; s教教学学课课件件