VB常用算法(一).pptVIP

常用算法（一） 算法是对某个问题求解过程的描述 1. 累加、连乘 * * 1～100的5或7的倍数的和 Sum = 0 For i = 1 To 100 If i Mod 5 = 0 Or i Mod 7 = 0 Then Sum = Sum + i End If Next i Print Sum 3～10的乘积 t = 1 For i =3 To 10 t = t * i Next i Print t 思考：若把循环体前面置各变量初值的语句放在循环体内，程序运行时会产生什么情况？ 1、计算n！ Private Sub Form_Click() Dim n%, s% n = InputBox(请输入n的值) s = 1 For i = 1 To n s = s * i Next i Print n !=; s End Sub 2、计算1！+2！+3！+….+10！ Private Sub Form_Click() Dim s, a s = 0 a = 1 For i = 1 To 10 a = a * i s = s + a Next i Print 1!+2!+...+10!=; s End Sub 例4.14 求自然对数e的近似值,要求其误差小于0.00001，近似公式为: 该例题涉及两个问题： （1）用循环结构求级数和的问题。本例根据某项值的精度来控制循环的结束与否。 （2）累加：e=e+t 循环体外对累加和的变量清零 e=0 连乘：n=n*i 循环体外对连乘积变量置1 n=1 Private Sub Form_Click() Dim i%,n, t!, e! e = 0 : n = 1 ‘ e存放累加和、n存放阶乘 i = 0 : t = 1 ‘ i计数器、t第i项的值 Do While t 0.00001 e = e + t : i = i + 1 ‘ 累加、连乘 n = n * i : t = 1 / n Loop Print 计算了 ; i; 项的和是 ; e End Sub 2. 求素数 素数是一个大于2，且不能被1和本身以外的整数整除的整数。 判别某数m是否为素数最简单的方法是: 对于m 从 i=2，3，…，m-1判别m能否被i整除，只要有一个能整除，m不是素数，否则m是素数。 例4.15 求100以内素数的代码： For m = 2 To 100 For i = 2 To m - 1 If (m Mod i) = 0 Then GoTo NotNextM Next i Print m NotNextM: Next m m是否为素数 求100以内的素数 思考： 此例用Go To语句对非素数不作判断，若不用GoTo语句，如何修改程序？ 判断一个数 M是不是素数 Private Sub Form_Click() m = Val(InputBox(请输入一个数：)) For i = 2 To m - 1 If m Mod i = 0 Then Exit For Next i If i = m - 1 Then Print m; 是素数 Else Print m; 不是素数 End If End Sub 输出100到300之间的所有素数(每行输出5个） Private Sub Form_Click() t = 0 For m = 100 To 300 For i = 2 To m - 1 If m Mod i = 0 Then Exit For Next i If i = m - 1 Then Print Tab(t * 8); m;: t = t + 1 If t = 5 Then t = 0: Print Next m End Sub 3.穷举法 “穷举法”也称为“枚举法”或“试凑法”，即将可能出现的各种情况一一测试，判断是否满足条件，一般采用循环来实现。 例4.16 百元买百鸡问题。假定小鸡每只5角，公鸡每只2元，母鸡每只3元。现在有100元钱要求买100只鸡，编程列出所有可能的购鸡方案。 设母鸡、公鸡、小鸡各为x、y、z只，根据题目要求，列出方程为： x+y+y=100 3x+2y+0.5z=100 三个未知数，