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

1、VB循环程序例题附答案1. 素数1. 100 ， 999 范围内同时满足以下两个条件的十进制数. 其个位数字与十位数字之和除以10所得的余数是百位数字；该数是素数 ；求有多少个这样的数？15n = 0For i = 100 To 999a = i 100b = i 10 Mod 10c = i Mod 10If (c + b) Mod 10 = a Thenx = 0For j = 2 To i - 1If i Mod j = 0 Then x = 1: Exit ForNext jIf x = 0 Then n = n + 1End IfNext iPrint n2. 300 ，800 范围

2、内同时满足以下两个条件的十进制数. 其个位数字与十位数字之和除以10所得的余数是百位数字：该数是素数；求满足上述条件的最大的三位十进制数。761For i = 300 To 800a = i 100b = i 10 Mod 10c = i Mod 10If (c + b) Mod 10 = a Thenx = 0For j = 2 To i - 1If i Mod j = 0 Then x = 1: Exit ForNext jIf x = 0 Then s = iEnd IfNext iPrint s3. 除 1 和它本身外，不能被其它整数整除的正整数称为素数(注： 1 不是素数， 2 是素

3、数)。 若两素数之差为 2 ，则称两素数为双胞胎数，问 31,601 之间有多少对双胞胎数。 22 n = 0For i = 31 To 601 - 2x = 0 For j = 2 To Sqr(i)If i Mod j = 0 Then x = 1: Exit ForNext jIf x = 0 Theny = 0For j = 2 To Sqr(i + 2)If (i + 2) Mod j = 0 Then y = 1: Exit ForNext jIf y = 0 Then n = n + 1End IfNext iPrint n4. 数学家哥德巴赫曾猜测：任何大于 6 的偶数都可以分

4、解成两个素数（素数对）的和。但有 些偶数可以分解成多种素数对的和，如： 10=3+7 ，10=5+5，即 10 可以分解成两种不同的素数对。试求6744可以分解成多少种不同的素数对（注： A+B与B+A认为是相同素数对）144n = 0For i = 2 To 6744 / 2x = 0For j = 2 To Sqr(i)If i Mod j = 0 Then x = 1: Exit ForNext jIf x = 0 Theny = 0For j = 2 To Sqr(6744 - i)If (6744 - i) Mod j = 0 Then y = 1: Exit For Next jI

5、f y = 0 Then n = n + 1End IfNext iPrint n5. 两个素数之差为 2，则称这两个素数为双胞胎数。求出200 ， 1 000 之间的最大一对双胞胎数的和。1764For i = 200 To 1000 - 2x = 0 For j = 2 To Sqr(i)If i Mod j = 0 Then x = 1: Exit For Next jIf x = 0 Theny = 0For j = 2 To Sqr(i + 2)If (i + 2) Mod j = 0 Then y = 1: Exit For Next jIf y = 0 Then s = i +

6、i + 2End IfNext iPrint s6. 一个素数（设为p）依次从最高位去掉一位，二位，三位，若得到的各数仍都是素数（注：除 1 和它本身外，不能被其它整数整除的正整数称为素数，1 不是素数， 2 是素数），且数 p 的各位数字均不为零，则称该数 p 为逆向超级素数。例如，617， 17， 7 都是素数，因此 617是逆向超级素数，尽管 503， 03， 3 都是素数，但它不是逆向超级素数，因为它包含有零。试求 100,999 之内的所有逆向超级素数的个数。39n = 0For i = 100 To 999a = i 10 Mod 10b = i Mod 10If a <&g

7、t; 0 And b <> 0 And b <> 1 Thenx = 0For j = 2 To Sqr（i）If i Mod j = 0 Then x = 1: Exit ForNext jIf x = 0 Theny = 0c = i Mod 100For j = 2 To Sqr（c）If c Mod j = 0 Then y = 1: Exit ForNext jIf y = 0 Thenz = 0For j = 2 To Sqr（b）If b Mod j = 0 Then z = 1: Exit ForNext jIf z = 0 Then n = n + 1

