程序基本结构资料.ppt

《程序基本结构资料.ppt》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、2.3　程序基本结构执行语句a执行语句b开始结束语句2语句1条件NY开始结束执行a执行b条件开始结束NY顺序结构选择结构循环结构程序基本结构：一、顺序结构执行语句a执行语句b开始结束P33例PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSinglea=Val(InputBox("输入a"))b=Val(InputBox("输入b"))Print"交换前:a=";a,"b=";bc=aa=bb=cMsgBox“交换后a=”&a&“b=”&b,vbOKOnly,“交换结果”

2、EndSub★使用对话框一、输入框（InputBox）a=Val（inputbox(“输入a”))二、信息对话框(MsgBox)msgbox"交换后a="&a&"b="&b,vbOKOnly,"交换结果"二、选择结构条件语句序列1TrueFalse单分支选择结构例PrivateSubForm_Click()DimaAsDoublea=Val(InputBox("请输入一个数"))Ifa<0ThenMsgBox"你输入的是一个负数"EndIfPrintaEndSub条件语句序列2TrueFalse语句序列1双分支选择结构例P35

3、PrivateSubcmdok_Click()DimvAsSinglev=Val(InputBox("输入速度(km/s)"))Ifv>=7.91Thenlblshow.Caption="飞船成功飞行"Elselblshow.Caption="飞船不能升空"EndIfEndSub多分支选择结构0-59不及格60-69及格70-79中等80-89良好90-100优秀Selectcase表达式case表达式列表1语句组1case表达式列表2语句组2…………..caseelse语句组nEndSelectPrivateSubForm_

4、Click()DimxAsSinglex=Val(InputBox("请输入成绩"))Ifx>=90ThenPrint"优秀"ElseIfx>=80ThenPrint"良好"ElseIfx>=70ThenPrint"中等"ElseIfx>=60ThenPrint"及格"ElsePrint"不及格"EndIfEndSubPrivateSubForm_Click()DimxAsSinglex=Val(InputBox("请输入成绩"))SelectCasexCaseIs>=90Print"优秀"CaseIs>=80Print"良好

5、"CaseIs>=70Print"中等"CaseIs>=60Print"及格"CaseElsePrint"不及格"EndSelectEndSub三、循环结构For循环变量=初始值To终止值（Step步长）循环体Next循环变量PrivateSubForm_Click()DimiAsIntegerFori=1To10PrintiNextiEndSubFor–Next循环PrivateSubForm_Click()DimiAsInteger,sAsIntegers=0Fori=1To100s=s+iNextiPrint"1-100

6、之间所有数的和是";sEndSub开始S=0I<=100S=s+i输出s结束I=I+1NY小猴在某天摘桃子若干个，当天吃掉一半多一个；第2天吃了剩下的桃子的一半多一个；以后每天都吃尚存桃子的一半多一个，到第7天要吃时只剩下一个，问小猴共摘了多少个桃子？分析：这是一个“递推”问题，先从最后一天推出倒数第2天的桃子树，再从倒数第2天的桃子推出倒数第3天的桃子数…设第n天的桃子为Xn,那么它是前一天的桃子数为Xn-1的一半减1，即Xn-1=(Xn+1)*2For循环变量=初始值To终止值（Step步长）循环体Next循环变量Dowh

7、ile条件循环体LoopDowhile…loop循环和Do…Loopwhlie循环Do循环体Loopwhile条件先判断，后执行先执行，后判断PrivateSubForm_Click()DimiAsIntegerFori=1To10PrintiNextiEndSubPrivateSubForm_Click()DimiAsIntegeri=1DoWhilei<=10Printii=i+1LoopEndSubPrivateSubForm_Click()DimiAsIntegerdimsAsIntegeri=1s=0DoWhilei

8、<=100s=s+ii=i+1LoopPrint"和是：";sEndSubPrivateSubForm_Click()DimiAsIntegerdimsAsIntegers=0Fori=1To100s=s+iNextiPrint"和是";sEndSub注：For…Next语句