2024年2月8日发(作者：)

. WORD格式整理. .

VB循环程序例题附答案

1.素数

1. [100，999]范围内同时满足以下两个条件的十进制数. ⑴其个位数字与十位数字之和除以10所得的余数是百位数字；⑵该数是素数; 求有多少个这样的数？ 15

n = 0

For i = 100 To 999

a = i 100

b = i 10 Mod 10

c = i Mod 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 Mod 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

For j = 2 To Sqr(i)

. .专业知识分享. .

. WORD格式整理. .

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

Next i

. .专业知识分享. .

. WORD格式整理. .

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 Mod 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

For j = 2 To Sqr(1234 - i)

. .专业知识分享. .

. WORD格式整理. .

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 Mod 100

For j = 2 To Sqr(c)

If c Mod j = 0 Then y = 1: Exit For

Next j

If y = 0 Then

. .专业知识分享. .

. WORD格式整理. .

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 Mod 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

s = 0

. .专业知识分享. .

. WORD格式整理. .

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 Mod 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

a = i 10

. .专业知识分享. .

. WORD格式整理. .

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

Next j

. .专业知识分享. .

. WORD格式整理. .

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

18. 梅森尼数是指能使2^n-1为素数的数n，求[1，21]范围内有多少个梅森尼数？ 7

. .专业知识分享. .

. WORD格式整理. .

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 Mod 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 Mod 10

d = i Mod 10

If (a + c) = b * d Then s = i

End If

Next i

Print s

. .专业知识分享. .

. WORD格式整理. .

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 Mod 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 Mod 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 Mod 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 Mod 10

If i Mod 3 = 0 And (a = 5 Or b = 5 Or c = 5) Then n = n + 1

Next i

Print n

. .专业知识分享. .

. WORD格式整理. .

25. 有一个三位数满足下列条件: (1)此三位数的三位数字各不相同; (2)此三位数等于它的各位数字的立方和。试求所有这样的三位数中最大的一个是多少？ 407

s = 0

For i = 100 To 999

a = i 100

b = i 10 Mod 10

c = i Mod 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 Mod 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 Mod 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 Mod 10

If (a ^ 3 + b ^ 3 + c ^ 3) = i Then s = s + i

Next i

Print s

29. 设某四位数的各位数字的平方和等于100，问共有多少个这种四位数？ 49

. .专业知识分享. .

. WORD格式整理. .

n = 0

For i = 1000 To 9999

a = i 1000

b = i 100 Mod 10

c = i 10 Mod 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 Mod 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

n = 0

. .专业知识分享. .

. WORD格式整理. .

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关系时，称为倒勾股数。求130B>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

Print n

. .专业知识分享. .

. WORD格式整理. .

37. 勾股弦数是满足公式： A^2+B^2=C^2 (假定A

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

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 k = 100 To 200

. .专业知识分享. .

. WORD格式整理. .

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

Sum = 0

. .专业知识分享. .

. WORD格式整理. .

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

48 已知24有8个正整数因子（即：1，2，3，4，6，8，12，24），而24正好能被其因子数8. .专业知识分享. .

. WORD格式整理. .

整除，求正整数[10，100]之间有多少个正整数能被其因子的个数整除。

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

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

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

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

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))的值。.

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

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!

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

s = 1

t = 1

For i = 1 To 50

t = t * i

s = s + 1 / t

Next i

. .专业知识分享. .

12

-2.4992

1.6251

0.691

2.7183

. WORD格式整理. .

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)

57 设S(n)=1-1/3+1/5-1/7+…1/(2n-1)，求S（100）的值，要求S(100)按四舍五入方式精. .专业知识分享. .

. WORD格式整理. .

确到小数点后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

b = 1

. .专业知识分享. .

. WORD格式整理. .

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 Mod 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

65 自然数对是指两个自然数的和与差都是平方数，如8和17的和8+17=25与其差17-8=9. .专业知识分享. .

. WORD格式整理. .

都是平方数，则称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 Mod 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）是同一个自然数对且假. .专业知识分享. .

. WORD格式整理. .

定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

ci(累加数列)

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)。

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,……,它可由下面公式表述：

. .专业知识分享. .

-750874

. WORD格式整理. .

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)值。 2

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)值。

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

. .专业知识分享. .

. WORD格式整理. .

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)值。

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

. .专业知识分享. .

. WORD格式整理. .

试求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。

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

. .专业知识分享. .

12367

. WORD格式整理. .

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 Mod 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 Mod 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 Mod 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

. .专业知识分享. .

. WORD格式整理. .

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 Mod 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 Mod 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内的整数解。试问这样的整数解有多少组？

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

. .专业知识分享. .

50

. WORD格式整理. .

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

. .专业知识分享. .

. WORD格式整理. .

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

. .专业知识分享. .

. WORD格式整理. .

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

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

Min = 716699

For a = 1 To Sqr(716699)

b = 716699 / a

If b = Int(b) And a + b < Min Then Min = a + b

1836

Next a

Print Min

. .专业知识分享. .