8、End IfEnd IfEnd IfNext i Print n7. 德国数学家哥德巴赫曾猜测：任何大于6 的偶数都可以分解成两个素数（素数对）的和。但有些偶数可以分解成多种素数对的和，如：10=3+7 ， 10=5+5，即 10 可以分解成两种不同的素数对。试求1234可以分解成多少种不同的素数对（注： A+B与B+A认为是相同素数对）25n = 0For i = 2 To 1234 / 2x = 0For j = 2 To Sqr(i)If i Mod j = 0 Then x = 1: Exit ForNext j If x = 0 Theny = 0For j = 2 To Sqr(1

9、234 - i)If (1234 - i) Mod j = 0 Then y = 1: Exit ForNext jIf y = 0 Then n = n + 1End IfNext iPrint n8. 求100 ， 900 之间相差为 12的素数对（注：要求素数对的两个素数均在该范围内）的个数。50 n = 0For i = 100 To 900 - 12x = 0 For j = 2 To Sqr(i)If i Mod j = 0 Then x = 1: Exit ForNext jIf x = 0 Theny = 0For j = 2 To Sqr(i + 12)If (i + 12)

10、 Mod j = 0 Then y = 1: Exit For Next jIf y = 0 Then n = n + 1End IfNext iPrint n9. 一个素数（设为p）依次从最高位去掉一位，二位，三位，若得到的各数仍都是素 数（注：1不是素数），且数p的各位数字均不为零， 则称该数p为逆向超级素数。例如，617, 17, 7都是素数，因此 617是逆向超级素数，但尽管 503， 03， 3都是素数，但它不是逆向超级素数， s = 0100,99921645For i = 100 To 999a = i 10 Mod 10b = i Mod 10If a <> 0 A

11、nd b <> 0 And b <> 1 Thenx = 0For j = 2 To Sqr(i)If i Mod j = 0 Then x = 1: Exit ForNext jIf x = 0 Theny = 0c = i Mod 100For j = 2 To Sqr(c)If c Mod j = 0 Then y = 1: Exit ForNext jIf y = 0 Thenz = 0For j = 2 To Sqr(b)If b Mod j = 0 Then z = 1: Exit ForNext jIf z = 0 Then s = s + i End I

12、fEnd IfEnd IfNext iPrint s10. 一个素数(设为p)依次从最高位去掉一位，二位，三位，若得到的各数仍都是素数(注：1不是素数，2是素数)，且数p的各位数字均不为零，则称该数p为逆向超级素数。例如， 617， 17， 7 都是素数，因此 617是逆向超级素数，但尽管 503， 03， 3都是素数，但它不是 逆向超级素数， 因为它包含有零。试求 100,999 之内的所有逆向超级素数从大到小数的第 10 个 素数是多少？797n = 0For i = 999 To 100 Step -1a = i 10 Mod 10b = i Mod 10If a <> 0

13、And b <> 0 And b <> 1 Thenx = 0For j = 2 To Sqr(i)If i Mod j = 0 Then x = 1: Exit ForNext jIf x = 0 Theny = 0c = i Mod 100For j = 2 To Sqr(c)If c Mod j = 0 Then y = 1: Exit ForNext jIf y = 0 Thenz = 0For j = 2 To Sqr(b)If b Mod j = 0 Then z = 1: Exit ForNext jIf z = 0 Then n = n + 1: If

14、n = 10 Then s = iEnd IfEnd IfEnd IfNext i Print s11. 一个自然数是素数，且它的数字位置经过任意对换后仍为素数，则称为绝对素数。如13，429试求所有两位绝对素数的和。For i = 10 To 99a = i 10b = i Mod 10x = 0For j = 2 To Sqr(i)If i Mod j = 0 Then x = 1: Exit ForNext jIf x = 0 Theny = 0c = b * 10 + aFor j = 2 To Sqr(c)If c Mod j = 0 Then y = 1: Exit ForNext

