VB 程序设计04-3

选择结构总结



完成以下各问题 问题1：如下程序段(1)有意义吗? 问题2：能否用简洁的形式描述(2)?
If 8 then a=2 Else a=1 End if
(1)
√
5 * x , x 0 y x 1, x 0
(2)
a=2
y=iif(x>=0, 5*x, x+1)
选择结构总结
步长为正数，初值大于终值 步长为负数，初值小于终值

如果提前退出循环，需采用exit for语句 循环次数＝int((终值－初值)∕步长)＋1
循环的应用

应 s 20 21 28


例2：设n=8
求 s 1! 2!n! 分析：s=s+t，递推关系 t=t* i
第四章
VB基本控制结构(3)
学习目标



选择程序总结 循环结构 循环程序的算法
习题选讲

习题集P19第2题 运行下列程序段之后，显示的结果为______ 此题有误，无 A=100 : B=300 正确答案 If A<B Then Print B ; Print A A. 100 B.300 C.300 100 D.100 300
如果求1～100之间所有奇数之和，应如何修改程序？ 如果求1～100之间所有偶数之和，又应如何？ 利用以下公式求π值，设n＝100：
2
1 1 1 1 2 2 2 2 6 1 2 3 n
for循环的基本要求



for、next必须成对出现 步长允许负数 可以省略next后面的变量名，但不推荐 先检查、后执行。当如下情况，循环体不被执行：
习题集P28第15题 下面语句正确的是 ______ A. if x<3*y and x>y than y=x**3 B. if x<3*y and x>y then y=x3 C. if x<3*y : x>y then y=x^3 D. if x<3*y and x>y then y=x^3

此题B和D均 正确

窗体加载事件Form_Load中不能使用Print方法， 除非将AutoRedraw（自动重绘）设为true 原因：因为在窗体的load事件完成之前，窗体是 不可视的，不能直接用print方法显示字符串 还可以用这种方法来显示 Private Sub Form_Load() Form1.Show Print “你好” End Sub show方法：实现窗体可视

问题3：用两种形式改写如下程序段(3)：1、多分 支if结构，2、多分支Select结构。
If x>0 then y= -1 If x=0 then y= 0 If x<0 then y= 1
(3)
If x>0 then y=-1 ElseIf x=0 then y=0 Else y=1 End If



for…next循环 当型循环的特殊情况 while...wend循环 当型循环 do…loop循环 有多种形式，当型 / 直到型
循环算法的一般设计原则

原则： 找出循环变量的初值 归纳循环内容，即循环体 给出循环条件（或结束条件）
示例：求阶乘


如何从一个问题中归纳出循环？ 示例：计算S=n!的过程
步骤

另一种实现方法：
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
步骤

实现方法：
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
示例
例4：打印输出1～100以内是3或7倍数的整数 分析：从1～100做循环（for语句） 循环体中判断每一个数是否满足条件(if语句)
Private Sub Command1_Click() Dim i% For i = 1 To 100 If i Mod 3 = 0 Or i Mod 7 = 0 Then Text1 = Text1 & i & Space(3) End If Next i End Sub
y= iif(x>0, -1, iif(x=0, 0, 1)) y=-sgn(x)
Select Case x Case is>0: y= -1 Case is=0: y=0 Case is<0: y=1 End Select
循环结构

循环：指一些操作或运算，具有： 重复性 循环是有限次数的、 规律性 有规律的重复 有限性

Private Sub Form_Click() dim x%, a%, b%, c% for x=100 to 999 a=x\100 : b=(x-100*a)\10 : c=x mod 10 if x=a^3+b^3+c^3 then print x next x End Sub
窗体加载与Print
s=0 : t=1 : n=8 for i=1 to n t=t*i s=s+t next i
归纳法：
s=0 for i=0 to 8 s=s+2^i next i
递推法：
s=0 : t=1 for i=0 to 8 s=s+t t=2*t next i
示例

例3：递推法在for循环中的应用 求值 s a aa aaa aaaa ..a


循环的要素： 循环条件：如何继续？ （或：何时结束？） 循环体：重复做什么？
循环的流程图

流程图
循环的分类

当型循环 先判断，后执行 循环体可能不执行 直到型循环 先执行，后判断 循环体至少执行一次
当条件成立 循环体

循环体
直到条件成立

循环体：包含改变现状的操作
VB中的3种循环
习题选讲


教材P72－7编程题：编写程序，根据上网时间计算上网费用：费 用＝50元（小于10小时）、每小时6元（10至60小时）、每小时4 元（≧60小时），同时为了鼓励，每月收费最多不超过200元。 ～～～～～这是一个收费偏高，规定古怪的网吧～～～～～ 分析：确定计算公式。
Private Sub Command1_Click() t = Val(InputBox("请输入上网的小时数")) Select Case t Case Is <= 10: m = 50 Case Is <= 60: m = 50 + 6 * (t - 10) Case Else: m = 50 + 6 * 50 + 4 * (t - 60) End Select If m > 200 Then m = 200 Print "上网费用为"; m End Sub


作业

所有数字之和为5的三位数有多少个？（答案：15） 填数游戏：□3×6528＝3□×8256 （答案：4）

某次考试共26个题，对一道得8分，错一道扣5分，小张 做完全部题目却得了零分，问他答对、错的共多少？ （答案：10、16）

for循环


特点：循环次数已知：称计数循环 格式：
for 循环变量名=初值 to 终值 [step 步长] [循环体] next [循环变量名]

N-S图
循环变量←初值 循环变量<=终值 执行循环体

说明：步长 为1可省略 step部分。
循变←循变＋步长
如何通过归纳写出循环程序？

利用VB的for循环，求 s
计算过程：s=0, s=1+2+3... 初值：s=0， i=1
i
i 1
100
s=0+1, s=1+2,
循环体： s=s+i, i=i+1
循环条件： i<=100
s=0 for i=1 to 100 s=s+i next i
递进学习

如果求 i ，程序应如何修改？
i 1
100
1

重复的操作：
s=1 s=1 * s s=2 * s
初值
s=i * s i=i+1 循环条件： i≤n
乘1 再乘2 … … s=n * s 再乘n
用VB语言求阶乘



示例：VB求S=n! for...next： s=1 for i=1 to n s=s * i next i 为什么没有i=i+1 do...loop： i=1 : s=1 do while i<=n s=s * i i=i+1 能否去掉i=i+1 loop
习题选讲


教材P71－3：税务部门征收所得税，规定如下：收入 200元以内免征；收入在200-400元，超过部分纳税3%； 收入超过400元的部分纳税4%，当收入达到或超过5000 元，将4%税金改为5%。 代码：