VB循环程序例题100道附答案解析

VB循环程序例题附答案
1.素数
1. [100，999]范围内同时满足以下两个条件的十进制数. ⑴其个位数字与十位数字之和除以10所得的余数是百位数字；⑵该数是素数; 求有多少个这样的数？15
n = 0
For i = 100 To 999
a = i \ 100
b = i \ 10 Mod 10
c = i Mo
d 10
If (c + b) Mod 10 = a Then
x = 0
For j = 2 To i - 1
If i Mod j = 0 Then x = 1: Exit For
Next j
If x = 0 Then n = n + 1
End If
Next i
Print n
2. [300，800]范围内同时满足以下两个条件的十进制数. ⑴其个位数字与十位数字之和除以10所得的余数是百位数字；⑵该数是素数；求满足上述条件的最大的三位十进制数。

761 For i = 300 To 800
a = i \ 100
b = i \ 10 Mod 10
c = i Mo
d 10
If (c + b) Mod 10 = a Then
x = 0
For j = 2 To i - 1
If i Mod j = 0 Then x = 1: Exit For
Next j
If x = 0 Then s = i
End If
Next i
Print s
3. 除1和它本身外，不能被其它整数整除的正整数称为素数（注：1不是素数，2是素数）。

若两素数之差为2 ，则称两素数为双胞胎数，问[31,601]之间有多少对双胞胎数。

22
n = 0
For i = 31 To 601 - 2
x = 0
If i Mod j = 0 Then x = 1: Exit For
Next j
If x = 0 Then
y = 0
For j = 2 To Sqr(i + 2)
If (i + 2) Mod j = 0 Then y = 1: Exit For
Next j
If y = 0 Then n = n + 1
End If
Next i
Print n
4. 数学家哥德巴赫曾猜测：任何大于6的偶数都可以分解成两个素数（素数对）的和。

但有些偶数可以分解成多种素数对的和，如： 10=3+7，10=5+5，即10可以分解成两种不同的素数对。

试求6744可以分解成多少种不同的素数对（注： A+B与B+A认为是相同素数对）144
n = 0
For i = 2 To 6744 / 2
x = 0
For j = 2 To Sqr(i)
If i Mod j = 0 Then x = 1: Exit For
Next j
If x = 0 Then
y = 0
For j = 2 To Sqr(6744 - i)
If (6744 - i) Mod j = 0 Then y = 1: Exit For
Next j
If y = 0 Then n = n + 1
End If
Next i
Print n
5. 两个素数之差为2，则称这两个素数为双胞胎数。

求出[200，1000]之间的最大一对双胞胎数的和。

1764
For i = 200 To 1000 - 2
x = 0
For j = 2 To Sqr(i)
If i Mod j = 0 Then x = 1: Exit For
Next j
If x = 0 Then
y = 0
For j = 2 To Sqr(i + 2)
If (i + 2) Mod j = 0 Then y = 1: Exit For
Next j
If y = 0 Then s = i + i + 2
End If
Print s
6. 一个素数（设为p）依次从最高位去掉一位，二位，三位，……，若得到的各数仍都是素数(注：除1和它本身外，不能被其它整数整除的正整数称为素数，1不是素数，2是素数），且数p的各位数字均不为零，则称该数p为逆向超级素数。

例如，617，17，7都是素数，因此617是逆向超级素数，尽管503，03，3都是素数，但它不是逆向超级素数，因为它包含有零。

试求[100,999]之内的所有逆向超级素数的个数。

39
n = 0
For i = 100 To 999
a = i \ 10 Mod 10
b = i Mod 10
If a <> 0 And b <> 0 And b <> 1 Then
x = 0
For j = 2 To Sqr(i)
If i Mod j = 0 Then x = 1: Exit For
Next j
If x = 0 Then
y = 0
c = i Mo
d 100
For j = 2 To Sqr(c)
If c Mod j = 0 Then y = 1: Exit For
Next j
If y = 0 Then
z = 0
For j = 2 To Sqr(b)
If b Mod j = 0 Then z = 1: Exit For
Next j
If z = 0 Then n = n + 1
End If
End If
End If
Next i
Print n
7. 德国数学家哥德巴赫曾猜测：任何大于6的偶数都可以分解成两个素数（素数对）的和。

但有些偶数可以分解成多种素数对的和，如： 10=3+7，10=5+5，即10可以分解成两种不同的素数对。

试求1234可以分解成多少种不同的素数对（注： A+B与B+A认为是相同素数对）25 n = 0
For i = 2 To 1234 / 2
x = 0
For j = 2 To Sqr(i)
If i Mod j = 0 Then x = 1: Exit For
Next j
If x = 0 Then
y = 0
If (1234 - i) Mod j = 0 Then y = 1: Exit For
Next j
If y = 0 Then n = n + 1
End If
Next i
Print n
8.求[100，900]之间相差为12的素数对（注：要求素数对的两个素数均在该范围内）的个数。

50
n = 0
For i = 100 To 900 - 12
x = 0
For j = 2 To Sqr(i)
If i Mod j = 0 Then x = 1: Exit For
Next j
If x = 0 Then
y = 0
For j = 2 To Sqr(i + 12)
If (i + 12) Mod j = 0 Then y = 1: Exit For
Next j
If y = 0 Then n = n + 1
End If
Next i
Print n
9. 一个素数（设为p）依次从最高位去掉一位，二位，三位，……，若得到的各数仍都是素数(注：1不是素数)，且数p的各位数字均不为零，则称该数p为逆向超级素数。

例如，617，17，7都是素数，因此617是逆向超级素数，但尽管503，03，3都是素数，但它不是逆向超级素数，因为它包含有零。

试求[100,999]之内的所有逆向超级素数的和。

21645
s = 0
For i = 100 To 999
a = i \ 10 Mod 10
b = i Mod 10
If a <> 0 And b <> 0 And b <> 1 Then
x = 0
For j = 2 To Sqr(i)
If i Mod j = 0 Then x = 1: Exit For
Next j
If x = 0 Then
y = 0
c = i Mo
d 100
For j = 2 To Sqr(c)
If c Mod j = 0 Then y = 1: Exit For
Next j
z = 0
For j = 2 To Sqr(b)
If b Mod j = 0 Then z = 1: Exit For
Next j
If z = 0 Then s = s + i
End If
End If
End If
Next i
Print s
10. 一个素数（设为p）依次从最高位去掉一位，二位，三位，……，若得到的各数仍都是素数(注：1不是素数，2是素数)，且数p的各位数字均不为零，则称该数p为逆向超级素数。

例如，617，17，7都是素数，因此617是逆向超级素数，但尽管503，03，3都是素数，但它不是逆向超级素数，因为它包含有零。

试求[100,999]之内的所有逆向超级素数从大到小数的第10个素数是多少？797
n = 0
For i = 999 To 100 Step -1
a = i \ 10 Mod 10
b = i Mod 10
If a <> 0 And b <> 0 And b <> 1 Then
x = 0
For j = 2 To Sqr(i)
If i Mod j = 0 Then x = 1: Exit For
Next j
If x = 0 Then
y = 0
c = i Mo
d 100
For j = 2 To Sqr(c)
If c Mod j = 0 Then y = 1: Exit For
Next j
If y = 0 Then
z = 0
For j = 2 To Sqr(b)
If b Mod j = 0 Then z = 1: Exit For
Next j
If z = 0 Then n = n + 1: If n = 10 Then s = i
End If
End If
End If
Next i
Print s
11. 一个自然数是素数，且它的数字位置经过任意对换后仍为素数，则称为绝对素数。

如13，试求所有两位绝对素数的和。

429
For i = 10 To 99
a = i \ 10
b = i Mod 10
x = 0
For j = 2 To Sqr(i)
If i Mod j = 0 Then x = 1: Exit For
Next j
If x = 0 Then
y = 0
c = b * 10 + a
For j = 2 To Sqr(c)
If c Mod j = 0 Then y = 1: Exit For
Next j
If y = 0 Then s = s + i
End If
Next i
Print s
12. 在[200，900]范围内同时满足以下两个条件的十进制数:⑴其个位数字与十位数字之和除以10所得的余数是百位数字; ⑵该数是素数；问有多少个这样的数？14
n = 0
For i = 200 To 900
a = i \ 100
b = i \ 10 Mod 10
c = i Mo
d 10
If (c + b) Mod 10 = a Then
x = 0
For j = 2 To i - 1
If i Mod j = 0 Then x = 1: Exit For
Next j
If x = 0 Then n = n + 1
End If
Next i
Print n
13. 一个素数，依次从个位开始去掉一位，二位.....，所得的各数仍然是素数，称为超级素数。

求[100,999]之内超级素数的个数。

14
n = 0
For i = 100 To 999
x = 0
For j = 2 To Sqr(i)
If i Mod j = 0 Then x = 1: Exit For
Next j
If x = 0 Then
y = 0
For j = 2 To Sqr(a)
If a Mod j = 0 Then y = 1: Exit For
Next j
If y = 0 Then
b = i \ 100
If b <> 1 Then
z = 0
For j = 2 To Sqr(b)
If b Mod j = 0 Then z = 1: Exit For
Next j
If z = 0 Then n = n + 1
End If
End If
End If
Next i
Print n
14. 若两个连续的自然数的乘积减1后是素数，则称此两个连续自然数为友数对，该素数称为友素数。

例如，由于 8*9-1=71，因此，8与9是友素数对，71是友素数。

求[100，200]之间的第10个友素数对所对应的友素数的值（按由小到大排列）。

17291 For i = 100 To 199
a = i * (i + 1) - 1
x = 0
For j = 2 To Sqr(a)
If a Mod j = 0 Then x = 1: Exit For
Next j
If x = 0 Then
n = n + 1
If n = 10 Then s = a
End If
Next i
Print s
15. 求[2，400]中相差为10的相邻素数对（两数中间没有其它素数）的对数。

5
n = 0
For I = 2 To 400 - 10
x = 0
For j = 2 To Sqr(I)
If I Mod j = 0 Then x = 1: Exit For
Next j
If x = 0 Then
y = 0
For j = 2 To Sqr(I + 10)
If (I + 10) Mod j = 0 Then y = 1: Exit For
If y = 0 Then
For k = I + 1 To I + 9
z = 0
For k1 = 2 To Sqr(k)
If k Mod k1 = 0 Then z = 1: Exit For
Next k1
If z = 0 Then Exit For
Next k
If k = I + 10 Then n = n + 1
End If
End If
Next I
Print n
16. 若两个连续的自然数的乘积减1后是素数，则称此两个连续自然数为友数对，该素数称为友素数。

例如，由于 8*9-1=71，因此，8与9是友数对，71是友素数。

求[50，150]之间的友数对的数目。

38
n = 0
For i = 50 To 150
a = i * (i + 1) - 1
x = 0
For j = 2 To Sqr(a)
If a Mod j = 0 Then x = 1: Exit For
Next j
If x = 0 Then
n = n + 1
End If
Next i
Print n
17. 若两个连续自然数乘积减1后是素数,则称此两个自然连续数为友数对,该素数称为友素数,例:2*3-1=5,因此2与3是友数对,5是友素数,求[40,119]之间友素数对的数目。

30
n = 0
For i = 40 To 119
a = i * (i + 1) - 1
x = 0
For j = 2 To Sqr(a)
If a Mod j = 0 Then x = 1: Exit For
Next j
If x = 0 Then
n = n + 1
End If
Next i
Print n
n = 0
For i = 2 To 21
x = 2 ^ i - 1
k = 0
For j = 2 To Sqr(x)
If x Mod j = 0 Then k = 1
Next j
If k = 0 Then n = n + 1
Next i
Print n
19. [300，800]范围内同时满足以下两个条件的十进制数. ⑴其个位数字与十位数字之和除以10所得的余数是百位数字；⑵该数是素数；求满足上述条件的最大的三位十进制数。

761 For i = 300 To 800
a = i \ 100
b = i \ 10 Mod 10
c = i Mo
d 10
If (c + b) Mod 10 = a Then
k = 0
For j = 2 To Sqr(i)
If i Mod j = 0 Then k = 1
Next j
If k = 0 Then s = i
End If
Next i
Print s
2. 取数字
20. 求符合下列条件的四位完全平方数(某个正整数A是另一个正整数B的平方,则称A为完全平方数)，它的千位数字与十位数字之和等于百位数字与个位数字之积，例如，3136=562, 且3+3=1*6 故3136是所求的四位完全平方数. 求其中最大的一个数。

7921
For i = 1000 To 9999
x = Sqr(i)
If x = Int(x) Then
a = i \ 1000
b = i \ 100 Mod 10
c = i \ 10 Mo
d 10
d = i Mod 10
If (a + c) = b * d Then s = i
End If
Next i
21.设某四位数的千位数字平方与十位数字的平方之和等于百位数字的立方与个位数字的立方之和，例如，对于四位数：3201， 3^2+0^2=2^3+1^3，试问所有这样的四位数之和是多少？97993 s = 0
For i = 1000 To 9999
a = i \ 1000
b = i \ 100 Mod 10
c = i \ 10 Mo
d 10
d = i Mod 10
If (a ^ 2 + c ^ 2) = b ^ 3 + d ^ 3 Then s = s + i
Next i
Print s
22. 设某四位数的千位数字与十位数字的和等于百位数字与个位数字的积，例如，对于四位数：9512，9+1=5*2，试问所有这样的四位数之和是多少？1078289 s = 0
For i = 1000 To 9999
a = i \ 1000
b = i \ 100 Mod 10
c = i \ 10 Mo
d 10
d = i Mod 10
If (a + c) = b * d Then s = s + i
Next i
Print s
23. 有一个三位数满足下列条件: (1)此三位数的三位数字各不相同; (2)此三位数等于它的各位数字的立方和。

试求所有这样的三位数之和。

1301
s = 0
For i = 100 To 999
a = i \ 100
b = i \ 10 Mod 10
c = i Mo
d 10
If (a ^ 3 + b ^ 3 + c ^ 3) = i And a <> b And b <> c And c <> a Then s = s + i Next i
Print s
24. 求[1，999]之间能被3整除，且至少有一位数字是5的所有正整数的个数。

91
n = 0
For i = 1 To 999
a = i \ 100
b = i \ 10 Mod 10
c = i Mo
d 10
If i Mod 3 = 0 And (a = 5 Or b = 5 Or c = 5) Then n = n + 1
Next i
25. 有一个三位数满足下列条件: (1)此三位数的三位数字各不相同; (2)此三位数等于它的各位数字的立方和。

试求所有这样的三位数中最大的一个是多少？407
s = 0
For i = 100 To 999
a = i \ 100
b = i \ 10 Mod 10
c = i Mo
d 10
If (a ^ 3 + b ^ 3 + c ^ 3) = i And a <> b And b <> c And c <> a Then s = i Next i
Print s
26. 有一个三位数满足下列条件: (1)此三位数的三位数字各不相同; (2)此三位数等于它的各位数字的立方和。

试求这种三位数共有多少个？ 4
n = 0
For i = 100 To 999
a = i \ 100
b = i \ 10 Mod 10
c = i Mo
d 10
If (a ^ 3 + b ^ 3 + c ^ 3) = i And a <> b And b <> c And c <> a Then n = n + 1 Next i
Print n
27. 求五位数各位数字的平方和为100的最大的五位数。

94111 For i = 10000 To 99999
a = i \ 10000
b = i \ 1000 Mod 10
c = i \ 100 Mo
d 10
d = i \ 10 Mod 10
e = i Mod 10
If a ^ 2 + b ^ 2 + c ^ 2 + d ^ 2 + e ^ 2 = 100 Then s = i
Next i
Print s
28. 所谓“水仙花数”是指一个三位数，其各位数字的三次方之和等于该数本身，例如：153=1^3+3^3+5^3，故153是水仙花数，求[100，999]之间所有水仙花数之和。

1301
s = 0
For i = 100 To 999
a = i \ 100
b = i \ 10 Mod 10
c = i Mo
d 10
If (a ^ 3 + b ^ 3 + c ^ 3) = i Then s = s + i
Next i
Print s
n = 0
For i = 1000 To 9999
a = i \ 1000
b = i \ 100 Mod 10
c = i \ 10 Mo
d 10
d = i Mod 10
If a ^ 2 + b ^ 2 + c ^ 2 + d ^ 2 = 100 Then n = n + 1
Next i
Print n
30. 回文数是指正读和反读都一样的正整数。

例如3773是回文数。

求出[1000，9999]以内的所有回文数的个数。

90
n = 0
For i = 1000 To 9999
a = i \ 1000
b = i \ 100 Mod 10
c = i \ 10 Mo
d 10
d = i Mod 10
If a + b * 10 + c * 100 + d * 1000 = i Then n = n + 1
Next i
Print n
3. 分硬币
31. 把一张一元钞票,换成一分、二分和五分硬币,每种至少8枚,问有多少种方案? 80 n = 0
For i = 8 To 100
For j = 8 To 50
For k = 8 To 20
If (i + 2 * j + 5 * k = 100) Then n = n + 1
Next k, j, i
Print n
32. 50元的整币兑换成5元、2元和1元币值（三种币值均有、缺少一种或两种都计算在内）的方法有多少种。

146
n = 0
For i = 0 To 50
For j = 0 To 25
For k = 0 To 10
If (i + 2 * j + 5 * k = 50) Then n = n + 1
Next k, j, i
Print n
33. 50元的整币兑换成5元、2元和1元币值（要求三种币值均有）的方法有多少种。

106
For i = 1 To 50
For j = 1 To 25
For k = 1 To 10
If (i + 2 * j + 5 * k = 50) Then n = n + 1
Next k, j, i
Print n
34. 马克思曾经做过这样一道趣味数学题：有30个人在一家小饭店里用餐，其中有男人、女人和小孩，每个男人花了3先令，每个女人花了2先令，每个小孩花了1先令，共花去50先令。

如果要求男人、女人和小孩都有人参与，试求有多少种方案分配男人、女人和小孩的人数。

9
n = 0
For i = 1 To 50
For j = 1 To 25
k = 30 - i - j
If (i + 2 * j + 3 * k = 50) And k > 0 Then n = n + 1
Next j, i
Print n
4. 勾股、弦数
35. A,B,C是三个小于或等于100正整数，当满足1/A^2+1/B^2=1/C^2关系时，称为倒勾股数。

求130<A+B+C<150且A>B>C的倒勾股数有多少组。

1
For c = 1 To 100
For b = c + 1 To 100
For a = b + 1 To 100
i = a + b + c
If (i > 100 And i < 150 And (1 / (a * a) + 1 / (b * b) = 1 / (c * c))) Then
n = n + 1
Print a, b, c
End If
Next a, b, c
Print n
36. 倒勾股数是满足公式： 1/A^2+1/B^2=1/C^2 的一组正整数（A，B，C），例如，（156，65，60）是倒勾股数，因为：1/156^2+1/65^2=1/60^2。

假定A>B>C，求A，B，C之和小于100的倒勾股数有多少组？ 2
For c = 1 To 100
For b = c + 1 To 100
For a = b + 1 To 100
i = a + b + c
If (i < 100 And (1 / (a * a) + 1 / (b * b) = 1 / (c * c))) Then
n = n + 1
Print a, b, c
End If
Next a, b, c
37. 勾股弦数是满足公式： A^2+B^2=C^2 (假定A<B<C)的一组正整数（A，B，C），例如，（3，4，5）是勾股弦数，因为：3^2+4^2=5^2。

求A，B均小于25且A+B+C<=100的勾股弦数的个数。

11
n = 0
For c = 1 To 100
For a = 1 To 24
For b = a + 1 To 24
s = a + b + c
If a ^ 2 + b ^ 2 = c ^ 2 And s <= 100 Then n = n + 1
Next b, a, c
Print n
38. 倒勾股数是满足公式： 1/A^2+1/B^2=1/C^2 的一组正整数（A，B，C），例如，（156，65，60）是倒勾股数，因为：1/156^2+1/65^2=1/60^2。

假定A>B>C，求A，B，C均小于或等于100
的倒勾股数有多少组？ 5
For c = 1 To 100
For b = c + 1 To 100
For a = b + 1 To 100
i = a + b + c
If 1 / (a * a) + 1 / (b * b) = 1 / (c * c) Then
n = n + 1
Print a, b, c
End If
Next a, b, c
Print n
39. 勾股弦数是满足公式： A^2+B^2=C^2 (假定A<B<C)的一组正整数（A，B，C），例如，（3，4，5）是勾股弦数，因为：3^2+4^2=5^2。

求A，B，C均小于或等于100的勾股弦数中A+B+C的最大值。

240
Max = 0
For a = 1 To 100
For b = a + 1 To 100
For c = b + 1 To 100
s = a + b + c
If a ^ 2 + b ^ 2 = c ^ 2 And s > Max Then Max = s
Next c, b, a
Print Max
40 若某整数平方等于某两个正整数平方之和的正整数称为弦数。

例如：由于3^2+4^2=5^2，则5为弦数，求[100，200]之间弦数的个数。

77
n = 0
For i = 1 To k
For j = i + 1 To k
If i ^ 2 + j ^ 2 = k ^ 2 Then n = n + 1
Next j, i, k
Print n
41 若某正整数平方等于某两个正整数平方之和,称该正整数为弦数。

例如：由于3^2+4^2=5^2，则5为弦数，求[131，200]之间最小的弦数。

135
For k = 131 To 200
For i = 1 To k
For j = i + 1 To k
If i ^ 2 + j ^ 2 = k ^ 2 Then GoTo 10
Next j, i, k
10
Print k
5.完数因子
42 求在[10，1000]之间的所有完数之和。

各真因子之和（不包括自身）等于其本身的正整数称为完数。

例如：6=1+2+3，6是完数。

524
Sum = 0
For m = 10 To 1000
s = 0
For i = 1 To m - 1
If m Mod i = 0 Then s = s + i
Next i
If s = m Then Sum = Sum + m
Next m
Print Sum
43 一个数如果恰好等于它的所有真因子之和，这个数就称为“完数”。

例如, 6的真因子为1，2，3，而6=1+2+3，因此，6是“完数”。

求[1，1000]之间的最大完数。

496
Sum = 0
For m = 1 To 1000
s = 0
For i = 1 To m - 1
If m Mod i = 0 Then s = s + i
Next i
If s = m Then Sum = m
Next m
Print Sum
44 一个数如果恰好等于它的所有真因子之和，这个数就称为“完数”。

例如，6的真因子为1，2，3，而6=1+2+3，因此，6是“完数”。

求[1,1000]之间的第二大完数。

28
For m = 1 To 1000
s = 0
For i = 1 To m - 1
If m Mod i = 0 Then s = s + i
Next i
If s = m Then n = n + 1
If n = 2 Then Sum = m: Exit For
Next m
Print Sum
45 一个数如果恰好等于它的所有真因子之和，这个数就称为“完数”。

例如，6的真因子为1，2，3，而6=1+2+3，因此，6是“完数”。

求1000以内的所有完数之和。

530
Sum = 0
For m = 1 To 1000
s = 0
For i = 1 To m - 1
If m Mod i = 0 Then s = s + i
Next i
If s = m Then Sum = Sum + m
Next m
Print Sum
46 求[200,300]之间有奇数个不同因子的最大的整数(在计算因子个数时,包括该数本身)。

289
For m = 200 To 300
k = 0
For i = 1 To m
If m Mod i = 0 Then k = k + 1
Next i
If k Mod 2 <> 0 Then A = m
Next m
Print A
47 求[200,300]之间第二大有奇数个不同因子的整数(在计算因子个数时,包括该数本身)。

256
n = 0
For m = 200 To 300
k = 0
For i = 1 To m
If m Mod i = 0 Then k = k + 1
Next i
If k Mod 2 <> 0 Then n = n + 1
If n = 2 Then A = m: Exit For
Next m
Print A
整除，求正整数[10，100]之间有多少个正整数能被其因子的个数整除。

12
n = 0
For m = 10 To 100
k = 0
For i = 1 To m
If m Mod i = 0 Then k = k + 1
Next i
If m Mod k = 0 Then n = n + 1
Next m
Print n
6.(数列)四舍五入
49 当m的值为50时，计算下列公式的值： T=1-1/2-1/3-1/4-…-1/m
要求：按四舍五入的方式精确到小数点后第四位。

-2.4992 t = 1
For i = 2 To 50
t = t - 1 / i
Next i
Print Round(t, 4)
50 当m的值为50时，计算下列公式之值: t=1+1/2^2+1/3^2+…+1/m^2
(按四舍五入的方式精确到小数点后第四位)。

1.6251 t = 0
For i = 1 To 50
t = t + 1 / i ^ 2
Next i
Print Round(t, 4)
51 当n=100时，计算S=(1-1/2)+(1/3-1/4)+……+(1/(2n-1)-1/(2n))的值。

.
要求：按四舍五入的方式精确到小数点后第三位。

0.691 s = 0
For i = 1 To 100
s = s + (1 / (2 * i - 1) - 1 / (2 * i))
Next i
Print Round(s, 3)
52 当n的值为25时，计算下列公式的值: s=1+1/1!+1/2!+1/3!+…+1/n!
要求：按四舍五入的方式精确到小数点后第四位。

2.7183 s = 1
t = 1
For i = 1 To 50
t = t * i
s = s + 1 / t
Print Round(s, 4)
53 利用格里高利公式：α/4=1-1/3+1/5-1/7+1/9-1/11+…-1/99，求α的值。

要求：按四舍五入的方式精确到小数点后第二位。

3.12
s = 0
a = 1
For i = 1 To 99 Step 2
s = s + 1 / i * a
a = -a
Next i
Print Round(s * 4, 2)
54 求1/(1*2)+1/(2*3)+1/(3*4)+....+1/(N*(N+1))的值,N=20, 要求：按四舍五入的方式精确到小数点后第二位。

0.95
s = 0
For i = 1 To 20
s = s + 1 / (i * (i + 1))
Next i
Print Round(s, 2)
55 求500以内（含500）能被5或9整除的所有自然数的倒数之和。

按四舍五入的方式精确到小数点后第二位。

1.48
s = 0
For i = 1 To 500
If i Mod 5 = 0 Or i Mod 9 = 0 Then
s = s + 1 / i
End If
Next i
Print Round(s, 2)
56 求S=1/2+2/3+3/5+5/8+……的前30项的和（注：该级数从第二项开始，其分子是前一项的分母，其分母是前一项的分子与分母的和）。

要求：按四舍五入的方式精确到小数点后第二位。

18.46
s = 0
a = 1
b = 2
For i = 1 To 30
s = s + a / b
t = a
a = b
b = t + b
Next i
Print Round(s, 2)
确到小数点后4位。

0.7829
s = 0
a = 1
For i = 1 To 100
s = s + 1 / (2 * i - 1) * a
a = -a
Next i
Print Round(s, 4)
58 当n=50时，求下列级数和：S=1/（1*2）+1/（2*3）+…+1/(n*(n+1))
要求：按四舍五入的方式精确到小数点后第四位。

0.9804
s = 0
For i = 1 To 50
s = s + 1 / (i * (i + 1))
Next i
Print Round(s, 4)
59 计算y=1+2/3+3/5+4/7+…+n/(2*n-1)的值, n=50, 要求：按四舍五入的方式精确到小数点后第二位。

26.47
s = 0
For i = 1 To 50
s = s + i / (2 * i - 1)
Next i
Print Round(s, 2)
60 计算Y=X/1!-X^3/3!+X^5/5!-X^7/7!+……前20项的值(已知：X=2)。

要求：按四舍五入的方式精确到小数点后第二位。

0.91
s = 0
x = 2
a = 1
t = 1
For i = 1 To 20 * 2 + 1
t = t * i
If i Mod 2 <> 0 Then
s = s + x ^ i / t * a
a = -a
End If
Next i
Print Round(s, 2)
61 求数列：2/1，3/2，5/3，8/5，13/8，21/13，…… 前50项之和(注：此数列从第二项开始，其分子是前一项的分子与分母之和，其分母是前一项的分子)。

（按四舍五入的方式精确到小数点后第二位）81.2
s = 0
a = 2
For i = 1 To 50
s = s + a / b
t = a
a = a + b
b = t
Next i
Print Round(s, 2)
62 已知：A1=1, A2=1/(1+A1), A3=1/(1+A2), A4=1/(1+A3), ……, 求A50.（按四舍五入的方式精确到小数点后第三位）。

0.618
a = 1
For i = 2 To 50
a = 1 / (1 + a)
Next i
Print Round(a, 3)
63 已知：Sn=2/1+3/2+4/3+…+(n+1)/n, 求Sn不超过50的最大值（按四舍五入的方式精确到小数点后第三位）。

49.395
s = 0
i = 1
Do While s < 50
t = (i + 1) / i
s = s + t
i = i + 1
Loop
Print Round(s - t, 3)
7.平方数
64 若一个四位正整数是另一个正整数的平方，且各位数字的和是一个平方数，则称该四位正整数是“四位双平方数”。

例如：由于7396=86^2，且7+3+9+6=25=5^2，则称7396是“四位双平方数”。

求所有“四位双平方数”之和。

81977
s = 0
For i = 1000 To 9999
a = i \ 1000
b = i \ 100 Mod 10
c = i \ 10 Mo
d 10
d = i Mod 10
x = Sqr(i)
y = Sqr(a + b + c + d)
If x = Int(x) And y = Int(y) Then s = s + i
Next i
Print s
都是平方数，则称8和17是自然数对（8，17）。

假定（A，B）与（B，A）是同一个自然数对且假定A>=B，求所有小于或等于100（即：A<=100,B<=100，A<>B,A和B均不为0）的自然数对中B 之和。

1160
s = 0
For a = 1 To 100
For b = 1 To a - 1
x = Sqr(a + b)
y = Sqr(a - b)
If x = Int(x) And y = Int(y) Then s = s + b
Next b, a
Print s
66 若一个四位正整数是另一个正整数的平方，且各位数字的和是一个平方数，则称该四位正整数是“四位双平方数”。

例如：由于7396=86^2，且7+3+9+6=25=5^2，则称7396是“四位双平方数”。

若把所有“四位双平方数”按升序排列，求前10个“四位双平方数”的和。

29690 s = 0
n = 0
For i = 1000 To 9999
a = i \ 1000
b = i \ 100 Mod 10
c = i \ 10 Mo
d 10
d = i Mod 10
x = Sqr(i)
y = Sqr(a + b + c + d)
If x = Int(x) And y = Int(y) Then s = s + i: n = n + 1
If n = 10 Then Exit For
Next i
Print s
67 所谓“同构数”是指这样一个数，它出现在它的平方数的右侧，例如5的平方是25，25的平方是625，故5和25都是同构数，求[2，1000]之间所有同构数之和。

1113
s = 0
For i = 2 To 1000
x = i ^ 2
t = 10
Do While x \ t > 0
A = x Mod t
t = t * 10
If A = i Then Exit Do
Loop
If A = i Then s = s + i
Next i
Print s
68 自然数对是指两个自然数的和与差都是平方数，如8和17的和8+17=25与其差 17-8=9都是平方数，则称8和17是自然数对（8，17）。

假定（A，B）与（B，A）是同一个自然数对且假
定A>=B，求所有小于或等于100（即：A<=100,B<=100，A<>B,A和B均不为0）的自然数对中A-B
之差的和。

509
s = 0
For a = 1 To 100
For b = 1 To a - 1
x = Sqr(a + b)
y = Sqr(a - b)
If x = Int(x) And y = Int(y) Then s = s + a - b
Next b, a
Print s
8.Fibonaci(累加数列)
69 已知 f(n)=f(n-1)+2f(n-2)-5f(n-3),f(0)=1,f(1)=2,f(2)=3,求f(0)+f(1)+…f(30)。

-750874 f0 = 1
f1 = 2
f2 = 3
s = f0 + f1 + f2
For i = 3 To 30
f3 = f2 + 2 * f1 - 5 * f0
s = s + f3
f0 = f1
f1 = f2
f2 = f3
Next i
Print s
70 已知 f(0)=f(1)=1 f(2)=0
f(n)=f(n-1)-2*f(n-2)+f(n-3) (n>2)
求f(0)到f(50)中的最大值 598325
f0 = 1
f1 = 1
f2 = 0
Max = f1
For i = 3 To 50
f3 = f2 - 2 * f1 + f0
If f3 > Max Then Max = f3
f0 = f1
f1 = f2
f2 = f3
Next i
Print Max
71 已知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 n>2
试求F(2)+F(4)+F(6)+……+F(50)值。

20365011073
f1 = 1
f2 = 1
s = f2
For i = 3 To 50
f3 = f2 + f1
If i Mod 2 = 0 Then s = s + f3
f1 = f2
f2 = f3
Next i
Print s
72 已知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 n>2
试求F(50)值。

12586269025
f1 = 1
f2 = 1
For i = 3 To 50
f3 = f2 + f1
f1 = f2
f2 = f3
Next i
Print f3
73 斐波那契数列的前二项是1，1，其后每一项都是前面两项之和，求：10000000以内最大的斐波那契数？9227465 f1 = 1
f2 = 1
Do While f2 < 10000000
f3 = f2 + f1
f1 = f2
f2 = f3
Loop
Print f1
74 数列 E(1)=E(2)=1
E(n)=(n-1)*E(n-1)+(n-2)*E(n-2) (n>2)
称为E数列，每一个E(n),(n=1,2,…)称为E数。

求[1，30000]之内E数的个数。

8
E1 = 1
E2 = 1
n = 2
Do While E2 < 30000
E3 = (n - 1) * E2 + (n - 2) * E1
n = n + 1
E1 = E2
E2 = E3
Loop
Print n - 2
75 已知 f(0)=f(1)=1
f(2)=0 f(n)=f(n-1)-2f(n-2)+f(n-3) ( n>2 )
求f(0)到f(50)的所有51个值中的最大值（或最小值） '598325 ('-288959) f0 = 1
f1 = 1
f2 = 0
Min = f0
Max = f1
For i = 3 To 50
f3 = f2 - 2 * f1 + f0
If f3 > Max Then Max = f3
If f3 < Min Then Min = f3
f0 = f1
f1 = f2
f2 = f3
Next i
Print Max, Min
76 已知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 n>2
试求F(1)+F(3)+F(5)+……+F(49)值。

12586269025
f1 = 1
f2 = 1
s = f1
For i = 3 To 49
f3 = f2 + f1
If i Mod 2 <> 0 Then s = s + f3
f1 = f2
f2 = f3
Next i
Print s
77 已知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 n>2
试求F(45)值。

1134903170
f1 = 1
f2 = 1
s = f1
For i = 3 To 45
f3 = f2 + f1
f1 = f2
f2 = f3
Next i
Print f3
78 已知一个数列的前三项为0，0，1，以后各项都是其相邻的前三项之和，求该数列前30项
之和。

18947744
f1 = 0
f2 = 0
f3 = 1
s = f1 + f2 + f3
For i = 4 To 30
f4 = f3 + f2 + f1
s = s + f4
f1 = f2
f2 = f3
f3 = f4
Next i
Print s
79 设S=1+1/2+1/3+…1/n，n为正整数，求使S不超过10（S≤10）的最大的n。

12367
s = 0
n = 1
Do While s <= 10
s = s + 1 / n
n = n + 1
Loop
Print n - 1
80 已知S1=2, S2=2+4, S3=2+4+6, S4=2+4+6+8,S5=2+4+6+8+10，…,求
S=S1+S2+S3+S4+S5+…+S20的值。

3080
s = 0: n = 0
For i = 1 To 20
n = n + 2 * i
s = s + n
Next i
Print s
9.a,b,c,d,e类
81 设有十进制数字a,b,c,d和e，它们满足下列式子：abcd*e=bcde (a不等于0， e不等于0或1)，求满足上述条件的所有四位数abcd的和。