15、 jIf y = 0 Then s = s + iEnd IfNext iPrint s12. 在 200 ，900 范围 内同时满足以下两个条件的十进制数 : 其个位数字与十位数字之和除 以10所得的余数是百位数字；该数是素数；问有多少个这样的数？14n = 0For i = 200 To 900a = i 100b = i 10 Mod 10c = i Mod 10If (c + b) Mod 10 = a Thenx = 0For j = 2 To i - 1If i Mod j = 0 Then x = 1: Exit ForNext jIf x = 0 Then n = n + 1E

16、nd IfNext iPrint n，所得的各数仍然是素数，称为超级素1413. 一个素数，依次从个位开始去掉一位，二位 数。求 100,999 之内超级素数的个数。n = 0For i = 100 To 999x = 0For j = 2 To Sqr(i)If i Mod j = 0 Then x = 1: Exit For Next jIf x = 0 Thena = i 10y = 0For j = 2 To Sqr(a)If a Mod j = 0 Then y = 1: Exit ForNext jIf y = 0 Thenb = i 100If b <> 1 Then

17、z = 0For j = 2 To Sqr(b)If b Mod j = 0 Then z = 1: Exit ForNext jIf z = 0 Then n = n + 1End IfEnd IfEnd IfNext iPrint n该素数称100 ，200 之间1729114. 若两个连续的自然数的乘积减 1 后是素数，则称此两个连续自然数为友数对， 为友素数。例如，由于 8*9-1=71 ， 因此， 8与 9是友素数对， 71是友素数。求 的第 10 个友素数对所对应的友素数的值(按由小到大排列) 。For i = 100 To 199a = i * (i + 1) - 1x = 0F

18、or j = 2 To Sqr(a)If a Mod j = 0 Then x = 1: Exit ForNext jIf x = 0 Thenn = n + 1If n = 10 Then s = aEnd IfNext iPrint s15. 求2 ，400 中相差为 10的相邻素数对(两数中间没有其它素数)的对数。n = 0For I = 2 To 400 - 10x = 0For j = 2 To Sqr(I)If I Mod j = 0 Then x = 1: Exit ForNext jIf x = 0 Theny = 0For j = 2 To Sqr(I + 10)If (I

19、+ 10) Mod j = 0 Then y = 1: Exit ForNext jIf y = 0 ThenFor k = I + 1 To I + 9z = 0For k1 = 2 To Sqr(k)If k Mod k1 = 0 Then z = 1: Exit ForNext k1If z = 0 Then Exit ForNext kIf k = I + 10 Then n = n + 1End IfEnd IfNext IPrint n16. 若两个连续的自然数的乘积减 1 后是素数，则称此两个连续自然数为友数对，该素数称为 友素数。例如，由于 8*9-1=71 ， 因此， 8与

20、9是友数对， 71是友素数。求 50 ，150 之间的友 数对的数目。 38n = 0For i = 50 To 150a = i * (i + 1) - 1x = 0For j = 2 To Sqr(a)If a Mod j = 0 Then x = 1: Exit ForNext jIf x = 0 Thenn = n + 1End IfNext iPrint n17. 若两个连续自然数乘积减 1 后是素数 , 则称此两个自然连续数为友数对 , 该素数称为友素 数,例:2*3-1=5, 因此 2与 3是友数对 ,5 是友素数 ,求40,119 之间友素数对的数目。 30 n = 0For

21、i = 40 To 119 a = i * (i + 1) - 1 x = 0For j = 2 To Sqr(a)If a Mod j = 0 Then x = 1: Exit ForNext jIf x = 0 Thenn = n + 1End If Next i Print n18. 梅森尼数是指能使 2An-1为素数的数n,求1 , 21范围内有多少个梅森尼数？7 n = 0For i = 2 To 21x = 2 A i - 1k = 0For j = 2 To Sqr(x)If x Mod j = 0 Then k = 1Next jIf k = 0 Then n = n + 1N

