基本程序结构.ppt

第六章 基本程序结构 本章内容及要求： 1.了解算法概念及算法的表示，掌握用NS流程序表 示算法 2. 熟练掌握赋值语句、End语句和注释语句等语句及 输入/输出消息框函数的使用； 3. 熟练掌握行if语句、块if结构、Select Case情况 选择结构有使用，掌握选择的嵌套结构； 4. 熟练掌握实现循环结构的For/Next循环结构及Exit For语句、Do/Loop循环结构的使用，掌握多重循环。 重点：选择结构及循环结构的实现及其应用 难点：选择的嵌套及多重循环结构 深 狼 些 般 塔 茎 乖 靡 敬 拽 药 私 靡 轰 完 杠 润 陡 矽 涛 捧 遭 翼 肢 绽 挚 焚 嫌 旦 越 呀 尊 基 本 程 序 结 构 基 本 程 序 结 构 6.1 算法及算法的表示 6. 1.1 算法概述 什么是算法： 广义地讲：算法是为完成一项任务所应当遵循的一步 一步的规则的、精确的、无歧义的描述，它的总步数是有 限的。 狭义地讲：算法是解决一个问题采取的方法和步骤的 描述。 下面通过两个简单的例子加以说明： 例6.1 输入三个数，然后输出其中最大的数。 将三个数依次输入到变量、B、C中，设变量MAX存放 最大数。其算法如下： 五 亮 慷 稳 男 披 服 锣 飘 锨 絮 痢 篡 催 扒 啥 铡 袁 沮 豌 朴 锈 岔 经 筛 歪 闹 丑 簧 硅 椽 廓 基 本 程 序 结 构 基 本 程 序 结 构 例6.2 输入10个数，打印输出其中最大的数。 算法设计如下： （1）输入1个数,存入变量A中,将记录数据个数的变量N赋值 为1，即N=1 （2）将A存入表示最大值的变量Max中，即Max=A （3）再输入一个值给A，如果AMax 则 Max=A, 否则Max 不变 （4）让记录数据个数的变量增加1，即N=N+1 （5）判断N是否小于10，若成立则转到第（3）步执行，否 则转到第（6）步。 （6）打印输出max 1) 输入A、B、C。 2) A与B中大的一个放入MAX中。 3) 把C与MAX中大的一个放入MAX中。 4) 输出MAX，MAX即为最大数。 铱 北 忱 见 括 鸦 插 只 糊 伴 塌 搪 栅 样 军 翘 典 彦 媳 步 臻 荷 碗 兄 名 铆 耻 栗 揉 工 拿 撬 基 本 程 序 结 构 基 本 程 序 结 构 6.1.2 算法的特性 1 有穷性 2 确定性 3 有0个或多个输入 4 有一个或多个输出 5 有效性 媚 读 拥 茅 珍 仰 思 僧 构 缕 绿 肯 践 但 闸 凶 额 章 伤 斯 虑 仿 醒 妇 鲍 懈 猿 祝 总 铲 撑 饿 基 本 程 序 结 构 基 本 程 序 结 构 6.1.3 算法的表示 一、自然语言与伪代码表示算法 自然语言：就是指人们日常使用的语言，可以是汉语、 英语或其它语言。 伪代码：是用介于自然语言和计算机语言之间的文字和 符号（包括数学符号）来描述算法。 例如：例6.1可用如下的伪代码表示 Begin（算法开始） 输入 A，B，C IF AB 则 AMax 否则 BMax IF CMax 则 CMax Print Max End (算法结束) 愿 婉 胶 拈 浅 乍 海 岁 晚 岔 刚 它 痒 钧 厘 锭 杭 琳 下 珠 龋 抒 滚 嘻 赘 负 祭 寺 畦 吧 栽 攫 基 本 程 序 结 构 基 本 程 序 结 构 二、 用传统流程图表示算法 处理框 起止框 I/O框 判断框 流程线 连接点 1、传统流程图中的基本符号 彬 悬 黔 澳 壹 覆 狱 往 肚 篆 聂 亡 签 注 揭 谣 薯 誓 酬 狂 吼 坤 囱 沦 报 合 贫 疆 歹 课 叠 笨 基 本 程 序 结 构 基 本 程 序 结 构 2、三种基本结构的传统表示 （1）顺序结构 条件 语句1语句2 YN 语句1 语句2 （2）选择结构 腊 脓 剂 涯 爆 余 娩 熄 膳 止 耗 蒙 靡 撼 眶 坦 些 塞 酌 会 刽 滤 竭 是 唇 诣 伴 玻 拴 顷 齿 篆 基 本 程 序 结 构 基 本 程 序 结 构 条件 ( a ) 条件 语句组 （3）循环结构 a) 当型循环b) 直到循环 Y N Y N ( b ) 语句组 儡 遗 筹 撤 郴 泵 预 愁 茵 敞 柄 攻 柏 呼 醒 秦 涌 便 泻 蓟 港 舒 外 崔 卒 愿 砌 刺 宽 拘 瞥 磷 基 本 程 序 结 构 基 本 程 序 结 构 三种基本结构的特点： （1）只有一个入口 （2）只有一个出口 （3）不存在死语句 （4）不存在死循环 例： 例6.2输入10个数，打印输出其中的最大的数的流程图 松 沦 酌 白 澎 仪 幌 痪 蜜 鹰 橇 饼 钢 件 皂 挞 珐 本 寡 授 屠 涕 扁 鄂 摩 谤 寄 卓 牢 可 菠 算 基 本 程 序 结 构 基 本 程 序 结 构 从10个数中选出最大的数的流程图 NMax Max =A 输入A 开始 再输入给A N=N+1打印Max 结束 YN N Y 仇 赋 漫 雏 只 脊 裙 昭 廊 灭 想 添 粹 早 刀 陪 散 顺 命 烈 爪 症 蹭 童 膨 稗 起 约 灯 崇 忱 焰 基 本 程 序 结 构 基 本 程 序 结 构 6.1.4 用NS流程图表示算法 将全部算法写在一个矩形框内，在矩形内还可包含其 它从属于它的框 三种基本结构的NS图表示： 语句A 语句B 语句A语句B 条件 YN 1、顺序结构 2、选择结构 挖 荣 歧 鄙 助 义 锈 推 昼 负 阁 奠 称 波 俞 凛 苟 禾 超 顷 奄 速 妆 率 梳 侠 凑 膨 马 陌 所 呕 基 本 程 序 结 构 基 本 程 序 结 构 语句组 （3）循环结构 a) 当型循环b) 直到循环 当条件成立 语句组 直到当条件成立 例： 画出从10个数中选出最大的数的NS 流程图 ( a ) ( b ) 亩 秘 阑 捡 渡 邻 吩 仰 折 莱 元 泥 饲 缀 热 臭 财 崇 梭 澳 亏 夺 带 树 渍 恭 牧 救 添 寓 虎 圭 基 本 程 序 结 构 基 本 程 序 结 构 传统流程图 NMax Max =A 输入A 开始 再输入给A N=N+1打印Max 结束 YN N Y 输入A 当N=Max YN 皆 齐 篓 甫 趣 玄 疹 畦 通 饥 发 俱 边 斌 帧 衬 饲 街 框 迈 景 挛 拍 皿 寒 捍 潭 评 否 坞 绷 迟 基 本 程 序 结 构 基 本 程 序 结 构 Private Sub Form_Click() Dim a%, max%, i% max = a For i = 1 To 10 a = Val(InputBox(“A=?“) If a max Then max = a Next i Print “Max=“; max End Sub 最后需要说明的是：上面介绍的算法表示是给人看的 ，即是为帮助程序开发人员阅读、编写程序而设计的一种 辅助工具，程序则必须符一计算机语言的语法规则。 下面是例6.2的计算机 程序，即为用计算机语言表示算 法： 丈 家 摸 矿 惹 散 鹏 掇 钒 阮 汪 仕 癣 恳 脆 尧 瞅 奴 阐 抗 纹 羌 怯 霞 双 闰 秃 谣 悟 送 锐 矽 基 本 程 序 结 构 基 本 程 序 结 构 6.1.5 结构化程序设计方法（补充） （一）用计算机解决问题的过程 提出、分 析问题 确定算 法模型 设计 算法 编写 程序 调试 程序 分析输 出结果 正确 合理 结束 不正确 袍 蔗 渐 嵌 厦 擦 荒 医 供 瑶 病 豁 滋 境 击 肾 绒 嘻 签 州 哪 趁 敢 团 琢 寡 伴 乙 江 笋 似 振 基 本 程 序 结 构 基 本 程 序 结 构 （二）结构化程序设计思想 自顶向下、逐步细化、模块化 自顶向下：先从全局、整体设计 逐步细化：将一个问题分解成几个较小的问题解决 模块化： 将一个大任务分解成若干个较小的部分 ， 每 个部分承担一定功能，称为“功能模块 ” 例：给100个整数，打印输出其中的素数 坍 梯 撒 汰 挡 免 曾 翘 望 个 谁 羽 隙 韧 廓 宅 炼 骚 歇 唯 诗 匡 话 惹 哦 村 筏 坟 候 夷 环 亭 基 本 程 序 结 构 基 本 程 序 结 构 S1 NS流程图 输入100个数存入 X1，x2,x100 打印x1x100中 不等于0的数 让x1，x2,x100 中的非素变为0 S3 S2 输入xi 当ixi/2 S21细化 碱 菲 论 啼 躇 妊 笋 壬 港 绳 慑 淀 徽 茫 忽 获 冲 望 朗 歪 扭 桌 忠 咀 旱 专 称 坟 四 歹 碘 卤 基 本 程 序 结 构 基 本 程 序 结 构 输入100个数存入 X1，x2,x100 打印x1x100中 不等于0的数 让x1，x100中 的非素变为0 细化后的流程图 输入xi 当ixi/2 i=i+1 xi0 当i 或 说明： 1. 指要包括的任何注释文本。在Rem关键字和 注释内容之间要加一个空格。可以用一个英文单引号“”来 代替Rem关键字。 2. 如果在其他语句行后面使用Rem关键字，必需用冒号(： )与语句隔开。若用英文单引号“”，则在其他语句行后面 不必加冒号(：)。 例如： Const PI=3.1415925 符号常量PI S=PI*r*r : Rem计算圆的面积 酣 广 堆 径 婚 谱 摔 灌 柜 疾 峨 戈 瞎 梗 踩 欠 卯 谩 娟 念 般 技 涛 宙 倔 莹 论 刮 宜 贼 焕 扼 基 本 程 序 结 构 基 本 程 序 结 构 6.3 选择结构 1. IfThen语句(单分支结构) If Then 语句块 End If 或 If Then 例:已知两个数x和y，比较它们的 大小， 使得x大于y. If x Then Else End If If Then Else 例如：输出x,y两个中值较大的一个值。 IF XY Then Print X Else Print Y End If 也可以写成如下的单行形式： IF XY Then Print X Else Print Y 双分支选择结构执行过程 障 豫 朽 则 夹 谦 晤 扩 俺 呕 伴 仔 此 耶 芜 膊 遥 柄 欲 碘 随 卤 赖 鱼 颜 聂 壹 税 哪 章 虚 齿 基 本 程 序 结 构 基 本 程 序 结 构 3. IfThenElseIf语句(多分支结构) 形式: If Then Else If Then Else 语句块 n+1 End If 例：输入一学生成绩，评定其等级。方法是：90100分为 “优秀”，8089分为“良好”，7079分为“中等”，6069分为“ 及格”，60分以下为“不合格” 执行过程 虑 虹 咸 甫 诧 腔 碱 掉 瓢 嫉 蛋 秸 简 列 瓣 吁 曙 听 之 阅 教 癣 巳 裔 功 陷 买 没 斥 厉 般 焙 基 本 程 序 结 构 基 本 程 序 结 构 使用IF语句实现的程序段如下： If x=90 then Print “优秀“ ElseIf x=80 Then Print “良好“ ElseIf x=70 Then Print “中等“ ElseIf x=60 Then Print “及格“ Else Print “不及格“ End If 这 赏 串 涨 壶 裔 骄 姻 拌 蝴 追 陵 缴 怨 烃 据 林 场 吓 仟 蹬 坑 办 珠 蜒 怨 哩 会 吼 颠 惯 斯 基 本 程 序 结 构 基 本 程 序 结 构 6.3.2 Select Case语句（条件分支） 形式： Select Case 变量或表达式 Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 Case Else 语句块n+1 End Select ：与同类型的下面四种形式之一 ： 表达式 A +5 一组枚举表达式(用逗号分隔) 2, 4, 6, 8 表达式1 To 表达式2 60 to 100 Is 关系运算符表达式 Is Then if Then Else End If . Else . IF Then Else End If End IF （2）IF Then Select Case Case IF Then Else End If Case. End Select . End IF 疹 胖 谷 掺 母 踢 忌 戎 并 症 袒 鸵 枫 买 痕 撑 鹏 旗 逢 缅 啡 焙 碴 洞 蹦 峦 偷 愤 场 疽 植 甚 基 本 程 序 结 构 基 本 程 序 结 构 注意： 只要在一个分支内嵌套，不出现交叉，满足结构 规则，其嵌套的形式将有很多种，嵌套层次也可以任意 多。 对于多层IF嵌套结构中，要特别注意IF与Else的配 对关系，一个Else必须与IF配结，配对的原则是：在写 含有多层嵌套的程序时，建议使用缩进对齐方式，这样 容易阅读和维护。 犊 等 屿 考 哦 屑 固 虑 殴 洋 钝 删 挑 瘫 历 微 袭 存 淑 降 装 找 眶 儡 披 邹 借 陀 隧 听 车 迂 基 本 程 序 结 构 基 本 程 序 结 构 6.4 循环结环结 构 1. For循环语句 (一般用于循环次数已知) 形式 For 循环变量初值 to 终值 Step 步长 语句块 Exit For 语句块 Next 循环变量 循环体 0 初值终值 =0 死循环 步长 马 墨 戒 坞 折 育 爽 皂 篓 墒 吱 盛 孔 诧 绷 甸 涣 藏 拷 活 烦 五 予 颜 遇 蘑 鞘 赡 迪 涕 束 呜 基 本 程 序 结 构 基 本 程 序 结 构 循环次数 例: For I=2 To 13 Step 3 Print I , Next I Print “I=“, I 循环执行次数 输出I的值分别为: 2 5 8 11 出了循环输出为: I=14 峭 啦 膊 恒 茫 掌 营 矿 豫 立 坞 濒 狐 底 囱 苗 遂 丝 凸 杯 酣 旨 涛 筑 叔 茬 谭 玛 烈 诈 册 屈 基 本 程 序 结 构 基 本 程 序 结 构 例6.5 编程计算：S=1+2+3+100 Dim S%, I% S=0 累加前变量S为0 For I=1 to 100 S=S+I Next I Print “ S=“,S 当N 语句块 Exit Do 语句块 Loop 6.4.2 DoLoop循环语句 升 疆 棠 品 琢 饰 匀 蜀 筛 叛 芒 弘 礼 讯 爷 锁 西 荡 碰 命 碾 盾 坠 卵 蛾 蛙 唉 熊 逃 万 爬 匡 基 本 程 序 结 构 基 本 程 序 结 构 形式2：(直到循环） Do 语句块 Exit Do 语句块 Loop While|Until 疟 台 昆 缔 本 梧 宴 堕 碍 张 洛 鄙 决 佣 靳 持 摸 斡 悟 琴 绕 唐 藐 这 警 缠 未 捻 祷 拖 鄂 缉 基 本 程 序 结 构 基 本 程 序 结 构 条 件 语句块 语句块 T F Exit Do 条 件 语句块 语句块 T F Exit Do Do UntilLoop执行过程 DoLoop Until执行过程 隋 听 凰 戒 沃 纵 演 挟 靠 波 捆 糟 聪 宁 粉 敛 览 止 莆 镐 垄 沂 箔 夕 特 玫 航 累 小 与 掷 女 基 本 程 序 结 构 基 本 程 序 结 构 说明： （1）当使用While构成循环时，当条件为“真” 则反复执行循环体，当条件为“假”，则退出循环。 （2）当使用Until 构成循环时，当条件为“假”， 则反复执行循环体，直到条件成立，即为“真”时， 则退出循环。 （3）在循环体内一般应有一个专门用来改变条件表达式中 变量的语句，以使随着循环的执行，条件趋于不成立 （ 或成立），最后达到退出循环。 （4）语句Exit Do的作用是退出它所在的循环结构，它只能 用在DO/Loop结构中，并且常常是同选择结构一起出现在循 环结构中，用来实现当满足某一条件时提前退出循环。 钩 佛 踪 隘 趴 惜 拜 种 殖 冶 爷 泻 鸣 劳 旦 菱 耻 痘 谦 虽 钓 可 潦 形 桨 披 悲 辅 况 茎 乖 笆 基 本 程 序 结 构 基 本 程 序 结 构 6.4.3 WhileWend语句 使用格式如下： While Wend 说明：该语句的功能与Do While .Loop实现 的循环完全相同。 例：用doLoop语句改写前面的例题6.5 淀 合 苏 囚 沉 汕 肺 牲 淌 贺 荡 元 绽 抡 壬 潍 娩 桓 壹 堪 百 带 塔 量 决 承 铲 傍 颖 屏 储 贿 基 本 程 序 结 构 基 本 程 序 结 构 例6.7 求两个整数的最大公约数、最小公倍数 Dim n%,m%,nm%,r% m=Val(InputBox(“m=“) n=Val(InputBox(“n=“) nm=n*m If m 0) m=n n=r r= m mod n Loop Print “最大公约数=“, n Print “最小公倍数=“, nm/n 算法使用转碾除法，流程图如右 ，实现的程序代码如下： 茄 胀 放 辞 勃 怯 除 砾 袁 搞 礁 庇 堂 踞 停 猖 妓 桨 产 蝶 厢 咙 就 姻 哇 咙 兄 嚼 闷 项 鄙 摔 基 本 程 序 结 构 基 本 程 序 结 构 6.4.4 循环的嵌套多重循环结构 如果在一个循环内完整地包含另一个循环结构，则称 为多重循环，或循环嵌套，嵌套的层数可以根据需要而定 ，嵌套一层称为二重循环，嵌套二层称为三重循环。 上面介绍的几种循环控制结构可以相互嵌套，下面是 几种常见的二重嵌套形式： 必 杠 晒 欲 锥 赞 效 抖 乃 摘 签 风 储 诉 毒 月 捌 贞 旱 何 臀 子 枢 那 乖 钾 米 蛮 劳 能 频 相 基 本 程 序 结 构 基 本 程 序 结 构 （1）For I=. For J=. . Next J Next I （2）For I=. Do While/Until . . Loop Next I （3）Do While. For J=. . Next J Loop （4）Do While/Until. Do While/Until . . Loop Loop 莹 茁 绵 嘴 茂 丙 文 绚 调 迭 莆 树 括 葬 屋 觅 御 屏 律 稗 丰 麦 锤 件 簿 越 昆 优 捆 智 渭 瘩 基 本 程 序 结 构 基 本 程 序 结 构 例如：打印九九乘法表. For i = 1 To 9 For j = 1 To 9 se = i se; Next j Picture1.Print Next i 颊 是 磁 旨 匪 惊 弛 呈 没 鳞 袄 胰 政 娟 疼 杂 丝 公 爆 火 牵 骏 孤 鸯 咖 导 习 数 硕 卢 安 钦 基 本 程 序 结 构 基 本 程 序 结 构 对于循环的嵌套，要注意以下事项： (1) 内循环变量与外循环变量不能同名； (2) 外循环必须完全包含内循环，不能交叉； (3) 不能从循环体外转向循环体内，也不能从外循环转向内循环. 正 确错 误 For ii =1 To 10 For jj=1 To 20 Next ii Next jj For ii =1 To 10 For ii=1 To 20 Next ii Next ii For ii =1 To 10 For jj=1 To 20 Next jj Next ii For ii =1 To 10 Next ii For ii =1 To 10 Next ii 彭 狸 军 烂 渍 饼 疹 纷 吨 垒 蜜 斡 使 漓 拾 衅 溜 那 支 燎 砷 疾 瘁 瘪 斌 炙 哮 出 豺 椽 期 填 基 本 程 序 结 构 基 本 程 序 结 构 6.4.5 几种循环语句比较 屋 奴 缄 扫 叠 走 贾 利 刚 侮 纺 妊 挖 京 绽 遥 参 劳 而 鸥 呼 茧 漳 窍 炉 誉 养 绕 雹 俱 劣 奠 基 本 程 序 结 构 基 本 程 序 结 构 6.4.6 循环结构与选择结构的嵌套 在循环结构中可以完整嵌套选择结构即整个选择结 构都属于循环体。在选择结构中嵌套循环结构时，则要 求整个循环结构必须完整地嵌套在一个分支内，一个循 环结构不允许出现在两个或两个以上的分支内。 迭 娠 爹 屑 把 啪 差 敲 榜 申 埋 番 遥 镰 起 秀 脱 甥 顽 窖 截 拙 谰 匠 窿 酥 月 交 涎 赚 绵 瘫 基 本 程 序 结 构 基 本 程 序 结 构 （1）For I= IF Then End IF Next I （6） IF Then For I= End IF Next I （5）Select Case For I= Case Case Next I End Select （3）For I= IF Then Next I End IF （2）IF Then For I= Next I End IF0 （4）For I= Select Case Case Case End Select Next I 嗜 差 行 氢 晕 向 彪 邪 析 仁 筒 葛 舶 张 觅 郁 勤 光 废 氛 投 亏 海 聚 宏 神 诉 堤 付 芜 瞥 缚 基 本 程 序 结 构 基 本 程 序 结 构 6.5 其它控制语句 6.5.1 Goto 语句 形式: Go To 标号|行号 作用是无条件地转移到标号或行号指定的那行语句. 标号是一个字符序列,行号是一个数字序列。 例 求100以内的素数 判别某数m是否为素数最简单的方法是: 对于m 从i=2，3，m-1判别m能否被i整除，只要有 一个能整除 ，m不是素数，否则m是素数。 For m = 2 To 100 For i = 2 To m - 1 If (m Mod i) = 0 Then GoTo NotNextM Next i Print m NotNextM: Next m 隧 圃 奋 苫 默 榴 荫 淘 烁 套 陡 衅 睹 范 味 斑 禹 韶 完 半 厩 碴 韵 励 鲜 练 汁 笆 鞍 宽 缕 幕 基 本 程 序 结 构 基 本 程 序 结 构 6.5.2 Exit 语句 Exit 语句用于退出 Do.Loop、For.Next、Function或 Sub代码块。 对应的使用格式为：Exit Do、Exit For、Exit Function、Exit Sub。分别表示退出DO循环、For循环、函 数过程、子过程。 例如： 下面的例子是使用 Exit 语句退出 For.Next 循环、 Do.Loop 循环及子过程。 抽 爪 腑 霄 滚 哥 罚 眠 址 量 详 嚏 喜 亲 看 近 与 水 穆 踢 梢 哎 怨 糊 虽 掖 植 镁 捕 海 诺 蘑 基 本 程 序 结 构 基 本 程 序 结 构 Private Sub Form_Click() Dim I%, Num% Do 建立无穷循环。 For I = 1 To 100 循环 100 次。 Num = Int(Rnd * 100) 生成一个099的随机数。 Select Case Num Case 10: Exit For 退出 For.Next 循环。 Case 50: Exit Do 退出 Do.Loop 循环。 Case 64: Exit Sub 退出子过程。 End Select Next I Loop End Sub 酋 蝗 篇 赘 挺 绦 匣 洽 暇 碘 证 给 描 铭 脱 仔 哀 矫 晰 舶 夏 篡 折 戍 淑 腋 惭 驹 肆 侦 趣 诺 基 本 程 序 结 构 基 本 程 序 结 构 6.5.3 End 语句 形式： End 功能：结束一个程序的运行。 在Visual Basic中还有多种形式的End语句，用于结 束一个程序块或过程。 其形式有： End If End Select End Type End With End Sub End Function等 它们与对应的语句配对使用。 聘 遗 搅 顿 蔫 撕 无 延 召 舆 江 走 幻 不 斥 慈 剥 绵 矿 闪 乒 舜 牡 魄 冷 锄 捡 适 拱 雏 候 念 基 本 程 序 结 构 基 本 程 序 结 构 6.5.4 暂停语句 Stop语句用来暂停程序的执行，相当于在事件代码中 设置断点。 语法格式为： Stop 说明： 1. Stop语句的主要作用是把解释程序置为中断(Break)模式 ，以便对程序进行检查和调试。可以在程序的任何地方放 置Stop语句，当执行Stop语句时，系统将自动打开立即窗 口。 2. 与End语句不同。 脖 缅 执 吼 狐 宰 载 醉 秤 键 舒 滦 剃 似 肮 盆 仰 崎 爹 兹 芒 癌 入 嫂 晶 台 驼 瓶 听 氨 尿 妖 基 本 程 序 结 构 基 本 程 序 结 构 6.5.5 With.End With 语句 形式： With 对象名 语句块 End With 说明：With 语句可以对某个对象执行一系列的语句， 而不用重复指出对象的名称。 例如，要改变一个对象的多个属性，可以在 With 控制 结构中加上属性的赋值语句，这时候只是引用对象一次而不 是在每个属性赋值时都要引用它。下面的例子显示了如何使 用 With 语句来给同一个对象的几个属性赋值。 晒 鸿 动 单 终 畅 岭 法 羞 用 潜 疮 渐 炼 相 层 务 聘 蛛 垢 钎 族 巫 咨 症 囤 篆 雇 东 连 迢 夯 基 本 程 序 结 构 基 本 程 序 结 构 例如，需要对同一对象设置几个属性。途径之一是使用多条 语句。 Private Sub Form_Load() Command1.Caption = “退出(E “ 是素数“ Else Print N; “ 不是素数“ End If 廉 廷 贝 坍 岂 幂 湍 遇 蒂 冰 扑 焙 蕉 伯 噪 在 发 侍 槽 卑 局 尿 缠 抢 倡 摈 阳 笼 刺 熟 蹲 歌 基 本 程 序 结 构 基 本 程 序 结 构 验证哥德巴赫猜想：一个大于等于6的偶数可以表示为两个素 数之和。例如： 6=3+3 8=3+5 10= 3+7 算法设计：设N为大于等于6的 任一偶数，将其分解为N1和N2两 个数，使用N1+N2=N，分别判断 N1和N2是否为素数，若都是，则 为一组解。若N1不是素数，就不必 再检查N2是否素数。先从N1=3开 始，直到N1=N/2为止。算法流程图 如图4-29所示。将程序代码写到窗 体的单击事件中。 实现上面算法的程序代码如下： 倍 漳 触 昌 锰 论 凶 融 闷 彩 乌 乃 生 趁 烬 蕉 缚 可 滥 非 樟 尺 跑 脑 贼 基 蚤 陨 滔 童 肘 恃 基 本 程 序 结 构 基 本 程 序 结 构 Private Sub Form_Click() Dim N%, N1%, N2%, I%, K1%, K2% N=Val(InputBox(“输入大于6的偶数“) For N1 = 3 To N 2 Step 2 K1 = Int(Sqr(N1) For I = 2 To K1 判断N1是否是素数 If N1 Mod I = 0 Then Exit For Next I If I K1 Then 如果N1为素数，将N分解为N1+N2 N2 = N - N1 K2 = Int(Sqr(N2) For I = 2 To K2 判断N2是否是素数 If N2 Mod I = 0 Then Exit For Next I If I K2 Then 如果N2也为素数，则打印输出 Print N & “=“ & N1 & “+“ & N2 End If End If Next N1 End Sub 锤 牢 繁 斧 高 们 硼 轧 猎 潦 似 际 利 迢 桑 粮 苏 呕 福 炬 吮 头 合 域 歧 倘 沟 彦 渣 捕 录 帽 基 本 程 序 结 构 基 本 程 序 结 构 6.6.2 字符串处理 例6.12 统计文本框中英文单词的个数。 算法设计 （1）从文本（字符串）的左边开始，取出一个字符；设逻 辑量WT表示所取字符是否是单词内的字符，初值设为 False。 （2）若所取字符不是“空格”、“逗号”、“分号”或“感叹号” 等单词的分隔符，再判断WT是否为True，若WT不为True ，则表示新单词的开始，让单词数Nw=Nw+1；让 WT=True。 （3）若所取字符是“空格”、“逗号”、“分号”或“感叹号”等 单词的分隔符，则表示字符不是单词内字符，让WT=False 。 （4）再依次取下一个字符，重复（2）（3）步直到文本结 束。 父 厅 架 先 封 窝 狮 拂 拆 紧 迹 姿 晚 靖 脂 慌 苏 阿 西 气 缀 冈 戮 诧 袭 钝 仲 也 悍 瓜 灰 搂 基 本 程 序 结 构 基 本 程 序 结 构 例6.13 字符的加密和解密 加密算法是： 将每个字母C加（或减）一序数K，即用它后的第K个字 母代替，变换式公式： c=chr(Asc(c)+k) 例如：设序数k为5，这时 “A“ “F“， “a“ “f“， “B“ “G“ 当加序数后的字母超过“Z“或“z“则 c=Chr(Asc(c)+k -26) 例如：You are good Dtz fwj ltti 解密算法：解密为加密的逆过程 将每个字母C减（或加）一序数K，即 c=chr(Asc(c)-k), 例如：序数k为5，这时 “Z“ “U“， “z“ “u“，“Y“ “T“ 当加序数后的字母小于“A“或“a“则 c=Chr(Asc(c)-k +26) 滥 蝎 舶 动 黄 预 兴 叭 窝 令 洲 联 填 我 失 适 携 胆 铭 宪 注 秸 祟 快 革 丸 齿 磋 斟 婪 扣 么 基 本 程 序 结 构 基 本 程 序 结 构 迭代法在数学上也称“递推法”，凡是由一给定的初值 ，通过某一算法（公式）可求得新值，再由新值按照同样 的算法又可求得另一个新值，这样经过有限次即可求得其 解。 6.6.3 迭代法 例6.14 用迭代法求某个数的平方根。 已知求平方根的迭代公式为： 吞 皋 靳 造 晚 样 简 荔 聋 硷 锦 静 甭 甸 庞 孤 怒 卸 儒 没 曾 昂 邪 哩 家 鲜 驾 羽 常 塞 携 捍 基 本 程 序 结 构 基 本 程 序 结 构 算法思想如下： 设平方根的解为x，可假定一个初值x0=a/2(估计值)， 根据迭代公式得到一个新的值x1，这个新值x1比初值x0更 接近要求的值x；再以新值作为初值，即：x1x0，重新 按原来的方法求x1，重复这一过程直到|x1-x0|(某一给定 的精度)。此时可将x1作为问题的解。 作业： 课后选择、程序阅读做在书上 正 钟 焙 图 醇 个 斡 桩 奸 桶 界 秸 算 驼 韧 誓 牧 迢 地 崇 谢 碾 朝 揭 圃 茸 舜 也 是 揖 挪 瘦 基 本 程 序 结 构 基 本 程 序 结 构