VB程序设04-2.pptVIP

第四章 VB基本控制结构(3) 学习目标 选择程序总结 循环结构 循环程序的算法 习题选讲 习题集P19第2题 运行下列程序段之后，显示的结果为______ A=100 : B=300 If AB Then Print B ; Print A A. 100 B.300 C.300 100 D.100 300 习题集P28第15题 下面语句正确的是 ______ A. if x3*y and xy than y=x**3 B. if x3*y and xy then y=x3 C. if x3*y : xy then y=x^3 D. if x3*y and xy then y=x^3 习题选讲 教材P72－7编程题：编写程序，根据上网时间计算上网费用：费用＝50元（小于10小时）、每小时6元（10至60小时）、每小时4元（≧60小时），同时为了鼓励，每月收费最多不超过200元。 ～～～～～这是一个收费偏高，规定古怪的网吧～～～～～ 分析：确定计算公式。 习题选讲 教材P71－3：税务部门征收所得税，规定如下：收入200元以内免征；收入在200-400元，超过部分纳税3%；收入超过400元的部分纳税4%，当收入达到或超过5000元，将4%税金改为5%。 代码： 选择结构总结 完成以下各问题 问题1：如下程序段(1)有意义吗? 问题2：能否用简洁的形式描述(2)? 选择结构总结 问题3：用两种形式改写如下程序段(3)：1、多分支if结构，2、多分支Select结构。 循环结构 循环：指一些操作或运算，具有： 重复性 规律性 有限性 循环的要素： 循环条件：如何继续？ （或：何时结束？） 循环体：重复做什么？ 循环的流程图 流程图 循环的分类 当型循环 先判断，后执行 循环体可能不执行 直到型循环 先执行，后判断 循环体至少执行一次 循环体：包含改变现状的操作 VB中的3种循环 for…next循环 当型循环的特殊情况 while...wend循环 当型循环 do…loop循环 有多种形式，当型 / 直到型 循环算法的一般设计原则 原则： 找出循环变量的初值 归纳循环内容，即循环体 给出循环条件（或结束条件） 示例：求阶乘 如何从一个问题中归纳出循环？ 示例：计算S=n!的过程 用VB语言求阶乘 示例：VB求S=n! for...next： s=1 for i=1 to n s=s * i next i do...loop： i=1 : s=1 do while i=n s=s * i i=i+1 loop 步骤 实现方法： Private Sub Command1_Click() Dim n%, i%, s# n = Val(Text1) : s = 1 For i = 1 To n s = s * i Next i Text2 = s End Sub Privat Sub Command2_Click() Text1= : Text2= : Text1.SetFocus End Sub 步骤 另一种实现方法： Private Sub Form_Load() Dim n%, i%, s# n = Val(InputBox(请输入一个正整数, 计算阶乘)) s = 1 For i = 1 To n s = s * i Next i MsgBox 计算结果为: vbCrLf n != s, 64, 提示 End Sub for循环 特点：循环次数已知：称计数循环 格式： for 循环变量名=初值 to 终值 [step 步长] [循环体] next [循环变量名] N-S图 如何通过归纳写出循环程序？ 利用VB的for循环，求 递进学习 如果求 ，程序应如何修改？ for循环的基本要求 for、next必须成对出现 步长允许负数 可以省略next后面的变量名，但不推荐 先检查、后执行。当如下情况，循环体不被执行： 步长为正数，初值大于终值 步长为负数，初值小于终值 如果提前退出循环，需采用exit for语句 循环次数＝int((终值－初值)∕步长)＋1 循环的应用 应用之一：数列计算 示例 例1： 求