湖南省计算机等级考试- V- B程序设计辅导课件.pptVIP

* 程序 Private Sub Form_Click() Dim f(60) f(1) = 1 : f(2) = 2 : s = 1 / 2 Debug.Print f(1), f(2), s For n = 3 To 60 f(n) = f(n - 2) + f(n - 1) If n Mod 2 = 0 Then s = s + f(n - 1) / f(n) Debug.Print f(n - 1), f(n), s End If Next Print Format(s, 0.00) End Sub * 三项递推的数列 一个数列，它的头三个数为0，0，1，以后的每个数都是其前三个数的和，求此数列的前30项之和。Excel中求解： A1=0，A2=0，A3=1 A4=A1+A2+A3，填充至30行 单击A列，状态行中有求和结果 * 4、常见数字问题的处理 水仙花数：三位数，等于其各位数字之立方和。 记住10000以内： 153、370、371、407 考试题中，曾有四位水仙花数之说。看清题意！ * 水仙花数的算法是数字问题之根本！ 算法一：单循环(x:100~999) 由数x得出数字a b c ???（下页） 熟练掌握一种从数中取数字的方法 算法二：三重循环(a: