vb课件2 第6章 循环结构程序设计.ppt

《vb课件2 第6章 循环结构程序设计.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第6章循环结构程序设计江苏技术师范学院计算机应用基础教研室IF<条件1>Then…..IF<条件2>Then……Else…..EndIf….Else….IF<条件3>Then…..Else…..EndIf…..EndIF复习IF条件语句形式:If<条件1>Then<语句块1>[ElseIf<条件2>Then<语句块2>]…[Else语句块n+1]EndIfSelectCase语句（情况语句）形式：SelectCase测试表达式Case表达式列表1语句块1Case表达式列表2语句块2…[CaseElse语句块n+1]EndSel

2、ect复习SelectCase语句引例:编程计算：S=1+2+3+…+100第6章循环结构程序设计本章内容及要求：（1）掌握Do….Loop循环语句与ExitDo语句的使用；（2）掌握For…..Next语句及ExitFor语句的使用；（3）掌握循环结构的嵌套应用；（4）掌握循环结构和选择结构的嵌套应用。6.1概述在VisualBasic程序设计中，实现循环结构的语句主要有下列几种：lDo…Loop语句For…Next语句lWhile…Wend语句DoWhile<条件>…Loop形式Do…LoopWhile<条件>形式DoUn

3、til<条件>…Loop形式Do…LoopUntil<条件>形式Do…Loop形式前测型:DoWhile<条件>语句块[ExitDo]语句块LoopDo…Loop循环语句使用形式6.2Do...Loop循环结构6.2Do...Loop循环结构PrivateSubForm_Click()DimiAsInteger:DimaAsInteger'定义所需变量i=0:a=0'给变量赋初值0,这两条语句可省略DoWhilei<100i=i+1'每次循环，变量i都增加1a=a+i'每次循环，变量a都加变量i的值LoopPrinta'计算完

4、毕，变量a的值即为所求EndSub例6.1:使用DoWhile…Loop循环语句计算1+2+3+…+100的值后测型:Do语句块[ExitDo]语句块LoopWhile<条件>6.2Do...Loop循环结构6.2Do...Loop循环结构例6.2:使用Do…LoopWhile循环语句计算1+2+3+…+n的值,n的值由文本框输入。PrivateSubCommand1_Click()DimiAsInteger,nAsInteger,aAsInteger'定义所需变量n=Text1.Text'得到输入的值Doi=i+1'每次循环

5、，变量i都增加1a=a+i'每次循环，变量a都加变量i的值LoopWhilei语句块[ExitDo]语句块LoopDo…Loop循环语句使用形式6.2Do...Loop循环结构6.2Do...Loop循环结构例6.3:计算阶乘n！的值（n的值由文本框输入）。PrivateSubCommand1_Click()DimiAsInteger,nAsIntegerDimaAsLongn=val(Text1.Text)'得到输入的值n

6、a=1'必须为变量a赋初值1DoUntili=ni=i+1'每次循环，变量i都增加1a=a*i'每次循环，变量a都乘以变量i的值LoopText2.Text=a'计算完毕，变量a的值即为所求EndSub后测型:Do语句块[ExitDo]语句块LoopUntil<条件>6.2Do...Loop循环结构例6.4:使用级数求π的值。根据下式，计算圆周率π的近似值，当计算到绝对值小于0.0001的通项时，认为满足精度要求，停止计算。π/4=1-1/3+1/5-1/7+…+(-1)n+11/2n-1+…6.2Do...Loop循环结构教

7、材P100:第15、16题PrivateSubcmdPi_Click()DimaAsSingle'变量a保存通项之和DimmAsSingle'变量m保存通项的绝对值DimsAsInteger'变量s产生通项的符号DimiAsInteger'变量i产生通项的分母s=1'第一项符号为正i=1'第一项为1Do'开始循环m=1/i'计算通项的绝对值a=a+s*m'总和加上一个通项i=i+2'产生下一个通项分母s=-s'轮流转换通项的正负号LoopUntilm<0.0001'测试是否满足精度要求Text1.Text=a*4'输出计算结果

8、EndSub6.2Do...Loop循环结构6.2Do...Loop循环结构Do语句块[ExitDo]语句块LoopPrivateSubCommand1_Click()DimiAsInteger,nAsIntegerDimaAsLongn=val(Text1.Text)a=1