vb-4-循环结构程序设计-实例

《vb-4-循环结构程序设计-实例》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第4章循环结构程序设计循环结构用For-Next语句实现循环结构用DoWhile-Loop语句实现循环结构嵌套的循环结构第七次课For循环变量=初值To终值Step步长循环体语句Next[循环变量]For—Next循环的一般语法格式步长为1时可省略步长可取正或负数；步长为负时终值应小于初值成对出现循环变量值介于初值和终值之间时反复执行For-Next常用于循环次数已知的循环中循环体语句可以是一条或多条语句可以使用ExitFor语句提前结束循环Fori=1To10x=x+Int(Rnd*100)sum=sum+xIfsum>300ThenExitForEndIfN

2、extiPrintsum程序说明【例】找最大值。单击最大值按钮时产生10个1～100之间的随机整数显示在框架内的标签中，同时将最大值显示在下方的标签内。lbldatalblmax处理第1个数据产生一个随机数，存放在变量a中将a显示在标签（lblData）中将a作为当前最大值放在变量max中处理第2个数据产生新的随机数，存放在变量a中将a连接显示在标签（lblData）原有内容之后如果a大于max，则将a作为最大值放在max中编程分析a=Int(Rnd*100)+1lblData.Caption=amax=aa=Int(Rnd*100)+1lblData.Capt

3、ion=lblData.Caption&","&aIfa>maxThenmax=aEndIf9次PrivateSubcmdMax_Click()DimaAsInteger,iAsInteger,maxAsIntegerRandomizea=Int(Rnd*100)+1lblData.Caption=amax=aFori=1To9重复执行9次a=Int(Rnd*100)+1lblData.Caption=lblData.Caption&","&aIfa>maxThenmax=aEndIfNextilblMax.Caption=maxEndSub求1000个数中的最

4、大?程序代码常用于执行条件明确，但事前不知道循环次数的循环语法格式DoWhile循环条件循环体语句Loop执行流程DoWhile-Loop语句条件判断循环体语句YesNo通常情况下，在进入DoWhile-Loop语句前应给循环变量设置初值循环体中必须包含使循环趋于结束的语句可以使用ExitDo语句随时跳出当前所在的循环，提前结束循环语句ExitDo可出现在循环体语句中的任意位置，通常与If语句联合使用DoWhile-Loop语句语法格式Do循环体语句LoopWhile循环条件执行流程Do-LoopWhile语句条件判断循环体语句YesNo【实例】输入若干成绩（输

5、入-1时结束）计算总成绩和平均成绩。连续弹出输入框接收成绩，直至-1时结束计算总成绩和平均成绩多行文本框LblaverageLblsumtxtscore输入第1个数据输入第一个数据，存放在变量score中判断输入的数据是否是-1，如果不是-1记录已经输入的学生人数将数据显示在txtscore原有内容之后中计算总成绩接收下一个数据编程分析—成绩输入score=Val()InputBox(“请输入...”,“成绩输入",-1)n=n+1txtScore.Text=txtScore.Text&score&Chr(13)&Chr(10)直到输入-1sum=sum+sco

6、rescore=Val(InputBox(“请输入...”,“成绩输入",-1))换行符DimsumAsInteger'总成绩DimnAsInteger'成绩个数PrivateSubcmdInput_Click()DimscoreAsIntegertxtScore.Text=""lblSum.Caption=""lblAverage.Caption="“sum=0:n=0score=Val(InputBox(“请输入...”,“成绩输入",-1))DoWhilescore<>-1n=n+1txtScore.Text=txtScore.Text&score&Chr

7、(13)&Chr(10)sum=sum+scorescore=Val(InputBox("请输入...","成绩输入",-1))LoopEndSub程序代码PrivateSubcmdCala_Click()DimaveAsSinglelblSum.Caption=sumave=sum/nlblAverage.Caption=aveEndSub程序代码【程序改进】修改上例，当输入非法成绩时，再次弹出输入框等待重新输入，直至输入1~100之间的整数为止。要求在文本框中只显示出有效的输入成绩。循环的嵌套在一个循环体内又出现另外的循环语句称为循环嵌套，也称为多重循环。在

8、嵌套结构中，对嵌套的层数