VB 程序设计07.ppt

第四章VB基本控制结构 3 学习目标 选择程序总结循环结构循环程序的算法 习题选讲 习题集P13第11题设a 20 b 30 则下列输出结果是 2030 的语句是 A Printstr a B Print a bC Printa bD Printa b习题集P13第17题设a MicrosoftVisualBasic 则以下使变量b的值为 VisualBasic 的语句是 A b left a 10 B b mid a 10 C b right a 10 D b mid a 11 10 D B 习题选讲 习题集P19第2题运行下列程序段之后 显示的结果为 A 100 B 300IfAythany x 3B ifxytheny x3C ifxytheny x 3D ifxytheny x 3 C 习题选讲 教材P72 7编程题 编写程序 根据上网时间计算上网费用 费用 50元 小于10小时 每小时6元 10至60小时 每小时4元 60小时 同时为了鼓励 每月收费最多不超过200元 这是一个收费偏高 规定古怪的网吧 分析 确定计算公式 PrivateSubCommand1 Click t Val InputBox 请输入上网的小时数 SelectCasetCaseIs200Thenm 200Print 上网费用为 mEndSub 习题选讲 教材P71 3 税务部门征收所得税 规定如下 收入200元以内免征 收入在200 400元 超过部分纳税3 收入超过400元的部分纳税4 当收入达到或超过5000元 将4 税金改为5 代码 PrivateSubCommand1 Click x Val InputBox 请输入您的收入金额 SelectCasexCaseIs 200 y 0CaseIs 400 y x 200 0 03CaseIs 5000 y 200 0 03 x 400 0 04CaseElse y 200 0 03 4999 400 0 04 x 5000 0 05EndSelectPrint 应交纳税金 yEndSub 选择结构总结 完成以下各问题问题1 如下程序段 1 有意义吗 问题2 能否用简洁的形式描述 2 If8thena 2Elsea 1Endif 1 2 a 2 y iif x 0 5 x x 1 选择结构总结 问题3 用两种形式改写如下程序段 3 1 多分支if结构 2 多分支Select结构 Ifx 0theny 1Ifx 0theny 0Ifx 0theny 1 3 循环结构 循环 指一些操作或运算 具有 重复性规律性有限性循环的要素 循环条件 如何继续 或 何时结束 循环体 重复做什么 循环的流程图 流程图 循环的分类 当型循环先判断 后执行循环体可能不执行直到型循环先执行 后判断循环体至少执行一次循环体 包含改变现状的操作 VB中的3种循环 for next循环当型循环的特殊情况while wend循环当型循环do loop循环有多种形式 当型 直到型 循环算法的一般设计原则 原则 找出循环变量的初值归纳循环内容 即循环体给出循环条件 或结束条件 示例 求阶乘 如何从一个问题中归纳出循环 示例 计算S n 的过程 求阶乘的C语言程序 当型 i 1 s 1 while i n s s i i For循环 s 1 for i 1 i n i s i 用VB语言求阶乘 示例 VB求S n for next s 1fori 1tons s inextido loop i 1 s 1dowhilei ns s ii i 1loop C语言程序 s 1 for i 1 i n i s i i 1 s 1 while i n s s i i 为什么没有i i 1 能否去掉i i 1 步骤 实现方法 PrivateSubCommand1 Click Dimn i s n Val Text1 s 1Fori 1Tons s iNextiText2 sEndSubPrivatSubCommand2 Click Text1 Text2 Text1 SetFocusEndSub 步骤 另一种实现方法 PrivateSubForm Load Dimn i s n Val InputBox 请输入一个正整数 计算阶乘 s 1Fori 1Tons s iNextiMsgBox 计算结果为 vbCrLf n s 64 提示 EndSub for循环 特点 循环次数已知 称计数循环格式 for循环变量名 初值to终值 step步长 循环体 next 循环变量名 N S图 说明 步长为1可省略step部分 如何通过归纳写出循环程序 利用VB的for循环 求 计算过程 s 0 s 0 1 s 1 2 s 1 2 3 初值 s 0 i 1循环体 s s i i i 1循环条件 i 100 s 0fori 1to100s s inexti 递进学习 如果求 程序应如何修改 如果求1 100之间所有偶数之和 又应如何 如果求1 100之间所有奇数之和 应如何修改程序 利用以下公式求 值 设n 100 for循环的基本要求 for next必须成对出现步长允许负数可以省略next后面的变量名 但不推荐先检查 后执行 当如下情况 循环体不被执行 步长为正数 初值大于终值步长为负数 初值小于终值如果提前退出循环 需采用exitfor语句循环次数 int 终值 初值 步长 1 循环的应用 应用之一 数列计算 示例 例1 求 s 0 t 1 n 8fori 1tont t is s tnexti 分析 s s t 递推关系t t i 示例 例3 递推法在for循环中的应用求值其中a为一位整数 a n由键盘输入 分析 找出递推关系s s t t 10 t a上机完成该程序 分别计算 a 3 n 5 s 37035 a 7 n 7 s 8641969 循环的应用 应用之二 循环检查程序 循环体包含判断 如if for if then endif next 示例 例4 打印输出1 100以内是3或7倍数的整数分析 从1 100做循环 for语句 循环体中判断每一个数是否满足条件 if语句 PrivateSubCommand1 Click Dimi Fori 1To100IfiMod3 0OriMod7 0ThenText1 Text1 i Space 3 EndIfNextiEndSub注意 要将Text1设为多行 带滚动条 示例 例5 水仙花数 求每位数字的立方和等于自身的三位整数 比如 分析 1 找出循环变量及范围2 确定进行循环操作的内容 forx 100to999如果x是水仙数则输出它nextx 示例 要点 三位数中分离个 十 百位的做法x abc 则a int x 100 b int x 100 a 10 c xmod10 代码 PrivateSubForm Click dimx a b c forx 100to999a x 100 b x 100 a 10 c xmod10ifx a 3 b 3 c 3thenprintxnextxEndSub 窗体加载与Print 窗体加载事件Form Load中不能使用Print方法 除非将AutoRedraw 自动重绘 设为true原因 因为在窗体的load事件完成之前 窗体是不可视的 不能直接用print方法显示字符串还可以用这种方法来显示Priv