《第5章VB循环结构For》由会员分享，可在线阅读，更多相关《第5章VB循环结构For（18页珍藏版）》请在金锄头文库上搜索。
1、用输入框输入用输入框输入10个数字，并用个数字，并用Print方法输出方法输出A=Val(InputBox(A=Val(InputBox(输入第输入第输入第输入第1 1个数个数个数个数)B=Val(InputBox(B=Val(InputBox(输入第输入第输入第输入第2 2个数个数个数个数)C=Val(InputBox(C=Val(InputBox(输入第输入第输入第输入第3 3个数个数个数个数)D=Val(InputBox(D=Val(InputBox(输入第输入第输入第输入第4 4个数个数个数个数)E=Val(InputBox(E=Val(InputBox(输入第输入第输入第输入第5 5
2、个数个数个数个数)PrintAPrintAPrintBPrintBPrintCPrintCPrintDPrintDPrintEPrintEForI=1To5ForI=1To5A=Val(InputBox(A=Val(InputBox(输入输入输入输入1010个数个数个数个数)PrintAPrintANextINextI捷奇纬窟阮谅伺屹恬氦烷遣宜蛊然红仗窜絮木朴矾浇济阐窗揉轮才揖拯绷第5章VB循环结构For第5章VB循环结构For1判断判断判断判断1 1个数个数个数个数n n的奇偶性的奇偶性的奇偶性的奇偶性5.3 5.3 循循 环环 结结 构构判断判断判断判断1010个数个数个数个数n n的奇偶
3、性的奇偶性的奇偶性的奇偶性n=Val(InputBox(输入数据输入数据)SelectCasenCase1,3,5,7,9Printn;是奇数。是奇数。Case0,2,4,6,8Printn;是偶数。是偶数。CaseElsePrintn;超出范围！超出范围！EndSelectn=Val(InputBox(输入数据输入数据)SelectCasenCase1,3,5,7,9Printn;是奇数。是奇数。Case0,2,4,6,8Printn;是偶数。是偶数。CaseElsePrintn;超出范围！超出范围！EndSelectFork=1TO10Nextk举庇矾柔跌酚憾糕唁椽傲循桌佃柱钦忠隆急醇兽适
4、耗苫镍讽祖省析祁榜坛第5章VB循环结构For第5章VB循环结构For2一般循环结构流程图一般循环结构流程图(1)(1)(1)(1)进入循环条件是什么？进入循环条件是什么？进入循环条件是什么？进入循环条件是什么？(2)(2)(2)(2)循环体的算法是什么？循环体的算法是什么？循环体的算法是什么？循环体的算法是什么？(3)(3)(3)(3)结束循环条件是什么？结束循环条件是什么？结束循环条件是什么？结束循环条件是什么？本章讨论本章讨论本章讨论本章讨论VBVBVBVB的两种循环语句：的两种循环语句：的两种循环语句：的两种循环语句：计数循环语句计数循环语句 For-NextFor-Next条件循环语句
5、条件循环语句 While-Wend While-Wend Do-Loop Do-Loop误巧很而典肥铭醒畏枚胯抓圆级窿崭筑吃鞋盼羡酚临哨怜炉允除右农践茂第5章VB循环结构For第5章VB循环结构For35.3.1 For-Next For-Next 循环控制循环控制格式：格式： ForFor = ToTo StepStep 循环体循环体循环体循环体 ExitForExitFor NextNext循环变量循环变量循环变量循环变量 ( (一般用于循环次数已知一般用于循环次数已知) )功能功能：按确定的次数执行循环体。按确定的次数执行循环体。按确定的次数执行循环体。按确定的次数执行循环体。哮孪夜剔挞
6、灵鞘燃陪谢抨揭冤驶撬恶矗蜗诞桶另脉翱捞苑炮档叁蛆顷壬哺第5章VB循环结构For第5章VB循环结构For4t=0t=0ForFor I I =2To10Step22To10Step2t=t+t=t+I IPrinttPrinttNextNext I I I I: :循环变量循环变量循环变量循环变量2 2: :初值初值初值初值10:10:终值终值终值终值2:2:步长步长步长步长循环体循环体循环体循环体I=I+2I=I+2T TF FI10I10? ?结束结束结束结束循环变量循环变量I I的取值分别为的取值分别为: 2,4,6,8,10: 2,4,6,8,10完成完成 t=2,6,12,20,30
7、t=2,6,12,20,30 的计算的计算乱渣狰蝉答酞制呈痕全低曼鸽圈屯剁氓宵傲甸岁选吼忻郧络翌牺锄委健盾第5章VB循环结构For第5章VB循环结构For5讨论讨论For-NextFor-Next循环变量必须为循环变量必须为数值型数值型。循环次数循环次数步长步长ExitFor:强制退出循环强制退出循环0 初值终值 ( Step1Step1可省略可省略可省略可省略) )终值=0 死循环ForI=1to100ForI=1to100S=S+IS=S+INextINextIForI=100to1Step-1ForI=100to1Step-1S=S+IS=S+INextINextI差汁建责蕾婚哟男村斡盈
8、证谊区笋譬晦琳沼崖捶兹林枯罐邢妇傣淫褐命吨第5章VB循环结构For第5章VB循环结构For6P50例题PrivateSubForm_click()DimsAsSingle,iAsIntegern=Val(InputBox(请输入请输入n,提示提示)s=0Fori=1TonStep1s=s+INextiPrint1到到;n;之和为：之和为：;sEndSub戚蓝坏项靳么巧阎刁竭东饭籽迫贝局民氢萤筹都羞饭踪沤阀赡端怜圭擅檄第5章VB循环结构For第5章VB循环结构For7 For-Next:For-Next:必须成对出现，缺一不可。必须成对出现，缺一不可。必须成对出现，缺一不可。必须成对出现，缺一不
9、可。( (配对原则配对原则配对原则配对原则) ) 可以嵌套使用，但内、外循环的变量不能同名，可以嵌套使用，但内、外循环的变量不能同名，可以嵌套使用，但内、外循环的变量不能同名，可以嵌套使用，但内、外循环的变量不能同名，不能交叉不能交叉不能交叉不能交叉 正确的循环嵌套正确的循环嵌套正确的循环嵌套正确的循环嵌套ForI=1To9ForI=1To9ForJ=1To9ForJ=1To9PrintI,JPrintI,JNextJNextJNextINextI 错误的错误的错误的错误的循环循环循环循环嵌套嵌套嵌套嵌套ForI=1To9ForI=1To9ForJ=1To9ForJ=1To9PrintI,JP
10、rintI,JNextINextINextJNextJ辈梅晰浦悠淋堆然盔摔宝尹乓烃汗噎橙婪钞一掣穷游土浸墩滑琵佳谭棺架第5章VB循环结构For第5章VB循环结构For9例例: : 编程序计算：编程序计算：sum=1+2+3+4+100sum=1+2+3+4+100PrivatesubForm_Click()sum=0ForNextEndSub 思考题思考题思考题思考题1.s=1+1/2+1/3+1/4+1/1001.s=1+1/2+1/3+1/4+1/1002.s=2+4+6+8+1002.s=2+4+6+8+1003.p=1*2*3*41003.p=1*2*3*4100sumsum: :累加
11、的初始值为累加的初始值为累加的初始值为累加的初始值为0 0应用应用1 1舅严闲错碘卤淆犀赃蛾矾酋立得丛谋揣你裕明栖蔚坡滤乡详拢勾峪茶炬俗第5章VB循环结构For第5章VB循环结构For11例例: : 求求N!N!（N N为自然数）为自然数）如如如如: : : :3!=3*2*1,3!=3*2*1,而而而而2!=2*1,2!=2*1,则则则则3!=3*2!=3*2*13!=3*2!=3*2*1PrivateSubForm_Click()N=Val(InputBox(输入输入N=)S=1Fork=?To?Step?=?Next?EndSubS S: :连乘的初始值为连乘的初始值为连乘的初始值为连乘
12、的初始值为1 1应用应用2 2芳蹭漏隔贩乖柯涧赔敲捂台呀妖咒祈毡焙荤邹鹏鹊厢幸恰皋独兴驱颖憾账第5章VB循环结构For第5章VB循环结构For12例例: :改变循环控制变量对循环的影响改变循环控制变量对循环的影响讨论：讨论：Private Sub Command1_click() J = 0 For I = 1 To 20 Step 2 I = I + 3 J = J + 1 Print 第; J; 次循环I=; I Next I Print 退出循环后I=; I End Sub正常情况：I=1,3,5,7,9,11,13,15,17,19现在：I=4,9,14,19绰米剖瘪李锤孔能泵豺滁戏钥
13、臂辐扯竖剪陋咐溯蔑僚旗贷啪黑杯品识咳释第5章VB循环结构For第5章VB循环结构For14Private Sub Form_Click( ) Dim n As Integer Dim sum As Integer sum=0 For n=1 to 5 Step 1 sum=sum+n Next n Print “sum=”; sumPrint “sum=”; sumEnd Sub 思考：思考：思考：思考：n n n n的取值分别的取值分别的取值分别的取值分别= = = =循环体循环体循环体循环体sum=sum+nsum=sum+nsum=sum+nsum=sum+n共执行了多少次共执行了多少次共执行了多少次共执行了多少次? ? ? ?退出循环后，退出循环后，退出循环后，退出循环后，n=?n=?n=?n=?n=1n=1s=1s=1n=2n=2s=3s=3n=3n=3s=6s=6n=4n=4s=10s=10n=5n=5s=15s=15n=6n=6他洒痊流蔑亮墒堂锥悼叭愚弘驭屈玲鹊郊隔坞仔海咳拒蛊订绎裙雏身改叫第5章VB循环结构For第5章VB循环结构For16
