循环程序设计.doc

循环程序设计教学目的：1、 熟悉VB循环程序的一般设计方法。2、 掌握VB循环语句的实现方法。教学重点：1、 VB循环设计方法的理解。2、 VB中一般循环的语句实现。（三种循环的对比）3、 VB中多重循环的实现语句。课时安排：理论教学安排8课时，上机练习8课时一、 循环的含义 重复做相类似的程序代码。Private Sub Form_Click()i=1Print Tab(i); *i=i+1Print Tab(i); *i=i+1Print Tab(i); *Print Tab(4); *Print Tab(5); *Print Tab(6); *Print Tab(7); *Print Tab(8); *Print Tab(9); *Print Tab(10); *End SubDim i as integerFor i=1 to 20 step 1Print tab(i);”*”Next iT循环初始条件循环条件循环体（改变循环条件语句）F循环执行过程：当循环条件满足时，执行循环体的内容，遇到循环的结束标志时再判断循环条件式，一直到条件式不成立时执行循环结束语句后的代码。二、 for next循环（计数循环）格式：for 循环变量=初值 to 终值 step 步长next 循环变量 步长为1的时候，step可以省缺。例如：For i=1 to 5 step 2Print i*2Next iPrint “i=”;i执行过程：1） 初值1送给i2） 判定条件i5 then print x*2else print x*3endif next x2、P106 三（2）（3）（4）有一些循环无法确定初值及终值。用fornext循环不容易实现。已知循环的开始值为n,计数的初值为0，循环的条件：计数到100时停止。Private Sub Command1_Click()Dim i As IntegerDim n As Integern = Val(Text1.Text)i = 0Do While i 100(两种方式具有相同的功能，编程时可以随意选用)If n Mod 7 0 Then List1.AddItem n i = i + 1End Ifn = n + 1LoopEnd Sub三、 do loop循环 1）前测式格式：设置变量初值Do while/until 条件式 循环体Loop 功能:当条件式成立/不成立时执行循环体。（先判定条件式再执行。） 执行过程：1）设置变量初值2）（DO语句执行）当条件式的值为真/假时，执行循环体，不成立/成立时执行loop后的语句。3）循环体执行4）遇到loop时转向2）进行条件式判断。例如：1）求s=1+2+N初值：s=0,i=1条件式：i=nDim s as integerDim I as integerS=0:i=1N=val(inputbox(“”) Do while i=nS=s+i:i=i+1loopPrint “s=”;sDim s as integerDim I as integerS=0N=val(inputbox(“”) For I =1 to N step 1S=s+iNext iPrint “s=”;sDim s as integerDim I as integerS=0:i=1N=val(inputbox(“”) Do while inS=s+i:i=i+1loopPrint “s=”;s2)求s=1+2+N,使得S大于10000的最小N值。初值：s=0;i=1条件式：s10000Dim s as integerDim I as integerS=0:I=1Do while s 10000S=s+I:I=i+1LoopPrint “最小的N值为” & i-1Do whileloop：当条件式成立时执行循环体。Do untilloop: 当条件式不成立时执行循环体。3)P113-114例5.5，例5.6，例5.7例5.5改成do while循环Dim x as integerDim y as integerX=1Do while x= A And t = Z Then y = y & x End IfNext kText2.Text = yEnd Sub练习：P113. 例5.6例5.72）后测式格式：设置变量初值Do 循环体Loop while/until 条件式功能: 先执行循环体，当条件式成立/不成立时继续。（首先执行一次循环后再判定条件，即使条件式不成立，循环也会执行一次）例如：Dim I As IntegerI = 10Do While I 9Print 执行循环I = I + 1Loop Dim I As IntegerI = 10DoPrint 执行循环I = I + 1Loop While I 9Print “执行循环”I=i+1loopDim I as integerI=10Do Print “执行循环”I=i+1loop until i9练习：P114.例5.8辗转相除的含义 求最大公约数 （4，6）最大公约数2 （16，24）最大公约数8 （1）24 /16=P1（商数1）+R1（余数8）（2）16/r1=P2(商数2)+r2（余数0）G（被除数，除数）=G（除数，余数）2）P135上机练习6：-取数字串？Private Sub Command1_Click()Dim s As String, y As String, t As StringDim k As Integers = Trim(Text1.Text) 将输入的字符串存入s中，trim函数用来去掉两边的空格y = 用来记录生成的字符串For k = 1 To Len(s) 逐个取字符串的字符，并判断是否为字符型。 x = Mid(s, k, 1) t = UCase(x) 将x转换成大写字母 If t = A And t = Z Then y = y & x End IfNext kText2.Text = yEnd Sub3）在文本框text1中输入一串字符，试统计字母“A”（不区分大小写）的出现次数，并将出现次数显示在标签label1上。Dim st as string,st1 as stringDim k as integer,s as integerList1.clearSt=trim(text1.text)K=1:s=0 S用来计数，记录A的个数。Do while k=len(st)St1= mid(st,k,1)If st1=”A” or st1=”a” thenS=s+1List1.additem kEndifK=k+1LoopLabel2=”字母A出现了” & s &“次！”四、 循环的退出语句循环的While格式：(功能与do while完全相同)While 条件式 循环体wend格式： Exit for/do功能：不必等到循环条件不成立而从循环体中强制退出。例如：判定数N是质数还是合数。（质数指的是约数只1与它本身的数） 判断方法：从2到n/2找n的约数，只要找到一个，则n为质数，否则为合数。(一个数的约数小于等于这个数开平方。)Dim n as integerDim flag as integerDim I as integerN=val(text1.text)Flag=0For i=2 to n-1 step 1 If n mod i=0 then flag=1：exit forNext iIf flag=0 then Text2.text= n & “是一个质数！”ElseText2.text= n & “是一个合数！”Endif练习：P116.例5.9Do While true-永真死循环。循环体内必须含有exit do的语句。五、 多重循环（类似于分支嵌套）循环体内仍然包含有循环语句。For i=Next iFor j=Next j多重循环的最内层语句的执行次数等于多重循环每层执行次数的积。Private Sub Form_Load()Dim i As IntegerDim j As IntegerShowFor i = 1 To 5 Step 1 Print 当前i的值为 & i For j = 1 To 3 Step 1 Print 当前i的值为 & i, Print 当前j的值为 & j Next jNext iEnd SubI=1 (j=1,j=2,j=3)I=2 (j=1,j=2,j=3)I=3I=4I=5多重循环不允许出现交叉。例如：1） for i=1 to 3 step 1 print “i=”;i for j=1 to 2 step 1 print “i=”;I,”j=”;j next j next i I=1 J=1 J=2 J=3, 转向next iI=2 J=1 J=2 J=3, 转向next iI=3J=1 J=2 J=3, 转向next iI=4，转向next I 的后继语句输出结果为：I=1I=1 j=1I=1 j=2I=2I=2 j=1I=2 j=2I=3I=3 j=1I=3 j=2试分析下列程序结果：For i=2 to 6 step 3 Print “i=”;i For j=1 to 5 step 2 Print “j=”;j; 保证内循环的结果在同一行 Next j Print 用来换行Next i 外循环（i=2,i=5） 内循环（j=1,3,5）P127例5-16 输出乘法口诀表。Private Sub Command1_Click()Dim i As Integer 输出行Dim j As Integer 输出列For i = 0 To 9 Step 1 用来输出表的第一行Picture1.Print Tab(4 * i + 1); i;Next iFor i = 1 To 9 Picture1.Print Tab(1); i; For j = 1 To i Picture1.Print Tab(4 * j + 1); i * j; Next j PrintNext iEnd Sub2)Private Sub Command1_Click()Dim i As IntegerDim j As IntegerPicture1.ClsFor i = 1 To 7 Step 1有7个输出行 Picture1.Print Tab(20 - i);每一行的开始输出位置。 For j = 1 To 2 * i 1每行输出个数 Picture1.Print Chr(i + 48); Next j PrintNext iEnd Sub 外循环i表示输出行内循环j表示每一行输出多少个字符。For i=1 to 7 Print tab(20-i); For j=1 to 2*i-1 Print chr(i+48)； Next j Print Next i编程输出下列图形： * * *For i=1 to 7 Print tab(20-i); For j=1 to 2*i-1 Print “*”； Next j Print Next i * * *For i=1 to 7 Print tab(10+i); For j=1 to i Print “*”； Next j Print Next i* * *For i=7 to 1 step -1 Print tab(20-i); For j=1 to 2*i-1 Print “*”； Next j Print Next i4)求四位数ABCD其中a=b,c=d，并且这个四位数是78的倍数。 分析：由于N为四位数ABCD且有A=B，C=D，则四位数N可写为N=A*1100+C*11，A可从1变化到9，C可从0变化到9，可构成双重循环。 判定条件：n mod 78 =0For a= 1