VB常用算法技巧.doc

2．1 计数、累加与累乘 计数、累加与累乘在程序设计中是最基本的语句，其使用频率非常高，许多问题的编程中都要使用到。但往往初学Visual Basic时，是不容易搞清的，本节通过几个例题对他们做进一步的解释。 计数语句的格式为： n = n +1 其含义是“变量n的当前值加上1后再送给变量n”，即变量n的值增加了1。将计数语句放到循环中时，即可实现计数。通常计数变量n的初值为0。 累加语句的格式为： s = s + x 其含义是“变量s的当前值加上变量x的值后再送给变量s”，即变量s的值为s与x值之和。将累加语句放到循环中时，即可实现累加的作用。通常累加变量s的初值为0。特别的当变量x的值为1时，累加语句即为计数语句。 累乘语句的格式为： t = t * x 其含义是“变量t的当前值乘以变量x的值后再送给变量t”，即变量t的值为t与x值之积。将累乘语句放到循环中时，即可实现累乘的作用。通常累乘变量t的初值为1。 以上三条语句的共同特点是赋值号的两侧出现相同的变量，可以做出相同的解释：即先计算赋值号右侧的表达式的值，然后将结果送给左侧的变量。 【例2.1】编写一个程序，生成20个随机整数，输出其中能被3整除的数的个数与他们的和。 程序如下： Private Sub Command1_Click() Dim i As Integer, n As Integer, s As Single, x As Integer Randomize n = 0: s = 0 计数变量、累加变量赋初值 For i = 1 To 20 x = Int(Rnd * 90 + 10) 产生一个随机数 If x Mod 3 = 0 Then 判断是否能被3整除 Print x n = n + 1 计数 s = s + i 累加 End If Next i Print n=; n, s=; s 输出 End Sub 【例2.2】编写一个程序，求下面阶乘的和。 S = 1! + 2! +3! + … + 7！ 程序如下： 程序1： Private Sub Command1_Click() Dim i As Integer, s As Single, t As Integer t = 1 累乘变量赋初值 For i = 1 To 7 t = t * i 累乘 s = s + t 累加 Next i Print s=; s End Sub 程序2： Private Sub Command1_Click() Dim i As Integer, j As Integer, s As Single, t As Integer For i = 1 To 7 t = 1 累乘变量赋初值 For j = 1 To i t = t * j 累乘 Next j s = s + t 累加 Next i Print s=; s End Sub 比较程序1与程序2的实现方法有什么不同？注意程序2中给累乘变量赋初值语句的位置。 【例2.3】目前世界人口为60亿，如果以每年1.4%的速度增长，多少年后世界人口达到或超过70亿？ 分析： 使用公式p = p0 * (1 + r)，p0为当前人口，r为增长率 程序如下： Private Sub Command1_Click() Dim p As Single, r As Single, n As Integer p = 60 累乘变量赋初值 r = 0.014 增长率 Do p = p * (1 + r) 累乘 n = n + 1 计数 Loop Until p = 70 Print n; 年后世界人口达到; p; 亿 End Sub 程序中累乘变量p每乘一个（1+r），年份增加1年