3665
s = 0
For i = 1000 To 9999
a = i \ 1000
b = i \ 100 Mod 10
c = i \ 10 Mo
d 10
d = i Mod 10
For e = 2 To 9
If i * e = b * 1000 + c * 100 + d * 10 + e Then s = s + i
Next e
Next i
Print s
82 设有十进制数字a,b,c,d和e，它们满足下列式子：abcd*e=bcde (a不等于0， e不等于0或1)，求满足上述条件的最大四位数abcd的值。

1999
For i = 1000 To 9999
a = i \ 1000
b = i \ 100 Mod 10
c = i \ 10 Mo
d 10
d = i Mod 10
For e = 2 To 9
If i * e = b * 1000 + c * 100 + d * 10 + e Then s = i
Next e
Next i
Print s
83 设有十进制数字a,b,c,d和e，它们满足下列式子：abcd*e=bcde (a不等于0， e不等于0或1)，求满足上述条件的四位数abcd的个数。

2
n = 0
For i = 1000 To 9999
a = i \ 1000
b = i \ 100 Mod 10
c = i \ 10 Mo
d 10
d = i Mod 10
For e = 2 To 9
If i * e = b * 1000 + c * 100 + d * 10 + e Then n = n + 1
Next e
Next i
Print n
84 有十进制数字a,b,c,d和e，它们满足下列式子：abcd*e=bcde (a不等于0， e不等于0
或1)，求满足上述条件的所有四位数bcde的和。

