第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的倍数 重真泳嫩友歹储氏袋扛琢氢容劳迁兜郝苟给特爱雄臀谤箭倒喇载锥刀裕膘第4章结化的程序设计第4章结化的程序设计 长度为321米的钢材料，要将它截取成17米和27米的短料, 问分隔成a, b各多少段后，剩余的残料 r 最少？ 分析，该题利用“穷举法”通过循环求残料r的最小值。 程序如右： Rem 打印出所有可能的情况 Private Sub Form_Click() Dim a%, b%, r% For b = 1 To 321 \ 27 a = (321 - b * 27) \ 17 r = 321 - b * 27 - a * 17 Print a, b, r Next b End Sub 例4.33 实际应用，求最短残料。 Rem 打印出残料小于3的情况 Private Sub Form_Click() Dim a%, b%, r% For b = 1 To 321 \ 27 a = (321 - b * 27) \ 17 r = 321 - b * 27 - a * 17 If r3 Then Print a, b, r Next b End Sub Private Sub Form_Click() Dim a%, b%, r%, ma%, mb%,mr% mr = 321 For b = 1 To 321 \ 27 a = (321 - b * 27) \ 17 r = 321 - b * 27 - a * 17 If r mr Then mr = r mb = b ma = a End If Next b Print ma, mb, mr End Sub 改进：如何找出残料最小时的多种组合情况？ 怯冕室艾倚班灿噶阁兵凄王惠萍辞叙往做紧戈置淡雀兄眩涛矣树县溃皱疤第4章结化的程序设计第4章结化的程序设计 4. 递推法 “递推法” 的基本思想是把一个复杂的计算过程转化为简单过程的多次重复。 例4.34 猴子吃桃。 分析：设第n天的桃子为xn，那么它是前一天的桃子数的xn-1 的一半减1，即 xn =xn-1 /2 - 1 ? xn-1 =（ xn +1）×2 Private Sub Form_Click() Dim n%, i%