2.3程序基本结构

2.3程序基本结构2021/6/271执行语句a执行语句b开始结束语句2语句1条件NY开始结束执行a执行b条件开始结束NY顺序结构选择结构循环结构程序基本结构：2021/6/272一、顺序结构执行语句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,“交换结果”EndSub2021/6/273★使用对话框

一、输入框（InputBox）

a=Val（inputbox(“输入a”))二、信息对话框(MsgBox)

msgbox"交换后a="&a&"b="&b,vbOKOnly,"交换结果"

2021/6/274二、选择结构条件语句序列1TrueFalse单分支选择结构例PrivateSubForm_Click()DimaAsDoublea=Val(InputBox("请输入一个数"))If

a<0ThenMsgBox"你输入的是一个负数"EndIfPrintaEndSub2021/6/275条件语句序列2TrueFalse语句序列1双分支选择结构例P35PrivateSubcmdok_Click()DimvAsSinglev=Val(InputBox("输入速度(km/s)"))Ifv>=7.91Thenlblshow.Caption="飞船成功飞行"Elselblshow.Caption="飞船不能升空"EndIfEndSub2021/6/276多分支选择结构2021/6/2770-59不及格60-69及格70-79中等80-89良好90-100优秀2021/6/278Selectcase表达式case表达式列表1语句组1

case表达式列表2语句组2…………..

caseelse语句组nEndSelect2021/6/279PrivateSubForm_Click()DimxAsSinglex=Val(InputBox("请输入成绩"))Ifx>=90ThenPrint"优秀"ElseIfx>=80ThenPrint"良好"ElseIfx>=70ThenPrint"中等"ElseIfx>=60ThenPrint"及格"ElsePrint"不及格"EndIfEndSubPrivateSubForm_Click()DimxAsSinglex=Val(InputBox("请输入成绩"))SelectCasex

CaseIs>=90Print"优秀"

CaseIs>=80Print"良好"

CaseIs>=70Print"中等"

CaseIs>=60Print"及格"

CaseElsePrint"不及格"EndSelectEndSub2021/6/2710三、循环结构For

循环变量=初始值To

终止值（Step步长）循环体Next

循环变量PrivateSubForm_Click()DimiAsIntegerFor

i=1To10PrintiNextiEndSubFor–Next循环2021/6/2711PrivateSubForm_Click()DimiAsInteger,sAsIntegers=0Fori=1To100s=s+iNextiPrint"1-100之间所有数的和是";sEndSub开始S=0I<=100S=s+i输出s结束I=I+1NY2021/6/2712小猴在某天摘桃子若干个，当天吃掉一半多一个；第2天吃了剩下的桃子的一半多一个；以后每天都吃尚存桃子的一半多一个，到第7天要吃时只剩下一个，问小猴共摘了多少个桃子？分析：这是一个“递推”问题，先从最后一天推出倒数第2天的桃子树，再从倒数第2天的桃子推出倒数第3天的桃子数…设第n天的桃子为Xn,那么它是前一天的桃子数为Xn-1的一半减1，即Xn-1=(Xn+1)*22021/6/2713For

循环变量=初始值To

终止值（Step步长）循环体Next

循环变量Dowhile条件循环体LoopDowhile…loop循环和Do…Loopwhlie循环Do循环体Loopwhile条件先判断，后执行先执行，后判断2021/6/2714PrivateSubForm_Click()DimiAsIntegerFor

i=1To10PrintiNextiEndSubPrivate

SubForm_Click()DimiAsIntegeri=1DoWhilei<=10Printii=i+1LoopEndSub2021/6/2715PrivateSubForm_Click()DimiAsIntegerdimsAsIntegeri=1s=0DoWhilei<=100s=s+ii=i+1LoopPrint"和是：";sEndSubPrivateSubForm_Click()DimiAsIntegerdimsAsIntegers=0Fori=1To100s=s+iNextiPrint"和是";sEndSub2021/6/2716注：For…Next语句和Dowhile…Loop语句在许多情况下是可以通用的，但是For…Next语句更适合用于循环次数容易确定的情况，而Dowhile…Loop语句的使用则更灵活些。例：假设我国现有人口12亿，若年增长率为1.5%，试计算多少年后我国人口将增加到20亿。r为年增长率，i为年数，则i年后人口数为p=p(1+r)i2021/6/2717PrivateSubForm_Click()DimpAsSingle,rAsSingle,iAsIntegerp=12r=0.015i=0DoWhilep<20p=p*(1+r)i=i+1LoopPrintI

;“年后，我国人口将达到”;

p;"亿"EndSub2021/6/2718三、循环结构-双重循环For

循环变量=初始值To

终止值（Step步长）循环体Next

循环变量复习回顾For-next循环结构：1、编程计算S=1+2+3+…+100的值2、编程计算1到100之间所有偶数的和，要求Step值为23、在程序运行过程中任意输入一个自然数n, 求1到n之间所有偶数的和2021/6/2719例1:请用for-next循环结构编写如下图所示的图形结论：如果想让下一个print

语句显示的内容与上一个print语句的内容连在一起，则在上一个Print后面加一个“分号”即可。我们称之为续行符。2021/6/2720提出问题，思考如何用for-next循环结构实现如图所示的图形双重循环循环体内部还有循环语句的循环叫做多重循环，又叫多层循环或嵌套循环。如果内部只有一层循环，叫双重循环。2021/6/2721PrivateSubForm_Click()DimiAsInteger,jAsIntegerFori=1To5Forj=1To5Print"*";NextjPrintNextiEndSub内循环，j控制每行的*个数外循环，i控制输出的行数例2:2021/6/2722例3:PrivateSubForm_Click()DimiAsInteger,jAsIntegerFori=1To5Forj=1To2*i-1Print"*";NextjPrintNextiEndSub2021/6/2723补充知识点：1、双重循环的执行过程是外循环执行一次，内循环执行一遍，在内循环结束后，再进行下一次外循环，如此反复，直到外循环结束。2、对于双重循环，各层循环的循环控