16659
s = 0
For i = 1000 To 9999
a = i \ 1000
b = i \ 100 Mod 10
c = i \ 10 Mo
d 10
d = i Mod 10
For e = 2 To 9
t = b * 1000 + c * 100 + d * 10 + e
If i * e = t Then s = s + t
Next e
Next i
Print s
85 设有6个十进制数字a,b,c,d, e，f ,求满足abcdf×e=fdcba条件的五位数abcdf(a≠0,e
≠0,e≠1)的个数。

2
n = 0
For i = 10000 To 99999
a = i \ 10000
b = i \ 1000 Mod 10
c = i \ 100 Mo
d 10
d = i \ 10 Mod 10
f = i Mod 10
For e = 2 To 9
t = f * 10000 + d * 1000 + c * 100 + b * 10 + a
If i * e = t Then n = n + 1
Next e
Next i
Print n
10.方程
86 求方程8x-5y=3,在|x|<=150, |y|<=200内的整数解。

试问这样的整数解有多少组？50 n = 0
For x = -150 To 150
For y = -200 To 200
If 8 * x - 5 * y = 3 Then n = n + 1
Next y, x
Print n
87 求方程8x-5y=3,在|x|<=150, |y|<=200内的整数解。

试问这样的整数解中|x|*|y|的最
大值是多少？24676
Max = 0
For x = -150 To 150
For y = -200 To 200
If 8 * x - 5 * y = 3 And Abs(x) * Abs(y) > Max Then Max = Abs(x) * Abs(y)
Next y, x
Print Max
88 若（x,y,z）满足方程：x^2+y^2+z^2=55^2(注：要求 x > y > z),则（x,y,z）称为方程的一个解。

试求方程的所有整数解中，|x|+|y|+|z|的最大值和最小值。

最大95'最小67
Max = 0
Min = 55 ^ 2
For x = -55 To 55
For y = -55 To x - 1
For z = -55 To y - 1
If x ^ 2 + y ^ 2 + z ^ 2 = 55 ^ 2 Then
s = Abs(x) + Abs(y) + Abs(z)
If s > Max Then Max = s
If s < Min Then Min = s
End If
Next z, y, x
Print Max, Min
89 已知X,Y,Z为三个正整数，且X^2+Y^2+Z^2=25^2，求X+Y+Z的最大值。

43
Max = 0
For x = 1 To 25
For y = 1 To 25
For z = 1 To 25
If x ^ 2 + y ^ 2 + z ^ 2 = 25 ^ 2 Then
If x + y + z > Max Then Max = x + y + z
End If
Next z, y, x
Print Max
90 （x,y,z）满足方程：x^2+y^2+z^2=55^2(注：要求 x > y > z),则（x,y,z）称为方程的一个解。

试求方程的整数解（包括负整数解）的个数。

62
n = 0
For x = -55 To 55
For y = -55 To x - 1
For z = -55 To y - 1
If x ^ 2 + y ^ 2 + z ^ 2 = 55 ^ 2 Then n = n + 1
Next z, y, x
Print n
91 求方程9X-19Y=1,在|X|≤100,|Y|≤50内共有多少组整数解? 11
n = 0
For x = -100 To 100
For y = -50 To 50
If 9 * x - 19 * y = 1 Then n = n + 1
Next y, x
Print n
11.其它
92 某些分数的分子和分母都是二位正整数的真分数具有下列特点：如果将该分数的分子的两位数字相加作分子，而将该分数的分母的两位数字相加作分母，得到的新分子跟原分子相等。

例如，63/84=（6+3）/（8+4）。

试求所有具有这种特点的真分子（非约简真分数）的分子与分母之和的和。

10134
s = 0
For i = 10 To 99
For j = 10 To i
a1 = i \ 10
b1 = i Mod 10
a2 = j \ 10
b2 = j Mod 10
If i / j = (a1 + b1) / (a2 + b2) And i <> j Then s = s + i + j
Next j, i
Print s
93 求[1，50]之间的所有整数能构成直角三角形的三边的组数。

例如：3*3+4*4=5*5，它们构成直角三角形，所以{3，4，5}作为一组，但{4，3，5}视为跟{3，4，5}相同的一组。

20 注：用勾股、弦数方法
s = 0
For i = 1 To 50
For j = 1 To i
For k = 1 To j
If j ^ 2 + k ^ 2 = i ^ 2 Then s = s + 1
Next k, j, i
Print s
94 已知：非等腰三角形最长边是60，其它两边的长度都是正整数，且三边之和能被3整除，试编程求取这类三角形的个数（注意：两边的长度交换构成的三角形算作同一个三角形，如：其它两边的长度为30和40的三角形与长度为40和30的三角形视为同一个三角形）。

271
s = 0
For i = 1 To 59
For j = i + 1 To 59
If (i + j + 60) Mod 3 = 0 And i + j > 60 Then s = s + 1
Next j, i
Print s
95 爱因斯坦走台阶:有一台阶,如果每次走两阶,最后剩一阶;如果每次走三阶,最后剩两阶;
如果每次走四阶,最后剩三阶;如果每次走五阶,最后剩四阶;如果每次走六阶,最后剩五阶;如果
每次走七阶,刚好走完.求满足上述条件的最小台阶数是多少？119
n = 1
Do Until n Mod 2 = 1 And n Mod 3 = 2 And n Mod 4 = 3 And n Mod 5 = 4 And n Mod 6 = 5 And n Mod 7 = 0
n = n + 1
Loop
Print n
96 编写程序，求共有几组i,j,k符合算式Ijk+kji=1534,其中i,j,k是[0,9]之间的一个整数且i<k。

2
n = 0
For i = 0 To 9
For j = 0 To 9
For k = i + 1 To 9
If (i * 100 + j * 10 + k) + (k * 100 + j * 10 + i) = 1534 Then n = n + 1
Next k, j, i
Print n
97 猴吃桃：有一天小猴子摘下了若干个桃子，当即吃掉一半，还觉得不过瘾，又多吃了一个。

第二天接着吃了剩下的桃子中的一半，仍不过瘾，又多吃了一个。

以后每天都是吃尚存桃子的一半零一个。

到第10天早上小猴子再去吃桃子时，看到只剩下一个桃子了。

问小猴子第一天共摘下了多少个桃子。

1534
s = 1
For i = 9 To 1 Step -1
s = (s + 1) * 2
Next i
Print s
98 某一正整数，进行递减，每次将该数减半后再减一，当对该数进行第10次减半时发现该数只剩下1不能再减了，求该数。

1534
s = 1
For i = 9 To 1 Step -1
s = (s + 1) * 2
Next i
Print s
99 求在[2，1000]之间的所有同构数之和（某正整数的平方，其低位与该数本身相同，则称该数为同构数。

例如25^2=625，625的低位25与原数相同，则称25为同构数）。

1113
s = 0
For i = 2 To 1000
x = i ^ 2
t = 10
Do While x \ t > 0
A = x Mod t
t = t * 10
If A = i Then Exit Do
. WORD格式整理. .
Loop
If A = i Then s = s + i
Next i
Print s
100 已知A<B, A和B均为正整数，且A*B=716699，求A+B的最小值。

1836 Min = 716699
For a = 1 To Sqr(716699)
b = 716699 / a
If b = Int(b) And a + b < Min Then Min = a + b
Next a
Print Min
. .专业知识分享. .。