湖南省计算机等级考试VB程序设计辅导模板.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:1~9 b,c:0~9) 由数字a、b、c组成数x(100~999) * 设x是一个三位数，百位到个位分别是a、b、c，则： a=Int(x/100) b=Int((x-100*a)/10) c=x Mod 10 Int(a/b)可替换为a\b，如： a=x\100 b=(x-100*a)\10 * 求水仙花数之程序（一） Private Sub Form_Click() For x = 100 To 999 a = Int(x / 100) b = Int((x - 100 * a) / 10) c = x Mod 10 If x = a ^ 3 + b ^ 3 + c ^ 3 Then Print x Next End Sub * 求水仙花数之程序（二） Private Sub Form_Click() For a = 1 To 9 For b = 0 To 9 For c = 0 To 9 x = a * 100 + b * 10 + c If x = a^3+b^3+c^3 Then Print x Next c, b, a End Sub * 设x是一个四位数，千位到个位分别是a、b、c、d，则： a=Int(x/1000) 或 x\1000 b=Int((x-1000*a)/100) c=Int((x-1000*a-100*b)/10) d=x Mod 10 （或见下页） * b=(x\100) Mod 10 c=(x\10) Mod 10 或 b=(x Mod 1000)\100 c=(x Mod 100)\10 * 求在[100,999]内所有不含数字0且各位数字之积被96整除的数之和。#26640 a*b*c0 and a*b*c mod 96=0 * 求[123,4321]内回文数的个数。#120 都看作四位数abcd，两种情况处理： a=0 and b=d a0 and a=d and b=c * 程序 Private Sub Form_Click() For x = 123 To 4321 a = x \ 1000 b = (x \ 100) Mod 10 c = (x \ 10) Mod 10 d = x Mod 10 If (a = 0 And b = d) Or (a 0 And a = d And b = c) Then n = n + 1 Next Print n End Sub * 5、因子问题--因子个数、和 问[100,200]之间有奇数个不同因子的整数共有多少个？#5 基本算法：二重循环 外循环：for x=100 to 200 穷举！ 内循环模块一：求x之因子个数 内循环模块二：判断处理 * 程序 Private Sub Form_Click() For x = 100 To 200 k = 0 For i = 1 To x If x Mod i = 0 Then k = k + 1 Next If k Mod 2 = 1 Then Print x n = n + 1 End If Nex