2.3程序基本结构.ppt

2 3程序基本结构 顺序结构 选择结构 循环结构 程序基本结构 一 顺序结构 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 交换结果 EndSub 使用对话框 一 输入框 InputBox a Val inputbox 输入a 二 信息对话框 MsgBox msgbox 交换后a a b b vbOKOnly 交换结果 二 选择结构 单分支选择结构 例PrivateSubForm Click DimaAsDoublea Val InputBox 请输入一个数 Ifa 0ThenMsgBox 你输入的是一个负数 EndIfPrintaEndSub 双分支选择结构 例P35PrivateSubcmdok 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语句组nEndSelect PrivateSubForm Click DimxAsSinglex Val InputBox 请输入成绩 Ifx 90ThenPrint 优秀 ElseIfx 80ThenPrint 良好 ElseIfx 70ThenPrint 中等 ElseIfx 60ThenPrint 及格 ElsePrint 不及格 EndIfEndSub PrivateSubForm Click DimxAsSinglex Val InputBox 请输入成绩 SelectCasexCaseIs 90Print 优秀 CaseIs 80Print 良好 CaseIs 70Print 中等 CaseIs 60Print 及格 CaseElsePrint 不及格 EndSelectEndSub 三 循环结构 For循环变量 初始值To终止值 Step步长 循环体Next循环变量 PrivateSubForm Click DimiAsIntegerFori 1To10PrintiNextiEndSub For Next循环 PrivateSubForm Click DimiAsInteger sAsIntegers 0Fori 1To100s s iNextiPrint 1 100之间所有数的和是 sEndSub Y 小猴在某天摘桃子若干个 当天吃掉一半多一个 第2天吃了剩下的桃子的一半多一个 以后每天都吃尚存桃子的一半多一个 到第7天要吃时只剩下一个 问小猴共摘了多少个桃子 分析 这是一个 递推 问题 先从最后一天推出倒数第2天的桃子树 再从倒数第2天的桃子推出倒数第3天的桃子数 设第n天的桃子为Xn 那么它是前一天的桃子数为Xn 1的一半减1 即Xn 1 Xn 1 2 For循环变量 初始值To终止值 Step步长 循环体Next循环变量 Dowhile条件循环体Loop Dowhile loop循环和Do Loopwhlie循环 Do循环体Loopwhile条件 先判断 后执行 先执行 后判断 PrivateSubForm Click DimiAsIntegerFori 1To10PrintiNextiEndSub PrivateSubForm Click DimiAsIntegeri 1DoWhilei 10Printii i 1LoopEndSub PrivateSubForm Click DimiAsIntegerdimsAsIntegeri 1s 0DoWhilei 100s s ii i 1LoopPrint 和是 sEndSub PrivateSubForm Click DimiAsIntegerdimsAsIntegers 0Fori 1To100s s iNextiPrint 和是 sEndSub 注 For Next语句和Dowhile Loop语句在许多情况下是可以通用的 但是For Next语句更适合用于循环次数容易确定的情况 而Dowhile Loop语句的使用则更灵活些 例 假设我国现有人口12亿 若年增长率为1 5 试计算多少年后我国人口将增加到20亿 r为年增长率 i为年数 则i年后人口数为p p 1 r i PrivateSubForm Click DimpAsSingle rAsSingle iAsIntegerp 12r 0 015i 0DoWhilep 20p p 1 r i i 1LoopPrintI 年后 我国人口将达到 p 亿 EndSub 三 循环结构 双重循环 For循环变量 初始值To终止值 Step步长 循环体Next循环变量 复习回顾For next循环结构 1 编程计算S 1 2 3 100的值2 编程计算1到100之间所有偶数的和 要求Step值为23 在程序运行过程中任意输入一个自然数n 求1到n之间所有偶数的和 例1 请用for next循环结构编写如下图所示的图形 结论 如果想让下一个print语句显示的内容与上一个print语句的内容连在一起 则在上一个Print后面加一个 分号 即可 我们称之为续行符 提出问题 思考 如何用for next循环结构实现如图所示的图形 双重循环 循环体内部还有循环语句的循环叫做多重循环 又叫多层循环或嵌套循环 如果内部只有一层循环 叫双重循环 PrivateSubForm Click DimiAsInteger jAsIntegerFori 1To5Forj 1To5Print NextjPrintNextiEndSub 内循环 j控制每行的 个数 外循环 i控制输出的行数 例2 例3 PrivateSubForm Click DimiAsInteger jAsIntegerFori 1To5Forj 1To2 i 1Print NextjPrintNextiEndSub 补充知识点 1 双重循环的执行过程是外循环执行一次 内循环执行一遍 在内循环结束后 再进行下一次外循环 如此反复 直到外循环结束 2 对于双重循环