22、ext iPrint n19. 300 ，800 范围内同时满足以下两个条件的十进制数. 其个位数字与十位数字之和除以10所得的余数是百位数字：该数是素数；求满足上述条件的最大的三位十进制数。761For i = 300 To 800a = i 100b = i 10 Mod 10 c = i Mod 10If (c + b) Mod 10 = a Thenk = 0For j = 2 To Sqr(i)If i Mod j = 0 Then k = 1Next jIf k = 0 Then s = iEnd IfNext iPrint s2. 取数字20. 求符合下列条件的四位完全平方数(某

23、个正整数 A是另一个正整数 B的平方，则称A为完全平方数 ) ，它的千位数字与十位数字之和等于百位数字与个位数字之积，例如，3136=562, 且3+3=1*6 故 3136 是所求的四位完全平方数 . 求其中最大的一个数。7921For i = 1000 To 9999x = Sqr(i)If x = Int(x) Thena = i 1000b = i 100 Mod 10c = i 10 Mod 10d = i Mod 10If (a + c) = b * d Then s = iEnd IfNext iPrint s21. 设某四位数的千位数字平方与十位数字的平方之和等于百位数字的立方

24、与个位数字的立方之97993和，例如，对于四位数：3201, 3A2+0A2=2A3+1A3，试问所有这样的四位数之和是多少？s = 0For i = 1000 To 9999a = i 1000b = i 100 Mod 10c = i 10 Mod 10d = i Mod 10If (a A 2 + c A 2) = b A 3 + d A 3 Then s = s + iNext iPrint s22. 设某四位数的千位数字与十位数字的和等于百位数字与个位数字的积，例如，对于四位 数： 9512， 9+1=5*2，试问所有这样的四位数之和是多少？1078289s = 0For i = 1

25、000 To 9999a = i 1000b = i 100 Mod 10c = i 10 Mod 10d = i Mod 10If (a + c) = b * d Then s = s + iNext iPrint s23. 有一个三位数满足下列条件 : (1) 此三位数的三位数字各不相同 ; (2) 此三位数等于它的各 位数字的立方和。试求所有这样的三位数之和。1301s = 0For i = 100 To 999a = i 100b = i 10 Mod 10 c = i Mod 10If (a A 3 + b A 3 + c A 3) = i And a <> b And

26、b <> c And c <> a Then s = s + i Next i Print s24. 求1 ， 999 之间能被 3整除，且至少有一位数字是 5 的所有正整数的个数。 91n = 0For i = 1 To 999a = i 100b = i 10 Mod 10c = i Mod 10If i Mod 3 = 0 And (a = 5 Or b = 5 Or c = 5) Then n = n + 1Next iPrint n 第 10 页此三位数等于它的407此三位数等于它的494111例如：13014925. 有一个三位数满足下列条件 : (1) 此

27、三位数的三位数字各不相同 ; (2) 各位数字的立方和。试求所有这样的三位数中最大的一个是多少？ s = 0For i = 100 To 999a = i 100b = i 10 Mod 10c = i Mod 10If (a A 3 + b A 3 + c A 3) = i And a <> b And b <> c And c <> a The n s = iNext iPrint s26. 有一个三位数满足下列条件 : (1) 此三位数的三位数字各不相同 ; (2) 各位数字的立方和。试求这种三位数共有多少个？n = 0For i = 100 To 9

28、99a = i 100b = i 10 Mod 10c = i Mod 10If (a A 3 + b A 3 + c A 3) = i And a <> b And b <> c And c <> a Then n = n + 1 Next iPrint n27. 求五位数各位数字的平方和为100 的最大的五位数。For i = 10000 To 99999a = i 10000b = i 1000 Mod 10c = i 100 Mod 10d = i 10 Mod 10e = i Mod 10If a A 2 + b A 2 + c A 2 + d A

