第8章-程序VB循环结构程序设计ppt课件.ppt

《第8章-程序VB循环结构程序设计ppt课件.ppt》由会员分享，可在线阅读，更多相关《第8章-程序VB循环结构程序设计ppt课件.ppt（97页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第8章 循环结构程序设计我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物学习重点 ForNext语句、DoLoop语句、WhileWend语句、GoTo语句。循环语句的嵌套使用。掌握常用的循环结构算法。 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物本章内容8.1 ForNext语句8.2 DoLoop语句8.3 WhileWend语句8.4 GoTo语句8.5 循环嵌套8.6 常用算法及实例本章小结我吓了一跳，蝎子是

2、多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物引言循环：重复进行某些相同或相近的操作 循环结构语句 ： 程序自动重复执行代码段。 Visual Basic中的循环结构语句： ForNext语句 DoLoop语句 WhileWend语句 True 循环条件 循环体 False 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物8.1 ForNext语句 ForNext语句（也称步长循环语句） ，常用于在循环开始前能确定循环执行次数的情况。F

3、orNext语句格式如下：For 循环变量=初值 To 终值 Step 步长 语句块 Exit For 语句块Next循环变量功能：以指定次数来重复执行一组语句。 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物示例代码 ：Dim i As IntegerFor i=1 To 10 Step 1 Print i ;Next i执行以上代码将在窗体上输出结果如下：1 2 3 4 5 6 7 8 9 10For 循环变量循环变量=初值初值 To 终值终值 Step 步长步长 语句块语句块 Exit For 语句

4、块语句块Next循环变量循环变量我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物关于循环的几个概念：n循环变量又称为“循环控制变量”、“控制变量”或“循环计数器”，是用做循环计数器的数值变量。这个变量必须为数值型变量，不能是逻辑型数据或数组元素。 n循环体 被重复执行的代码段。n循环次数循环体被重复执行的次数。循环次数必须是有限的，否则称程序陷入“死循环”我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物Dim i As

5、IntegerFor i=1 To 10 Step 1 Print i ;Next i说明：n上述代码中整型变量i是循环变量。 n初值、终值和步长也必须是数值表达式。步长可以是正数或负数，仅当步长为1时，“Step 步长”可以省略。当步长是正数或零时，要求循环变量小于或等于终值；当步长是负数时，要求循环变量大于或等于终值。若不符合以上情况时，不能进入循环执行语句块。在上述代码中循环变量i的初值是1，终值是10，步长是1。 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物Dim i As IntegerFor

6、 i=1 To 10 Step 1 Print i ;Next iFor和Next中间的语句段称为循环体。在上述代码中循环体仅有一条语句构成。可以在循环体中任何位置放置任意个Exit For语句，随时退出循环。Exit For经常在条件判断之后使用，如IfThen语句之后，并将控制权转移到紧接在Next之后的语句。如将上述代码改为 Dim i As Integer For i=1 To 10 Step 1 Print i ; If i5 Then Exit For Next i 程序的输出就变为1 2 3 4 5。 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？

7、但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物8.1 ForNext语句 ForNext语句执行过程： 首先计算初值、终值和步长表达式的值，并将它们都转换成与循环变量相同的类型。 将计算好的初值表达式的值赋给循环变量，作为循环变量的初值，注意循环变量仅被赋初值一次。 进行判别：判断循环变量的值是否超过终值，即当步长0（步长为正数）时，判别循环变量终值否；当步长0（步长为负数）时，判别循环变量终值否，如果未超过，则进入执行循环体；如果超过了，则正常退出结束循环，去执行Next语句的下一语句。 执行Next语句，使循环变量增加一个步长，即执行循环变量=循环变量+步长；返回步骤继续进行判

8、别。 计算初值、终值和 步长表达式的值 循环变量=初值表达式的值 循环体 循环变量=循环变量+步长 循环变量 超过终值？ True False 图8-1 ForNext语句程序流程图 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物Dim i As IntegerFor i=1 To 10 Step 1 Print i ;Next i上述代码中循环变量的初值是1，以后每次执行到For语句时判断i=10是否成立，成立则执行循环体中的语句，即输出变量i当前的值，否则结束循环，每次执行到Next语句时将循环变量i

