VB循环结构程序设计.ppt

3.3循环语句,程序的另一种结构是循环结构循环结构作用是重复执行一段程序循环是有条件的、次数是有限的VB的循环语句：ForNext、DoWhileLoopForEachNext、WhileWend应用最多的：ForNext与DoWhileLoop,返回目录,3.4循环语句ForNext循环,ForNext循环一般应用于循环次数已知的场合For=初值To终值Step步长语句块（循环体）Next循环变量工作原理,返回目录,Step缺省为1,3.4循环语句ForNext循环,例3.9求1+3+5+7+99PrivateSubForm_Click()DimSumAsInteger,IAsIntegerSum=0保存累加和，先清零ForI=1To99Step2Sum=Sum+INextIMsgBox1+3+5+99=Sum,N=;NEndSub,返回目录,当Sum的值超出10000时循环才终止。因此Sum值要减去多加的一个N；而在循环过程中，N也被多加了一个1，需要减去。,3.5循环语句DoLoop循环,2.直到型循环,返回目录,特点：条件表达式不成立执行循环体内容,3.5循环语句DoLoop循环,例3.14计算平均分(要求同例4.12)PrivateSubForm_Click()DimDataAsInteger,SumAsInteger,NAsIntegerSum=0:N=0Data=InputBox(输入成绩,计算总分)DoUntilData=-1Sum=Sum+DataN=N+1Data=InputBox(“输入成绩,计算总分)LoopPrint全班平均分为:;Sum/NEndSub,返回目录,DoWhileData-1Sum=Sum+DataN=N+1Data=InputBox(“输入成绩,计算总分)Loop,3.6循环语句两重循环,两重循环：在一个循环的循环体中还包含另一个循环例3.15在窗体上显示一个几何图形PrivateSubForm_Click()DimI,JAsIntegerI、J为循环变量ForI=1To8I控制行数(8行)PrintTab(10-I);定每行*的起始位ForJ=1ToIJ控制每行输出I个*Print*;NextJPrint换行NextIEndSub,返回目录,注意：两重循环不能形成交叉,3.6循环语句两重循环,例3.16输出乘法口诀表PrivateSubForm_Click()DimIAsInteger,JAsInteger,MAsIntegerForI=1To9ForJ=1ToIM=I*JPrintJNextJPrint打印换行NextIEndSub,返回目录,3.6循环语句两重循环,例3.17计算PrivateSubForm_Click()DimIAsInteger,JAsIntegerDimFAsLong阶乘值用长整型保存DimeAsDoubleForI=0To10F=1每个阶乘值先置1以便累乘ForJ=1ToIF=F*JNextJe=e+1/FNextIPrinte=;eEndSub,返回目录,本循环计算F=I!,3.6循环语句多重循环,多重循环：循环次数在两重以上的循环结构例3.19计算将1角钱兑换成零钱有多少种方案PrivateSubForm_Click()DimI,J,K,SAsIntegerS=0统计兑换1角钱的方案数ForI=0To101分钱个数ForJ=0To10Step22分钱个数ForK=0To10Step55分钱个数IfI+J+K=10ThenS=S+1NextKNextJNextIMsgBox1角钱兑换成零钱的方案有SumEndSub,返回目录,Goto语句不符合结构化程序设计的要求，所以不提倡使用。,程序调试程序的错误类型,语法错误运行错误,返回目录,中文逗号,逻辑错误：算法不正确。显然系统不会报告这类出错信息。,程序调试简单调试,方法：在程序中适当插入Print语句跟踪变量值的变化,返回目录,程序调试使用调试工具,1.断点调试断点：程序执行到该此自动暂停单击“继续”按钮，程序可继续执行。,返回目录,设置断点：在代码窗口中单击该语句左侧的阴影边框。暂停时，将鼠标指针移动到程序中的各个变量上略作停留，系统将以浮动标签的方式显示该变量的值。,程序调试使用调试工具,2.逐语句执行启动逐语句执行：“调试逐语句”或按F8终止逐语句