29、 2 + e A 2 = 100 Then s = iNext iPrint s28. 所谓“水仙花数”是指一个三位数，其各位数字的三次方之和等于该数本身， 153=1人3+3人3+5人3，故153是水仙花数，求100, 999之间所有水仙花数之和。s = 0For i = 100 To 999a = i 100b = i 10 Mod 10c = i Mod 10If (a A 3 + b A 3 + c A 3) = i Then s = s + iNext iPrint s29. 设某四位数的各位数字的平方和等于 100,问共有多少个这种四位数？n = 0 For i = 1000 To

30、 9999a = i 1000b = i 100 Mod 10c = i 10 Mod 10d = i Mod 10If a A 2 + b A 2 + c A 2 + d A 2 = 100 The n n = n + 1Next iPrint n3773 是回文数。求出 1000 ，9999 以内的9030. 回文数是指正读和反读都一样的正整数。例如 所有回文数的个数。n = 0For i = 1000 To 9999a = i 1000b = i 100 Mod 10c = i 10 Mod 10d = i Mod 10If a + b * 10 + c * 100 + d * 1000

31、 = i Then n = n + 1Next iPrint n3. 分硬币31. 把一张一元钞票 , 换成一分、二分和五分硬币 , 每种至少 8枚, 问有多少种方案 ? 80n = 0For i = 8 To 100For j = 8 To 50For k = 8 To 20If (i + 2 * j + 5 * k = 100) Then n = n + 1Next k, j, iPrint n32. 50 元的整币兑换成 5 元、 2 元和 1 元币值（三种币值均有、缺少一种或两种都计算在内） 的方法有多少种。 146n = 0For i = 0 To 50For j = 0 To 25

32、For k = 0 To 10If (i + 2 * j + 5 * k = 50) Then n = n + 1Next k, j, iPrint n33. 50 元的整币兑换成 5 元、2 元和 1 元币值（要求三种币值均有）的方法有多少种。106n = 0For i = 1 To 50For j = 1 To 25For k = 1 To 10If (i + 2 * j + 5 * k = 50) Then n = n + 1Next k, j, iPrint n34. 马克思曾经做过这样一道趣味数学题：有 30 个人在一家小饭店里用餐，其中有男人、女 人和小孩，每个男人花了 3 先令，

33、每个女人花了 2 先令，每个小孩花了 1 先令，共花去 50 先令。 如果要求男人、女人和小孩都有人参与，试求有多少种方案分配男人、女人和小孩的人数。 9 n = 0For i = 1 To 50For j = 1 To 25k = 30 - i - jIf (i + 2 * j + 3 * k = 50) And k > 0 Then n = n + 1Next j, iPrint n4. 勾股、弦数35. A,B,C是三个小于或等于 100正整数，当满足1/AA2+1/BA2=1/CA2 关系时，称为倒勾股数。 求130<A+B+C<150且A>B>C的倒勾股

