资源描述：
《《VB循环结构F》PPT课件》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
用输入框输入10个数字，并用Print方法输出A=Val(InputBox("输入第1个数"))B=Val(InputBox("输入第2个数"))C=Val(InputBox("输入第3个数"))D=Val(InputBox("输入第4个数"))E=Val(InputBox("输入第5个数"))……PrintAPrintBPrintCPrintDPrintE……ForI=1To5A=Val(InputBox("输入10个数"))PrintANextI1 判断1个数n的奇偶性5.3循环结构判断10个数n的奇偶性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=1TO10Nextk2 一般循环结构流程图(1)进入循环条件是什么？(2)循环体的算法是什么？(3)结束循环条件是什么？本章讨论VB的两种循环语句：计数循环语句For-Next条件循环语句While-WendDo-Loop3 5.3.1For-Next循环控制格式：For<循环变量>=<初值>To<终值>[Step<步长>][循环体][ExitFor]Next[循环变量](一般用于循环次数已知)功能：按确定的次数执行循环体。4 t=0ForI=2To10Step2t=t+IPrinttNextII:循环变量2:初值10:终值2:步长循环体I=I+2TFI>10?结束循环变量I的取值分别为:2,4,6,8,10完成t=2,6,12,20,30的计算5 讨论For-Next循环变量必须为数值型。循环次数步长ExitFor:强制退出循环>0初值<终值(Step1可省略)<0初值>终值=0死循环ForI=1to100S=S+INextIForI=100to1Step-1S=S+INextI6 P50例题PrivateSubForm_click()DimsAsSingle,iAsIntegern=Val(InputBox("请输入n","提示"))s=0Fori=1TonStep1s=s+INextiPrint"1到";n;"之和为：";sEndSub7 For-Next的流程图—阅读Nx=初值x>终值?循环体x=x+步长Y开始结束Nx=初值x<终值?循环体x=x+步长Y开始结束当步长＞0时当步长<0时ForX=1To10Step2…NextXForX=10To2Step-2…NextX8 For-Next:必须成对出现，缺一不可。(配对原则)可以嵌套使用，但内、外循环的变量不能同名，不能交叉'正确的循环嵌套ForI=1To9ForJ=1To9PrintI,JNextJNextI'错误的循环嵌套ForI=1To9ForJ=1To9PrintI,JNextINextJ循环的嵌套9 Mcs=5ForI=1ToMcsMcs=Mcs+1printI，McsNextI当循环终值是一个变量时，在循环第一次运行时取走变量中的值后，此变量中的值就不再影响循环。在循环体内,循环变量可多次引用；但建议不要对其赋值，否则将会导致死循环。表示:I=1To5表示:I=1To5若增:I=I-1,则出现死循环10 例:编程序计算：sum=1+2+3+4+…+100PrivatesubForm_Click()sum=0For……Next…EndSub思考题1.s=1+1/2+1/3+1/4+…+1/1002.s=2+4+6+8+…+1003.p=1*2*3*4…100sum:累加的初始值为0应用111 例:求N!（N为自然数）如:3!=3*2*1,而2!=2*1,则3!=3*2!=3*2*1PrivateSubForm_Click()N=Val(InputBox("输入N="))S=1Fork=?To?Step??=?Next?EndSubS:连乘的初始值为1应用212 思路：1.输入一个分数，判断是否有效并进行处理；2.判断是否合格，计算合格的人数；3.计算总人数、总分数和平均分。例:输入一个班的学习成绩，统计其中及格的学生人数，并计算出全班的平均分数。学生人数不定，输入负数时截止。设全班人数不超过50人。应用3PrivateSubCommand1_Click()'定义变量:Score,PassN,n,I,Sum'初始化:Sum,PassN,n均为0ForI=1To50'输入一个成绩:Score,判断Score是否有效?IfScore>0ThenIfScore>=60ThenPassN=PassN+1'统计及格人数n=n+1'统计总人数Sum=Sum+Score'统计总分ElseExitForEndIfNextI'输出:及格人数、总人数、平均分EndSub13 例:改变循环控制变量对循环的影响讨论：PrivateSubCommand1_click()J=0ForI=1To20Step2I=I+3J=J+1Print"第";J;"次循环I=";INextIPrint"退出循环后I=";IEndSub正常情况：I=1,3,5,7,9,11,13,15,17,19现在：I=4,9,14,1914 PrivateSubCommand1_Click()s=0Fork=1To3Ifk<=1Thenx=1ElseIfk<=2Thenx=2ElseIfk<=3Thenx=3Elsex=4EndIfPrintxs=s+xNextkPrintsEndSub阅读程序，写出运行结果15 PrivateSubForm_Click()DimnAsIntegerDimsumAsIntegersum=0Forn=1to5Step1sum=sum+nNextnPrint“sum=”;sumEndSub思考：n的取值分别=循环体sum=sum+n共执行了多少次?退出循环后，n=?n=1s=1①n=2s=3n=3s=6n=4s=10n=5s=15n=6②③④⑤⑥16 PrivateSubForm_Click()DimnAsIntegerDimpAsIntegerp=1Forn=3to7Step1Ifnmod2=0thenPrint“*”;n;p=p*nendifNextnPrint“=”;pEndSub思考：(1)n的取值分别=(2)循环体p=p*n共执行了多少次?(3)退出循环后，n=?①n=3②n=4p=4③n=5④n=6p=24⑤n=7⑥n=817 PrivateSubForm_Click()Dimstr1AsStringDimletterAsIntegerDimnumberAsIntegerDimotherAsIntegerDimnAsIntegerLetter=0:number=0:other=0Str1=InputBox(“输入字符串=”,”输入框”,”ab32-c,4d_5”)Forn=1toLen(str1)SelectCaseMid(Str1,n,1)Case“A”to“Z”,“a”to“z”Letter=letter+1Case1to9Number=number+1CaseelseOther=other+1EndSelectNextnPrint“letter=”;letter,”number=”;number,”other=”;otherEndSub思考：(1)n的取值分别=(2)循环体共执行了多少次?(3)退出循环后，n=?(4)如何理解letter=letter+1?nnnnnnnnnnnn123456789101112letternumberOthern4431218
