程序的基本结构(高二备课).ppt

1 顺序结构PrivateSubcommand1 Click DimaAsSingleDimbAsSingleDimcAsSinglea val text1 text b val text2 text c aa bb ctext1 text atext2 text bEndSub 复习顺序结构 学习目标 掌握顺序结构 选择结构两种基本结构 能够使用这两种基本结构编写简单的程序解决具体问题 基本结构 任何正规的程序都可以分解为三种基本结构 顺序结构 选择结构和循环结构 程序的基本结构 顺序结构 按照由上到下的顺序一行一行地执行 程序中没有分支 没有重复 选择结构 根据不同的条件判断来决定程序执行走向的结构 程序中有分支 没有重复 IF语句有 单分支选择结构 形式为IfThen语句块EndIf 双分支选择结构 形式为IfThen语句1Else语句2EndIf Ifxmod2 0thenPrint 偶数 Elseprint 奇数 endif 例如 ifxmod2 0thenprint 偶数 endif 选择结构形式语句 2 选择结构 单分支选择结构PrivatesubcmdOK click Dimvassinglev val InputBox 输入速度 km s Ifv 7 91thenlblshow caption 飞船成功飞升 Elselblshow caption 飞船不能升空 EndifEndsub 开始 输入速度V V 7 91 输出 飞船成功飞行 输出 飞船不能升空 结束 Y N 多分支选择结构 形式为IfThenElseIfThen Else语句块n 1 EndIf X t s s s为身高 t是体重Ifx 23thenStr 您的体形偏胖 Elseifx 19 5thenstr 您的体形偏瘦 elsestr 您的体形很完美 endif 当程序出现多分支选择时 用If语句比较烦琐 而使用多分支选择SelectCase语句就方便多了 SelectcasemonthCase1 3 5 7 8 10 12print 大月 Case2print 平月 Caseelseprint 小月 Endselect Selectcasexmod2Case0print 偶数 Case1print 奇数 Endselect 语法格式为 SelectCase表达式的值Case情况1语句块1 Case情况2语句块2 CaseElse语句块n EndSelect 例 输入一学生成绩 评定其等级 方法是 90 100分为 优秀 80 89分为 良好 70 79分为 中等 60 69分为 及格 60分以为 不合格 使用IF语句实现的程序段如下 Ifx 90thenPrint 优秀 ElseIfx 80ThenPrint 良好 ElseIfx 70ThenPrint 中等 ElseIfx 60ThenPrint 及格 ElsePrint 不及格 EndIf 使用SelectCase语句如下 SelectcasexCaseis 90Lblshow caption 优秀 Caseis 80Lblshow caption 良好 Caseis 70Lblshow caption 中等 Caseis 60Lblshow caption 及格 CaseelseLblshow caption 不及格 Endselect 活学活用 编写程序 输入一个分数 如果大于60则输出 合格 否则输入 不合格 Privatesubcommand1 click DimaassingleA v