第4章结构化的程序设计分析.ppt

第4章 结构化的程序设计方法 4.1 结构化程序设计方法简介 4.1.2 算法及算法的特性 4.1.3 算法的表示 2. 伪代码表示法 3. 流程图表示法 (2) 三种基本结构的表示 例4.2 用流程图表示欧几里德算法 例4.3 用N-S流程图表示欧几里德算法 N-S 流程图示例 4.2 顺序结构程序设计 4.2.1 注释语句 4.2.2 赋值语句 2．赋值语句对数据类型的要求 4.2.3 数据的输入与输出1. Print方法 2. Format函数 3. InputBox函数 4. MsgBox函数和MsgBox过程 MsgBox常用参数说明 MsgBox函数示例 5. 利用文本框和标签控件来输入/输出数据 4.2.4 字体、字形和颜色 2．颜色属性及颜色值 4.3 选择结构 4.3.1 单行结构的If语句 例4.11 计算分段函数的y值。 4.3.2 块结构的If语句 4.3.3 多分支的If语句 2. 多分支的If语句的流程图 例4.13 计算Taxi收费金额 4.3.4 Select Case语句 例4.14 计算Taxi收费金额2 4.3.5 条件结构的嵌套 4.3.6 条件函数 例4.38 二分法高次方程求根。 例4.32：爱因斯坦的阶梯问题 设有一阶梯，每步跨2阶，最后余1阶；每步跨3阶，最后余2阶；每步跨5阶，最后余4阶；每步跨6阶，最后余5阶；每步跨7阶时，最后正好到达阶梯顶。问共有多少阶梯？ Private Sub Form_Click() Dim i% i = 7 Do While (i Mod 3 2) Or (i Mod 5 4) Or (i Mod 6 5) i = i + 14 Loop Print 共有; i; 个阶梯 End Sub 奇数 7的倍数 只能有一个分支得到执行 Private Sub Form_Click() Dim s!, f! s = Val(InputBox(输入里程数（单位：公里）)) If s =3 Then f = 5 ElseIf s =10 Then f = 5+(s-3)*1.2 Else f = 5+7*1.2+(s-10)*1.5 End If Print Taxi行驶:; s; 公里，收费:; f; 元! End Sub 1. Select Case语句的一般形式： Select Case 表达式 Case 表达式1 语句块1 [Case 表达式2 语句块2 … ] [Case Else 语句块n+1] End Select 可含变量，只能是数值型或字符串型 只能包含常量，且必须与表达式类型相同！ Case 与表达式i 之间要用空格隔开！ 四种形式之一： ① Case 85 ② Case 71,75,78 ③ Case 60 to 69 ④ Case Is 60 可混合使用： Case 78，80 to 85 Private Sub Form_Click() Dim s!, f! s = Val(InputBox(输入里程数(单位：公里))) Select Case s Case Is = 3 f = 5 Case Is = 10 f=5+(s-3)*1.2 Case Else f = 5+7*1.2+(s-10)*1.5 End Select Print Taxi行驶:; s; 公里，收费:; f; 元! End Sub If s =3 Then f = 5 Else IF s=10 Then f = 5+(s-3)*1.2 Else f = 5+7*1.2+(s-10)*1.5 End If End If If s =10 Then IF s=3 Then