综合讲解VB编程题.docVIP

1、把一张一元钞票,换成一分、二分和五分硬币,每种至少5枚, 编程求有多少种方案? Private Sub Command1_Click() For a1 = 5 To 100 For a2 = 5 To 50 For a5 = 5 To 20 If a5 * 5 + a2 * 2 + a1 = 100 Then n = n + 1 Next a5 Next a2 Next a1 Print n End Sub 2、若两个自然连续数乘积减1后是素数,则称此两个自然连续数为友数对,该素数称为友素数,例:2*3-1=5,因此2与3是友数对,5是友素数, 编程求[40,119]之间友素数对的数目。 Private Sub Command1_Click() For i = 40 To 119 If Prime(i * (i + 1) - 1) Then n = n + 1 Next i Print n End Sub Function Prime(x) As Boolean F = True For j = 2 To Sqr(x) If x Mod j = 0 Then F = False: j = x Next j Prime = F End Function 3、某一正整数，进行递减，每次将该数减半后再减一，当对该数进行第10次减半时发现该数只剩下1不能再减了，编程求该数。 Private Sub Command1_Click() N = 1 For i = 1 To 9 N = 2 * (N + 1) Next i Print N End Sub 4、已知Fibonacci数列：1,1,2,3,5,8,……,它可由下面公式表述： F(1)=1 if n=1 F(2)=1 if n=2 F(n)=F(n-1)+F(n-2) if n2 编程求F(50)值。 Private Sub Command1_Click() Dim a(50) a(1) = 1 a(2) = 1 For i = 3 To 50 a(i) = a(i - 1) + a(i - 2) Next i Print a(50) End Sub 5、若两个素数之差为2，则称这两个素数为双胞胎数。编程求出[200，1000]之内有多少对双胞胎数。 Private Sub Command1_Click() For i = 200 To 1000 If Prime(i) And Prime(i + 2) Then n = n + 1 Next i Print n End Sub Function Prime(x) As Boolean F = True For j = 2 To Sqr(x) If x Mod j = 0 Then F = False: j = x Next j Prime = F End Function 6、设某四位数的各位数字的平方和等于100，编程求共有多少个这种四位数。 Private Sub Command1_Click() For i = 1000 To 9999 a4 = i Mod 10 a3 = i \ 10 Mod 10 a2 = i \ 100 Mod 10 a1 = i \ 1000 If a1 * a1 + a2 * a2 + a3 * a3 + a4 * a4 = 100 Then n = n + 1 Next i Print n End Sub 7、设有6个十进制数字a,b,c,d, e，f ,编程求满足abcdf×e=fdcba条件的五位数abcdf(a≠0,f≠0,e≠1)的个数。 Private Sub Command1_Click() n=0 For a = 1 To 9 For b = 0 To 9 For c = 0 To 9 For d = 0 To 9 For e = 2 To 9 For f = 1 To 9 p=(10000 * a + 1000 * b + 100 * c + 10 * d + f) * e q= f * 10000 + d * 1000 + c * 100 + b * 10 + a If p= q Then n = n + 1 Next f, e, d, c, b, a Print n