9、的值自增1。因此，循环变量i的值从1一直变化到10，并将这些值输出。最后一次执行过Next语句后，变量i的值是11，因为超出终值而结束循环。一般地，若循环体中不出现类似于Exit For和Exit Sub之类的强制跳转语句时，结束For循环时循环变量的值肯定超过了终值。 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物8.1 ForNext语句循环次数的一般计算公式如下：循环次数=Int（Abs（终值-初值）/步长）+1注意，若循环变量在循环体内被重新赋值，则会影响和改变循环次数。示例代码如下: For i

10、=1 to 100 i=i+1Next i 以上循环体中i的值自增了1，而语句Next i还将使i的值增加1，因此在进入后一次循环时i的值比前一次进入循环时共增加了2，因此循环也就执行了50次。 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物8.1 ForNext语句注意：初值、终值和步长值仅在步骤中计算，在循环体内对这三个值所涉及的变量进行值的更改，都不会改变循环进行中的初值、终值和步长值，当然也不会影响循环次数。 以下3段代码中的循环执行次数均为 Int（20-1）/2）+1=10次。 代码1： 代码

11、2： 代码3： For I=1 to 20 step 2c=c+1Next I c=20For I=1 to c step 2c=c+1Next Id=2For I=1 to 20 step dd=d+1Next I执行后c的值是10执行后c的值是30执行后d的值是12我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物8.1 ForNext语句格式中Next后面的循环变量有时被省略，但不推荐这样使用。如果省略，则由系统自己去识别该Next对应的循环变量，并对它进行相应的步长运算。如以下代码也是正确的。 For

12、 i=1 To 10 Step 1 Print i ; Next 省略循环变量我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物ForNext举例例8-1 求1+2+3+100 Private Sub Command1_Click() Dim i As Integer, sum As Integer sum=0 变量sum清零 For i=1 To 100 sum=sum + i 累加 Next I Print sumEnd Sub 本题输出结果是5050。思考：如何实现n！=123n？ 我吓了一跳，蝎子是多

13、么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物ForNext举例例8-2 输出1200间所有能被3整除的数，要求每行输出10个数。 第第1种方法实现如下：种方法实现如下：Private Sub Command1_Click() Dim x As Integer, n As Integer For x=1 To 200 If x Mod 3=0 Then Print x; n=n + 1 If n Mod 10=0 Then Print End If Next x PrintEnd Sub第第2种方法实现如下：种方法实现如下：

14、Private Sub Command2_Click() Dim x As Integer, n As Integer For x=3 To 200 Step 3 Print x; n=n + 1 If n Mod 10=0 Then Print Next x PrintEnd Sub我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物8.2 DoLoop语句 8.2.1 当型循环 8.2.2 直到型循环 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜

15、测没有错：表里边有一个活的生物8.2.1 当型循环当型DoLoop语句格式如下： Do While 循环条件 语句块 Exit Do 语句块Loop 或 Do 语句块 Exit Do 语句块Loop While 循环条件 功能：当循环条件为True时，重复执行语句块中的命令。我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物8.2.1 当型循环如用以下代码也可以在窗体上输出1 2 3 4 5 6 7 8 9 10。 Dim i As Integer i=1 Do While i = 10 Print i; i

16、=i + 1 Loop Dim i As Integer i=1 Do Print i; i=i + 1 Loop While i 10 Then Exit Do Loop我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物8.2.1 当型循环说明：（5）为了使循环语句在有限的时间内执行完毕，在循环体中至少要有一条语句使得循环条件趋向于假“False”或用Exit Do语句终止循环，否则程序将无休止的执行循环体，直至耗尽系统资源，我们称这种现象为“死循环”。 提示 当程序进入“死循环”或长时间执行某过程时，用户

