VB循环结构程序设计

VB循环结构程序设计

ID:38577466

大小:274.51 KB

页数:20页

时间:2019-06-15

VB循环结构程序设计_第1页
VB循环结构程序设计_第2页
VB循环结构程序设计_第3页
VB循环结构程序设计_第4页
VB循环结构程序设计_第5页
资源描述:

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

1、3.3循环语句程序的另一种结构是循环结构循环结构作用是重复执行一段程序循环是有条件的、次数是有限的VB的循环语句:For…Next、DoWhile…LoopForEach…Next、While…Wend应用最多的:For…Next与DoWhile…Loop返回目录3.4循环语句-For…Next循环For…Next循环一般应用于循环次数已知的场合For<循环变量>=初值To终值[Step步长]语句块(循环体)Next[循环变量]工作原理返回目录循环变量=初值循环变量超出范围?循环体循环变量增加一个步长NoYesStep缺省为1

2、3.4循环语句-For…Next循环[例3.9]求1+3+5+7+…+99PrivateSubForm_Click()DimSumAsInteger,IAsIntegerSum=0'保存累加和,先清零ForI=1To99Step2Sum=Sum+INextIMsgBox"1+3+5+…+99="&Sum,,"求和"EndSub返回目录本例的特点是数据项之间相差2,即Step的值为2思考:例中当输出对话框出现时,I的值是多少?如果省略Step2,程序的结果如何?For语句能不能改写成ForI=99To1Step-2?3.4循环语

3、句-For…Next循环[例3.10]求平均成绩ConstN=10'学生人数PrivateSubForm_Click()DimSumAsInteger,IAsIntegerDimDataAsInteger,AverageAsSingleSum=0'存放累加值的变量清零ForI=1ToN'循环40次,步长值为1省略Data=InputBox("输入第"&I&"位同学的成绩","求平均分")Sum=Sum+DataNextIAverage=Sum/NMsgBox"全班"&N&"名学生的平均分为"&Average,,"求平均分"En

4、dSub返回目录确定本例的循环变量I控制人数3.5循环语句-Do…Loop循环1.当型循环返回目录DoWhile<条件表达式>循环体LoopDo循环体LoopWhile<条件表达式>条件表达式成立?循环体NoYes条件表达式成立?循环体NoYes先判断后执行先执行后判断特点:条件表达式成立执行循环体内容3.5循环语句-Do…Loop循环[例3.12]计算平均分PrivateSubForm_Click()DimDataAsInteger,SumAsInteger,NAsIntegerDimAverageAsSingleSum=0

5、:N=0Data=InputBox("输入第"&N+1&"个同学的成绩","求平均分")DoWhileData<>-1'-1表示结束输入Sum=Sum+DataN=N+1Data=InputBox("输入第"&N+1&"个同学的成绩","求平均分")LoopAverage=Sum/NMsgBoxN&"位同学的平均分为"&Average,,"求平均分"EndSub返回目录3.5循环语句-Do…Loop循环[例3.13]Sum=1+2+3+…+N求Sum不超过10000的最大整数值和数据项数NPrivateSubForm_Clic

6、k()DimSum,NAsIntegerN=0'开始时项数为0Sum=0'保存累加值的变量Sum清零DoWhileSum<=10000N=N+1Sum=Sum+NLoopSum=Sum-NN=N-1Print"Sum=";Sum,"N=";NEndSub返回目录当Sum的值超出10000时循环才终止。因此Sum值要减去多加的一个N;而在循环过程中,N也被多加了一个1,需要减去。3.5循环语句-Do…Loop循环2.直到型循环返回目录DoUntil<条件表达式>循环体LoopDo循环体LoopUntil<条件表达式>特点:条件表

7、达式不成立执行循环体内容先判断后执行条件表达式成立?循环体NoYes先执行后判断条件表达式成立?循环体NoYes3.5循环语句-Do…Loop循环[例3.14]计算平均分(要求同例4.12)PrivateSubForm_Click()DimDataAsInteger,SumAsInteger,NAsIntegerSum=0:N=0Data=InputBox("输入成绩","计算总分")DoUntilData=-1Sum=Sum+DataN=N+1Data=InputBox(“输入成绩","计算总分")LoopPrint"全班平

8、均分为:";Sum/NEndSub返回目录DoWhileData<>-1Sum=Sum+DataN=N+1Data=InputBox(“输入成绩","计算总分")Loop3.6循环语句-两重循环两重循环:在一个循环的循环体中还包含另一个循环[例3.15]在窗体上显示一个几何图

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。