vb控制结构-循环结构程序设计.ppt

《vb控制结构-循环结构程序设计.ppt》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、第6章VB控制结构（2）——循环结构程序设计本章内容及要求：（1）掌握For…..Next语句及ExitFor语句的使用；（2）掌握Do….Loop循环语句与ExitDo语句的使用；（3）掌握循环结构的嵌套应用；（4）掌握循环结构和选择结构的嵌套应用。6.1概述在VisualBasic程序设计中，实现循环结构的语句主要有下列几种：lFor…Next语句Do…Loop语句lWhile…Wend语句DoWhile<条件>…Loop形式Do…LoopWhile<条件>形式DoUntil<条件>…Loop形式Do…LoopUntil<条件>形式Do…Loop形式

2、打印九九乘法表DimSgsAs StringDim i, j As IntegerFor i = 1 To 9     ’被乘数从1变到9For j = i To 9    ’乘数从1变到9Sgs= i & "×" & j & "=" &Str(i* j) ’打印公式如1×1=1Picture1.PrintTab((j- 1) * 9 + 1);Sgs;Next jPicture1.PrintNextIFor循环语句(一般用于循环次数已知)形式：For循环变量＝初值to终值[Step步长]语句块[ExitFor]语句块Next[循环变量]循环体>=0循环

3、变量<=终值<0循环变量>=终值=1可省略步长6.2For...Next循环结构循环次数例:ForI=2To13Step3PrintI,NextIPrint“I=“,I循环执行次数4输出I的值分别为:25811出了循环输出为:I=146.2For...Next循环结构6.2For...Next循环结构注意跳出FOR循环时的循环变量的值Fori=1to10step1s=s+iNextiPrintiFori=-1to-10step-1s=s+iNextiPrinti6.2For...Next循环结构注意对于For…Next语句来说，一旦进入循环，其“终止值”

4、和“增量”便不会再改变了。PrivateSubForm_Click()DimiAsInteger,jAsInteger,kAsIntegerj=10:k=1Fori=1TojStepkPrintij=j-1k=k+1NextPrintj,kEndSub练习：分析下面程序段结束时窗体上显示的值是多少？(2)i2=0Fori=1To-2Step-1i2=i2+1NextPrinti,i2（-34）(1)Fori=1To10i2=i2+1NextPrinti(11)(3)i2=0Fori=1To5Step2i2=i2+1NextPrinti（7）(4)i2=1

5、Fori=1To10i=i+1i2=i2+1NextPrinti,i2(116)(5)i2=1i3=10i=10Fori=1Toi3i=i+1i2=i2+1i3=i3+1NextPrinti,i2(116)(6)i2=0Fori=1To10i2=i2+1Ifi>6ThenExitForNextPrinti,i2(77)(7)i2=0i=10Doi2=i2+1LoopWhilei=i2Printi2(1)例6.7编程计算：S=1+2+3+…+100DimS%,I%S=0'累加前变量S为0ForI=1to100S=S+INextIPrint"S=",S当I<

6、=100I=I+1打印SS=0,I=1S=S+I例6.7的算法流程图6.2For...Next循环结构前测型:DoWhile<条件>语句块[ExitDo]语句块LoopDo…Loop循环语句使用形式6.3Do...Loop循环结构6.2Do...Loop循环结构PrivateSubForm_Click()DimiAsInteger:DimaAsInteger'定义所需变量i=0:a=0'给变量赋初值0,这两条语句可省略DoWhilei<100i=i+1'每次循环，变量i都增加1a=a+i'每次循环，变量a都加变量i的值LoopPrinta'计算完毕，变量

7、a的值即为所求EndSub例:使用DoWhile…Loop循环语句计算1+2+3+…+100的值后测型:Do语句块[ExitDo]语句块LoopWhile<条件>6.3Do...Loop循环结构6.3Do...Loop循环结构例:使用Do…LoopWhile循环语句计算1+2+3+…+n的值,n的值由文本框输入。PrivateSubCommand1_Click()DimiAsInteger,nAsInteger,aAsInteger'定义所需变量n=Text1.Text'得到输入的值Doi=i+1'每次循环，变量i都增加1a=a+i'每次循环，变量a都加

8、变量i的值LoopWhilei