资源描述：
《第六章vb程序的循环控制结构-2》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、问题：计算10000个人的所得税：输入工资。如果工资少于2000,免收所得税。如果工资M2000,所得税为5%oPrivateSubForm_Click()Gz=InpueBox("请输入工资"，"输入工资")Ifgz>=2000Thensj=gz*0・05Elsesj=0EndIf?〃工资〃;gz;"的所得税为"；sjEndSub但要计算10000个人的所得税，如何实现呢?实际上就是中间的程序块重复10000次。即:对于第］次到第10000次输入工资，计算所得税，输出结果重复下一次如何实现一块程序重复n次呢？用
2、程序的循环控制结构渎现。循环结构：实现一块程序重复执行n次。VB实现循环结构的语句有3种:(1)For-Next语句(2)While-Wend语句(3)Do-Loop语句上例的程序：对于第］次到第10000次输入工资，审算所得税二输出结果重复下一次用For循环实现为：Forn=lTo10000输入工资，计算所得税，输出结果Nextn1.For循环的一般格式为:For循环变量=初值To终值［Step步长］循环世[ExitFor]Next循环变量1.循环的说明:循环（控制）变量:也叫“循环计数器”，用于控制循环次数。
3、•初值、终值：一般是整数，也可以是实数,实数会自动取整。可以是正数，也可以是负数。•步长：循环变量每次循环的增量。实数会取整。正数:递增循环;负数：递减循环;死循环,故不能为0；1：加1循环，“Step1”可以省略。（上面计算10000人所得税的程序省略了Step1）•ExitFor：满足一定条件时中途退出循环。•Next：循环结束语句，后面的循环变量必须与For语句中的循环变量一样。For与Next必须成对出现，且先有For、后有Next,缺一不可。•循环体：每次重复执行的语句。循环体可以是一个语句，也可以是多
4、个语句。甚至可以一个语句也没有(空循环)。例如：Forn=lTo10000Nextn问题：空循环n次有没有用？有什么用?For循环变量=初值To终值[Step步长］循环体Next循环变量1.For循环的执行过程:把“初值”赋值给“循环变量”;检查“循环变量”是否超出“终值”;(3)如果超出，退出For循环;(1)如果没有超出，执行循环体;执行Next：循环变量加步长,返回(1)。例如：分析如下程序的执行过程，并写出结果:s=0Fora=lTo10Step2s=s+2*aNextaC〃〃〃〃?s=;s,a=;a分析
5、：执行过程(J)a二1W10,执仃s二s+2*a=0+2*l二2,a=a+2二1+2二3a=3W10，执仃s二s+2*a=2+2*3二&a二a+2=3+2—5③a二5W10,执行s二s+2*a=8+2*5二1&a二a+2二5+2二7a=7W10,执行s二s+2*a=18+2*7二32,a二a+2二7+2二9(§)a=9W10，执仃s二s+2*8f32+2*9=50,a二a+2=9+2=llA=ll>10,退出循环程序的最后结果是：s二？沪?循环次数是：?次1.For循环次数的计算方法：循环次数=Int((终值一初
6、值)/步长)+1即循环次数由初值.终值.步长3个因素确定。例1:Forx=10To20Step3Nextx循环变量的有效变化为:x=10,13,16,19循环次数为：Int((20-10)/3)+!=4例2:Forx=10To1Step-2Nextx循环变量的有效变化为：x=10,8,6,4,2循环次数为：Int((l-10)/(-2))+l二5例3：Fora=10To1Step2Nexta循环次数为：C)5次D)6次10Step2A)0次B)1次例4：Forb=10ToNextb循环次数为：A)0次B)1次C)
7、5次D)6次例5：Forc=lTo10Step0Nextc循环次数为：?A)1次B)10次0100次D）无穷多次1.循环变量的引用循环变量主要用来控制循环次数,但也可以被循环体引用。当循环变量被循环体引用时，称为“操作变量”，而不被引用的循环变量称为“形式变量”。2.For循环程序的一般结构变量初始化〜准备工作for循环体INext输出结果-计算处理-＞善后工作1.For循环的典型程序是“操作变量”。(1)求有规律数列的累加语句公式为：
8、s二S+新的项目s的初值一般为0。例1：求s=l+2+3+•…••+1000
9、s=0f准备工作Fori=lTo1000s=s+if计算处理Nextic〃〃?S=；Sf善后工作评价：循环变量i被循环体引用,例2：求s=l2+32+52++992Sum=0Forx=lTo99Step2Sum=Sum+x*xNextx?〃Sum二〃；Sum评价：循环变量x被循环体引用，是“操作变量”。(1)求有规律数列的累乘语句公式为：
10、p二p*新的项目I间题：p的初值