34、数有多少组。1For c = 1 To 100For b = c + 1 To 100For a = b + 1 To 100i = a + b + cIf (i > 100 And i < 150 And (1 / (a * a) + 1 / (b * b) = 1 / (c * c) Thenn = n + 1Print a, b, cEnd IfNext a, b, cPrint n36. 倒勾股数是满足公式：13人2+1侶人2=1/。人2 的一组正整数(A, B, C)，例如，(156，65,60)是倒勾股数，因为：1/156人2+1/65人2=1/60人2 。假定A>

35、;B>C求A，B, C之和小于100的倒勾 股数有多少组？2For c = 1 To 100For b = c + 1 To 100For a = b + 1 To 100i = a + b + cIf (i < 100 And (1 / (a * a) + 1 / (b * b) = 1 / (c * c) Thenn = n + 1Print a, b, cEnd IfNext a, b, cPrint n37. 勾股弦数是满足公式：AA2+B2=CA2 (假定A<B<C的一组正整数(A, B, C),例如，(3,4, 5)是勾股弦数，因为：3a2+4a2=5a2。

36、求A, B均小于25且A+B+C<=100的勾股弦数的个数。11n = 0For c = 1 To 100For a = 1 To 24For b = a + 1 To 24s = a + b + cIf a a 2 + b a 2 = c a 2 And s <= 100 Then n = n + 1Next b, a, cPrint n38. 倒勾股数是满足公式：1/AA2+1/BA2=1/CA2 的一组正整数(A, B, C),例如，(156, 65,60)是倒勾股数，因为： 1/156人2+1/65人2=1/60人2 。假定 A>B>C求A, B, C均小于或等

37、于 100 的倒勾股数有多少组？5For c = 1 To 100For b = c + 1 To 100For a = b + 1 To 100i = a + b + cIf 1 / (a * a) + 1 / (b * b) = 1 / (c * c) Thenn = n + 1Print a, b, cEnd IfNext a, b, cPrint n39. 勾股弦数是满足公式：AA2+BA2=CA2 （假定A<B<C）的一组正整数（A, B, C）,例如，（3,4, 5）是勾股弦数，因为： 3人2+4人2=5人2。求A, B, C均小于或等于100的勾股弦数中 A+B+C的

38、 最大值。240Max = 0For a = 1 To 100For b = a + 1 To 100For c = b + 1 To 100 s = a + b + cIf a A 2 + b A 2 = c A 2 And s > Max Then Max = sNext c, b, aPrint Max40 若某整数平方等于某两个正整数平方之和的正整数称为弦数。例如：由于3A2+4A2=5A2 ，则5为弦数，求 100，200之间弦数的个数。77n = 0For k = 100 To 200For i = 1 To kFor j = i + 1 To kIf i A 2 + j A

39、 2 = k A 2 The n n = n + 1Next j, i, kPrint n41 若某正整数平方等于某两个正整数平方之和 则 5 为弦数，求 131 ， 200 之间最小的弦数。 For k = 131 To 200For i = 1 To k, 称该正整数为弦数。 例如：由于 3A2+4A2=5A2 ，135For j = i + 1 To kIf i A 2 + j A 2 = k A 2 Then GoTo 10Next j, i, k10Print k5. 完数因子42 求在10 ， 1 000 之间的所有完数之和。各真因子之和（不包括自身）等于其本身的正整 数称为完数。

40、例如： 6=1+2+3，6 是完数。524Sum = 0For m = 10 To 1000 s = 0For i = 1 To m - 1If m Mod i = 0 Then s = s + iNext iIf s = m Then Sum = Sum + mNext mPrint Sum43 一个数如果恰好等于它的所有真因子之和，这个数就称为“完数” 。例如 , 6 的真因子为 1，2，3，而 6=1+2+3，因此， 6 是“完数”。求1 ， 1 000 之间的最大完数。496Sum = 0For m = 1 To 1000s = 0For i = 1 To m - 1If m Mod

41、i = 0 Then s = s + iNext iIf s = m Then Sum = mNext mPrint Sum44 一个数如果恰好等于它的所有真因子之和， 1，2，3，而 6=1+2+3，因此， 6 是“完数”。求 Sum = 0这个数就称为“完数”。 例如， 6 的真因子为1,1000 之间的第二大完数。 28For m = 1 To 1000s = 0For i = 1 To m - 1If m Mod i = 0 Then s = s + iNext iIf s = m Then n = n + 1If n = 2 Then Sum = m: Exit ForNext mP

42、rint Sum45 一个数如果恰好等于它的所有真因子之和， 这个数就称为“完数”。 例如，6 的真因子为 1， 2， 3，而 6=1+2+3，因此， 6 是“完数”。求 1000 以内的所有完数之和。 530 Sum = 0For m = 1 To 1000s = 0For i = 1 To m - 1If m Mod i = 0 Then s = s + iNext iIf s = m Then Sum = Sum + mNext mPrint Sum46 求200,300 之间有奇数个不同因子的最大的整数 （在计算因子个数时 , 包括该数本身 ）。 289For m = 200 To 3

43、00k = 0For i = 1 To mIf m Mod i = 0 Then k = k + 1Next iIf k Mod 2 <> 0 Then A = mNext mPrint A47 求200,300 之间第二大有奇数个不同因子的整数（在计算因子个数时 , 包括该数本身 ） 。256n = 0For m = 200 To 300k = 0For i = 1 To mIf m Mod i = 0 Then k = k + 1Next iIf k Mod 2 <> 0 Then n = n + 1If n = 2 Then A = m: Exit ForNext

44、 mPrint A48 已知 24 有 8 个正整数因子（即： 1，2，3，4，6，8，12，24），而 24 正好能被其因子数 8整除，求正整数 10 ， 100之间有多少个正整数能被其因子的个数整除。 n = 0For m = 10 To 100k = 0 For i = 1 To mIf m Mod i = 0 Then k = k + 1Next iIf m Mod k = 0 Then n = n + 1Next mPrint n6. ( 数列) 四舍五入49 当m的值为50时，计算下列公式的值：T=1-1/2-1/3-1/4-1/m要求：按四舍五入的方式精确到小数点后第四位。t =

45、 1For i = 2 To 50t = t - 1 / iNext iPrint Round(t, 4)50 当m的值为50时，计算下列公式之值：t=1+ 1/2A2+1/3A2+1/mA2(按四舍五入的方式精确到小数点后第四位 ) 。t = 0For i = 1 To 50t = t + 1 / i A 2Next iPrint Round(t, 4)51 当 n=100 时，计算 S=(1-1/2)+(1/3-1/4)+ +(1/(2n-1)-1/(2n) 的值。要求：按四舍五入的方式精确到小数点后第三位。s = 0For i = 1 To 100s = s + (1 / (2 * i

46、- 1) - 1 / (2 * i)Next iPrint Round(s, 3)52 当n的值为25时，计算下列公式的值：s=1 + 1/1!+1/2!+1/3!+ +1/n!要求：按四舍五入的方式精确到小数点后第四位。s = 1t = 1For i = 1 To 50t = t * is = s + 1 / t12-2.49921.62510.6912.7183Next iPrint Round(s, 4)53 利用格里高利公式：a /4=1-1/3+1/5-1/7+1/9-1/11+-1/99，求a的值。要求：按四舍五入的方式精确到小数点后第二位。3.12s = 0a = 1For i

47、= 1 To 99 Step 2s = s + 1 / i * aa = -aNext iPrint Round(s * 4, 2)54 求 1心*2)+1/(2*3)+1/(3*4)+.+1/(N*(N+1)的值,N=20,要求：按四舍五入的方式精确到小数点后第二位。0.95s = 0For i = 1 To 20s = s + 1 / (i * (i + 1)Next iPrint Round(s, 2)55 求 500 以内(含 500)能被 5 或 9 整除的所有自然数的倒数之和。 按四舍五入的方式精确到小数点后第二位。1.48s = 0For i = 1 To 500If i Mod

48、 5 = 0 Or i Mod 9 = 0 Thens = s + 1 / iEnd IfNext iPrint Round(s, 2)56 求 S=1/2+2/3+3/5+5/8+ 的前 30 项的和(注： 该级数从第二项开始， 其分子是前一项 的分母，其分母是前一项的分子与分母的和) 。要求：按四舍五入的方式精确到小数点后第二位。18.46 s = 0 a = 1 b = 2For i = 1 To 30s = s + a / bt = aa = b b = t + bNext iPrint Round(s, 2)57 设S(n)=1-1/3+1/5-1/7+1/(2n -1)，求S (1

49、00)的值，要求 S(100)按四舍五入方式精0.7829确到小数点后 4位。 s = 0 a = 1For i = 1 To 100s = s + 1 / (2 * i - 1) * a a = -aNext iPrint Round(s, 4)58 当 n=50 时，求下列级数和：S=1/ (1*2 ) +1/ (2*3) + +1/(n*(n+1)要求：按四舍五入的方式精确到小数点后第四位。0.9804s = 0For i = 1 To 50s = s + 1 / (i * (i + 1)Next iPrint Round(s, 4)59 计算y=1+2/3+3/5+4/7+n/(2*n

50、-1)的值，n=50,要求：按四舍五入的方式精确到小数点后第二位。26.47s = 0For i = 1 To 50s = s + i / (2 * i - 1)Next iPrint Round(s, 2)60 计算Y=X/1!-XT/3!+XA5/5!-XA7/7!+前 20项的值(已知：X=2)。要求：按四舍五入的方式精确到小数点后第二位。0.91s = 0x = 2 a = 1 t = 1For i = 1 To 20 * 2 + 1t = t * iIf i Mod 2 <> 0 Then s = s + x A i / t * a a = -aEnd If Next i

51、Print Round(s, 2)61 求数列：2/1 , 3/2 , 5/3 , 8/5 , 13/8 , 21/13 , 前50项之和(注：此数列从第二项开始，其分子是前一项的分子与分母之和，其分母是前一项的分子 )。(按四舍五入的方式精确到小 数点后第二位)81.2s = 0a = 2 b = 1For i = 1 To 50 s = s + a / b t = a a = a + b b = tNext iPrint Round(s, 2)62 已知：A仁 1, A2=1/(1+A1), A3=1/(1+A2), A4=1心+A3),求 A50.(按四舍五入的方式精确到小数点后第三位)

52、 。 0.618a = 1For i = 2 To 50a = 1 / (1 + a)Next iPrint Round(a, 3)63 已知：Sn=2/1+3/2+4/3+(n+1)/n, 求 Sn不超过50的最大值(按四舍五入的方式精确到小数点后第三位) 。49.395s = 0i = 1Do While s < 50t = (i + 1) / is = s + ti = i + 1LoopPrint Round(s - t, 3)7. 平方数64 若一个四位正整数是另一个正整数的平方，且各位数字的和是一个平方数，则称该四位正整数是“四位双平方数”。例如：由于7396=86人2，且7

53、+3+9+6=25=5人2，则称7396是“四位双平方数”。求所有“四位双平方数”之和。81977s = 0For i = 1000 To 9999a = i 1000b = i 100 Mod 10c = i 10 Mod 10d = i Mod 10x = Sqr(i)y = Sqr(a + b + c + d)If x = Int(x) And y = Int(y) Then s = s + iNext iPrint s65自然数对是指两个自然数的和与差都是平方数，如8和17的和8+17=25与其差 17-8=9都是平方数，则称 8和17是自然数对(8, 17)。假定(A, B)与(B,

54、 A)是同一个自然数对且 假定A>=B,求所有小于或等于 100 (即：A<=100,B<=100, A<>B,A和B均不为0)的自然数对中 B 之和。 1160s = 0For a = 1 To 100For b = 1 To a - 1x = Sqr(a + b) y = Sqr(a - b)If x = Int(x) And y = Int(y) Then s = s + bNext b, aPrint s66 若一个四位正整数是另一个正整数的平方，且各位数字的和是一个平方数，则称该四位正整数是“四位双平方数”。例如： 由于7396=86人2，且7+3+9+6=25=5人2，则称7396是“四位双 平方数”。若把所有“四位双平方数”按升序排列，求前10 个“四位双平方数”的和。 29690s = 0n = 0For i = 1000 To 9999a = i 1000b = i 100 Mod 10c = i 10 Mod