17、可以使用Ctrl+Break键强行中断程序的运行，将程序从运行状态改为设计状态，并释放程序运行中的临时资源。 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物8.2.1 当型循环说明：（6）可以将ForNext语句改写成DoLoop语句，但仅有已知循环次数的DoLoop语句才可以改写成ForNext语句。在ForNext语句中，格式中包含了对循环变量的赋初值、设置循环进行的条件及循环变量按步长变化等操作，这些在DoLoop语句中都需要编程人员一一考虑并用语句设置。 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为

18、什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物8.2.1 当型循环例8-3 验证谷角猜想。对于任意一个自然数n，若n为偶数，则将其除以2；若n为奇数，则将其乘以3，然后再加1。如此经过有限次运算后，总可以得到自然数1。 分析：n由于不能确定要多少步才能结束运算，因此本题中采用当型DoLoop循环语句实现。n使用变量n存放该正整数，每次重新计算出的新值仍然存放在n中。n当n未达到1时继续执行运算，当n等于1时结束循环。 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活

19、的生物例8-3代码：Private Sub Command1_Click() Dim n As Integer Cls 清屏 n=Val(InputBox(请输入一个正整数) Print n; If n 0 Then Do While n 1 If n Mod 2=1 Then n=n * 3 + 1 Else n=n / 2 End If Print -; n; Loop End IfEnd Sub我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物8.2.2 直到型循环 直到型 DoLoop语句格式如下：

20、Do Until 循环条件 语句块 Exit Do 语句块Loop 或 Do 语句块 Exit Do 语句块Loop Until 循环条件 功能：当循环条件为False时，重复执行语句块中的命令；当循环条件为True时，结束循环。 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物8.2.2 直到型循环如用以下代码也可以在窗体上输出1 2 3 4 5 6 7 8 9 10。 Dim i As Integer i=1 Do Until i 10 Print i; i=i + 1 Loop Dim i As In

21、teger i=1 Do Print i; i=i + 1 Loop Until i 10 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物8.2.2 直到型循环说明 ：n（1）直到型DoLoop语句也有两种形式。 False 循环条件 循环体 True 循环条件 循环体 False True （a）Do UntilLoop结构流程图 （b）DoLoop Until结构流程图 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的

22、生物8.2.2 直到型循环说明 ：n（2）直到型DoLoop语句格式中的组成和当型DoLoop语句格式基本一致，两者的区别是两者的循环条件正好相反。 n大部分当型DoLoop语句都可以改写成直到型DoLoop语句。n如将例8-3中的Do While n 1 改成Do Until n=1，程序功能完全一致。 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物例8-4例8-4 随机产生n个随机整数，并求它们的平均值，n由用户输入。 分析:n用户输入信息的有效性过滤:n使用整型变量n接收用户输入的数据，可以过滤掉非

23、数值字符串 n采用Fix函数进行取整可以将用户输入的实数类型数据转换为整数 n使用一个DoLoop循环对负数进行过滤，并由用户选择是否继续输入 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物例8-4Private Sub Form_Click() Dim n As Integer, x As Integer, i As Integer, sum As Integer n=Fix(Val(InputBox(请输入数据个数) 舍去取整 Do Until n 0 If MsgBox(输入错误，需要重新输入吗？,

24、 vbYesNo)=vbYes Then n=Fix(Val(InputBox(请输入数据个数) Else Exit Sub 结束本事件过程 End If Loop实现数据实现数据n的输入的输入我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物例8-4 sum=0 累加器sum清零 For i=1 To n x=Int(Rnd * 100) sum=sum + x Print x; If i Mod 10=0 Then Print 每行输出5个数据 Next i Print Print n; 个数的平均值=;

25、 sum / nEnd Sub功能实现功能实现求求n个数的平均值个数的平均值 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物8.3 WhileWend语句 语句格式：While 循环条件 循环体Wend在窗体上输出在窗体上输出1 2 3 4 5 6 7 8 9 10。Dim i As Integeri=1While i = 10 Print i; i=i + 1Wend这种结构使用这种结构使用完全类似于完全类似于当型当型DoLoop循环语句循环语句的格式的格式1 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为

26、什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物8.4 GoTo语句 语句格式如下：GoTo 标签其中标签无需定义，是在一行语句的开头用冒号和语句隔开的标识符。 说明：（1）GoTo语句是一个无条件转支语句，通常和分支语句配合使用。 Private Sub Form_Click()Private Sub Form_Click() Dim x As Integer Dim x As Integer x = Val(InputBox( x = Val(InputBox(请输入一个正整数请输入一个正整数) If x 0 Then GoTo If x 0

27、Then GoTo L1L1 Print x Print xL1:L1: End Sub End Sub 程序功能：程序功能：只输出用户输入的正整数只输出用户输入的正整数 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物8.4 GoTo语句（2）使用GoTo语句可以构造出一个具有循环功能的结构 。在窗体上以紧凑格式输出数值110。 Dim i As Integer i = 1A: Print i; i = i + 1If i = 10 Then GoTo A执行以上程序段后i的值是11。我吓了一跳，蝎子是多

28、么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物8.4 GoTo语句（3）在循环语句中使用GoTo语句，既可以从循环内部跳转到循环外部语句，也可以从循环外部语句跳转到循环内部语句，但要注意由此产生的循环执行过程的变化。 如：Dim i As Integer For i=1 To 10B: Print i; Next i If i 5 Then GoTo C If i 5 Then GoTo C Next i Next i 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜

29、测没有错：表里边有一个活的生物8.4 GoTo语句（4）结构化程序设计中并不建议使用GoTo语句来控制程序流程，因为它会使程序流程复杂化。 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物8.5 循 环 嵌 套 循环嵌套是指在某个循环的循环体中又包含着另一个完整的循环。我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物8.5 循 环 嵌 套说明：（1）嵌套的层数没有具体限制，但内层的小循环一定要完整地被包含在外层的大循环之

30、内，而不得相互交叉。 n以下两种结构中语句之间存在着交叉，是不正确的： Do . For . . Loop Next . For i=1 To 10 . For j=1 To 10 . Next i . Next j 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物8.5 循 环 嵌 套（2）对有循环控制变量的循环进行嵌套时，要注意循环嵌套后对改变循环变量的值是否影响循环次数等。（3）循环嵌套的层次数不能太多，要考虑实际语句的执行次数。一般的，在内层循环体中的语句执行次数=每次内层循环次数外层循环次数。（4

31、）若有多层ForNext语句嵌套，且各自的Next语句在连续位置上，则可将多条Next语句合并成一条语句，格式是Next内层循环变量，外层循环变量 以下代码是正确的。以下代码是正确的。For a=1 to 5For b=1 to 5For c=1 to 5 Next c,b,a 等价于三条语句等价于三条语句 Next c : Next b : Next a 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物程序举例例8-5 如有以下程序代码： i=1 Do While i = 10 s=1 For i=1 T

32、o i s=s * i Next i Print i; !=; s i=i + 1 Loop 程序的本意是要分别输出110的阶乘，但程序的输出如图所示，除了输出的行数不符外，我们还发现每行上求的值也不符合。 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物例8-5分析其原因发现，内层循环对变量i的变化影响了外层循环的正常执行。解决的方法是每一个循环使用一个唯一的循环控制变量（不同名）。修改代码： Dim i As Integer, s As Double i=1 Do While i = 10 s=1 Fo

33、r j=1 To i s=s * j Next j Print i; !=; s i=i + 1 Loop 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物程序举例例8-6 输出九九乘法表 Private Sub Form_Activate() Dim i As Integer, j As Integer For i=1 To 9 For j=1 To 9 Picture1.Print Tab(10 * (j - 1); CStr(i); *; CStr(j); =; CStr(i * j); Next j

34、 Picture1.Print Next i End Sub 思考：思考：如何输出只有下三角区域的九九乘法表？如何输出只有下三角区域的九九乘法表？ 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物8.6 常用算法及实例 8.6.1 累加（乘）8.6.2 求最值8.6.3 穷举法8.6.4 递推法（迭代法）8.6.5 字符串遍历8.6.6 有限状态自动机8.6.7 进制转换8.6.8 图形字符的打印 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没

35、有错：表里边有一个活的生物8.6.1 累加（乘）累加（乘）是指在某个值的基础上一次又一次的加上（乘以）一些数 。累加（乘）的结果是运算最终的目标，通常只需使用一个变量来存放在各次运算结果，称这样的变量为累加（乘）器。 1累加2累乘累乘 iaia我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物1累加算法描述如下。步骤1：给累加器变量sum赋初值为0，给计数器i赋初值为0。步骤2：计数器加1，即i+1i。步骤3：计算ai。步骤4：ai+sumsum。步骤5：ai是否是最后一项，若是则转步骤6，否则转步骤2。步骤

36、6：输出累加器变量sum的值。 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物1累加程序模式：（1）若已知i的取值范围是1k，则用以下语句组合来计算累加和sum。sum=0For i=1 to k sum=sum +aiNext i（2）若已知最后一项的取值要求，则用以下语句组合来计算累加和sum。sum=0 ：i=1Do While ai满足条件 或Do Until ai不满足条件 sum=sum +ai i=i + 1Loop我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢

37、？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物2累乘 算法描述与累加相似，主要区别在于：（1）累乘器的初值赋为1（2）使用sum=sum *ai进行累乘运算。同样的，也可以总结出类似的累乘程序模式加以运用。 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物程序举例例8-7 正弦函数可表示为使用该公式求sinx的近似解，直到累加项的绝对值小于10-6为止。 .)!12() 1(.! 7! 5! 3sin121753mxxxxxxmmx分析：这是一个累加问题，使用累加模式实现。其中，通项中分子是个

38、阶乘，需要使用累乘模式实现。 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物例8-7Private Sub Cmdcul_Click() Dim x As Single, i As Integer, j As Integer Dim sum As Single, t As Single, f As Single x=Val(txtX.Text) i=1 Do f=1 求2i-1的阶乘，放入变量f中 For j=1 To 2 * i - 1 f=f * j Next j t=(-1) (i - 1) * x

39、 (2 * i - 1) / f 通项t的计算 sum=sum + t 累加 i=i + 1 Loop Until Abs(t) max Then max=grad Next i Print 最高分是; maxEnd Sub我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物例8-8这种对max赋初值的方法在有些场合并不适用，为了能确保max中只存放真实数据中的一个，我们可以将第1个数据作为初值赋给max，然后从第2个数开始和max比较。改进：改进：Private Sub Form_Click() Dim gr

40、ade As Integer, i As Integer, max As Integer Print 30个学生的数学成绩是： grad=Int(101 * Rnd) 生成第一个成绩 Print grad; max=grad 设置最大值为第1个数 For i=2 To 30 从第2个数开始比较 grad=Int(101 * Rnd) Print grad; If i Mod 10=0 Then Print If grad max Then max=grad Next i Print 最高分是; maxEnd Sub我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但

41、是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物8.6.3 穷举法 穷举法主要通过将可能出现解的范围中所有的数一一进行判断。搜索范围的确定是穷举法的关键，一旦确定了范围，使用常规的循环语句即可解决问题。1组合问题 2素数问题 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物1组合问题 组合问题一般体现在要求符合条件的所有组合情况，此类问题的关键是要按一定的顺序进行穷举，避免遗漏。 例8-9 求由数字0、1、2、3、4组成的所有无重复数字的3位正整数。 n分析：分别对3位数的3个位数字进行穷举，其中百

42、位数字不能为0。使用三重循环来实现， 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物例8-9Private Sub Form_Click() Dim a As Integer, b As Integer, c As Integer, n As Integer For a=1 To 4 For b=0 To 4 For c=0 To 4 If a b And b c And a c Then Print a * 100 + b * 10 + c; n=n + 1 If n Mod 5=0 Then Prin

43、t End If Next c Next b Next aEnd Sub 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物2素数问题 素数即质数，是指除了能被1和自身整除而不能被其他任何数整除的数。例8-10 判断整数x是否是素数。n根据素数的定义，只需用2到n-1去除n，如果都除不尽则n是素数，否则，只要其中有一个数能除尽则n不是素数。也可以理解为，在2到n-1中寻找n的因子，若找不到则n是素数，否则n不是素数。我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快

44、，证实我的猜测没有错：表里边有一个活的生物例8-10Private Sub Command1_Click() Dim x As Integer, i As Integer x=Val(Text1) If x 1 Then For i=2 To x - 1 If x Mod i=0 Then Exit For 判断x是否能被i整除，即i是否是x的因子 Next i If i=x Then MsgBox x & 是素数 Else MsgBox x & 不是素数 End If Else MsgBox x必须大于1 End IfEnd Sub我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一

45、个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物例8-10改进：将搜索范围缩小到2， 之间 x k=Sqr(x) 这里进行自动转换，等价于四舍五入取整 For i=2 To k If x Mod i=0 Then Exit For Next i If i k Then MsgBox x & 是素数 Else MsgBox x & 不是素数 End If我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物例8-11例8-11 从键盘上输入一个正整数，找出大于或等于该数的第一个素数。 x

46、=Val(Text1) If x 1 Then Do For i=2 To Sqr(x) If x Mod i=0 Then Exit For Next i If i Round(Sqr(x) Then Exit Do Else x=x + 1 End If Loop Label2.Caption=“=x的第一个素数是： & x Else MsgBox x必须大于1 End If 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物8.6.4 递推法（迭代法） 使用递推法来解决的问题中，前一个状态和后一个状态间

47、存在着一定的函数关系。递推法的关键在于找到正确的函数关系，然后使用循环语句来实现。n1最大公约数和最小公倍数 n2Fibonacci数列 n3累加中的递推 n4迭代法求方程的近似根 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物1最大公约数和最小公倍数 若已知整数x和y的最大公约数是k，则它们的最小公倍数是xy/k。 求两个整数最大公约数的两种方法。 n（1）辗转相除法（欧几里德算法） n（2）相减法 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的

48、猜测没有错：表里边有一个活的生物1最大公约数和最小公倍数（1）辗转相除法（欧几里德算法）n递推公式如下： 0Gcd( , )Gcd( , Mod )0mnm nn mnn算法描述如下：步骤1：输入两个自然数x、y，令x=y。步骤2：求x除以y的余数r。步骤3：yx，ry。步骤4：若r0，则转步骤2，否则转步骤5。步骤5：输出x。我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物1最大公约数和最小公倍数（2）相减法。n递推公式如下： Gcd( , )Gcd( , - )mnmnm nn mnnmn两个数中从大数

49、中减去小数，所得的差若与小数相等，则该数为最大公约数。若不等，对所得的差和小数，继续从大数中减去小数，直到两个数相等为止。 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物程序举例例8-12 用欧几里德算法求x和y的最大公约数。 If x y Then temp=x: x=y: y=temp Do 求最大公约数 r=x Mod y x=y y=r Loop While r 0 Text3.Text=CStr(x) 输出最大公约数 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？

50、但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物2Fibonacci数列 兔子繁殖问题：如果每对兔子每月繁殖一对子兔，而子兔在出生后第2个月就有生殖能力，试问一对兔子一年能繁殖多少对兔子？ 可以这样思考：第1个月后即第2个月时，一对兔子变成了两对兔子，其中一对是它本身，另一对是它生下的幼兔。第3个月时两对兔子变成了三对，其中一对是最初的一对，另一对是它刚生下来的幼兔，第三对是幼兔长成的大兔子。第4个月时，三对兔子变成了五对，第5个月时，五对兔子变成了八对，按此方法推算，第6个月是13对兔子，第7个月是21对兔子 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界