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之间有多少对双胞胎数。22n = 0For i = 31 To 601 - 2x = 0For j = 2 To Sqr(i)1If 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 ForNext jIf y = 0

5、Then n = n + 1End IfNext iPrint n5.两个素数之差为2，则称这两个素数为双胞胎数。求出200 ， 1000 之间的最大一对双胞胎数的和。1764For i = 200 To 1000 - 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(i + 2)If (i + 2) Mod j = 0 Then y = 1: Exit ForNext jIf y = 0 Then s = i + i + 2End IfNex

6、t i2Print 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 <> 0 And b <

7、;> 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 + 1End IfEnd IfEn

8、d IfNext iPrint 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 jIf x = 0 Theny = 0For j = 2 To Sqr(1234 - i)3If (12

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

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

11、Mod 10If a <> 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 Then4z = 0For j = 2 To Sqr(b)If b Mod j = 0 Then z = 1: Exit ForNext jIf z

12、= 0 Then s = s + iEnd IfEnd 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

13、 10b = i Mod 10If a <> 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 ForNex

14、t jIf z = 0 Then n = n + 1: If n = 10 Then s = iEnd IfEnd IfEnd IfNext iPrint s11.一个自然数是素数，且它的数字位置经过任意对换后仍为素数，则称为绝对素数。如13，试求所有两位绝对素数的和。429s = 05For 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

15、 Mod j = 0 Then y = 1: Exit ForNext 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

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

17、enb = i 100If b <> 1 Thenz = 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 n14. 若两个连续的自然数的乘积减1 后是素数，则称此两个连续自然数为友数对，该素数称为友素数。例如，由于 8*9-1=71 ， 因此， 8 与 9 是友素数对， 71 是友素数。求 100 ， 200 之间的第 10 个友素数对所对应的友素数的值（按由小到大排列）。17291For i = 100

18、 To 199a = 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 + 1If n = 10 Then s = aEnd IfNext iPrint s15. 求2 ， 400 中相差为10 的相邻素数对（两数中间没有其它素数）的对数。5n = 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

19、 = 0For j = 2 To Sqr(I + 10)If (I + 10) Mod j = 0 Then y = 1: Exit ForNext j7If 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 后是素数，则称此两个连续自然数为友数对，

20、该素数称为友素数。例如，由于 8*9-1=71 ， 因此， 8 与 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

21、是友素数 , 求 40,119 之间友素数对的数目。 30 n = 0For i = 40 To 119a = 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 n18.梅森尼数是指能使2n-1 为素数的数n，求 1 ， 21 范围内有多少个梅森尼数？78n = 0For i = 2 To 21x = 2 i - 1k = 0For j = 2 To Sqr(x)If x Mod j = 0 Then k

22、= 1Next jIf k = 0 Then n = n + 1Next iPrint n19. 300， 800 范围内同时满足以下两个条件的十进制数.其个位数字与十位数字之和除以10 所得的余数是百位数字；该数是素数；求满足上述条件的最大的三位十进制数。761For i = 300 To 800a = i 100b = i 10 Mod 10c = 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 iPr

23、int s2. 取数字20.求符合下列条件的四位完全平方数( 某个正整数 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 s92

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

25、少？1078289s = 0For i = 1000 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 10c = i Mod 10If (a 3 + b 3 + c 3) = i And a

26、<> b And b <> c And c <> a Then s = s + iNext iPrint 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 n1025. 有一个三位数满足下列条件 : (1) 此三位数的三位数字各不相同 ; (2) 此三位数等于它的

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

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

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

30、 Mod 10c = i 10 Mod 10d = i Mod 10If a 2 + b 2 + c 2 + d 2 = 100 Then n = n + 1Next iPrint n30.回文数是指正读和反读都一样的正整数。例如3773 是回文数。求出1000 ，9999 以内的所有回文数的个数。90n = 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 = i Then n = n + 1Next iPrint n3. 分

31、硬币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 25For k = 0 To 10If (i + 2 * j + 5 * k = 50)

32、 Then n = n + 1Next k, j, iPrint n33.50 元的整币兑换成5 元、 2 元和 1 元币值（要求三种币值均有）的方法有多少种。106n = 012For 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 先令，每个女人花了2 先令，每个小孩花了1 先令，共花去50 先令。如果要求男人、女人和小孩都

33、有人参与，试求有多少种方案分配男人、女人和小孩的人数。9n = 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/A2+1/B2=1/C2关系时，称为倒勾股数。求 130<A+B+C<150且 A>B>C的倒勾股数有多少组。1For c = 1 To 100For b = c + 1 To 100For a = b

34、+ 1 To 100i = a + b + cIf (i > 100 And i < 150 And (1 / (a * a) + 1 / (b * b) = 1 / (c * c) Then n = n + 1Print a, b, cEnd IfNext a, b, cPrint n36. 倒勾股数是满足公式： 1/A2+1/B2=1/C2 的一组正整数（ A，B，C），例如，（ 156，65，60）是倒勾股数，因为： 1/1562+1/652=1/602。假定 A>B>C，求 A，B， C之和小于100 的倒勾股数有多少组？2For c = 1 To 100For

35、 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 n1337. 勾股弦数是满足公式： A2+B2=C2 ( 假定 A<B<C)的一组正整数（ A，B， C），例如，（ 3，4， 5）是勾股弦数，因为：32+42=52 。求 A， B 均小于 25 且 A+B+C<=100的勾股弦数的个数。11n = 0For

36、c = 1 To 100For a = 1 To 24For b = a + 1 To 24s = a + b + cIf a 2 + b 2 = c 2 And s <= 100 Then n = n + 1Next b, a, cPrint n38. 倒勾股数是满足公式： 1/A2+1/B2=1/C2 的一组正整数（ A， B， C），例如，（156， 65，60）是倒勾股数，因为：1/1562+1/652=1/602。假定 A>B>C，求 A， B，C 均小于或等于100的倒勾股数有多少组？5For c = 1 To 100For b = c + 1 To 100For

37、 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. 勾股弦数是满足公式： A2+B2=C2 ( 假定 A<B<C)的一组正整数（ A，B， C），例如，（ 3，4， 5）是勾股弦数，因为：32+42=52 。求 A， B， C 均小于或等于100 的勾股弦数中A+B+C的最大值。240Max = 0For a = 1 To 100For b = a + 1 To 100For c

38、= b + 1 To 100s = a + b + cIf a 2 + b 2 = c 2 And s > Max Then Max = sNext c, b, aPrint Max40若某整数平方等于某两个正整数平方之和的正整数称为弦数。例如：由于32+42=52 ，则 5 为弦数，求 100 ， 200 之间弦数的个数。77n = 0For k = 100 To 20014For i = 1 To kFor j = i + 1 To kIf i 2 + j 2 = k 2 Then n = n + 1Next j, i, kPrint n41 若某正整数平方等于某两个正整数平方之和,

39、 称该正整数为弦数。 例如：由于 32+42=52 ，则 5 为弦数，求 131 ， 200 之间最小的弦数。135For k = 131 To 200For i = 1 To kFor j = i + 1 To kIf i 2 + j 2 = k 2 Then GoTo 10Next j, i, k10Print k5. 完数因子42 求在 10 ， 1000 之间的所有完数之和。各真因子之和（不包括自身）等于其本身的正整数称为完数。例如： 6=1+2+3， 6 是完数。524Sum = 0For m = 10 To 1000s = 0For i = 1 To m - 1If m Mod i

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

41、之和，这个数就称为“完数”。例如， 6 的真因子为1， 2， 3，而 6=1+2+3，因此， 6 是“完数”。求1,1000 之间的第二大完数。28Sum = 015For 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 mPrint Sum45一个数如果恰好等于它的所有真因子之和，这个数就称为“完数”。例如， 6 的真因子为1， 2， 3，而 6=1+2+3，因此， 6 是“完数”。

42、求1000 以内的所有完数之和。530Sum = 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 300k = 0For i = 1 To mIf m Mod i = 0 Then k = k + 1Next iIf k Mod 2 <> 0 Then A =

43、 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 mPrint A48已知 24 有 8 个正整数因子（即：1，2，3，4，6，8，12，24），而 24 正好能被其因子数816整除，求正整数10 ， 100 之间有

44、多少个正整数能被其因子的个数整除。12n = 0For m = 10 To 100k = 0For 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要求：按四舍五入的方式精确到小数点后第四位。-2.4992t = 1For i = 2 To 50t = t - 1 / iNext iPrint Round(t, 4)50当 m的值为 50 时，计算下列公式之值:

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

46、=1+1/1!+1/2!+1/3!+1/n!要求：按四舍五入的方式精确到小数点后第四位。2.7183s = 1t = 1For i = 1 To 50t = t * is = s + 1 / tNext i17Print Round(s, 4)53利用格里高利公式： /4=1-1/3+1/5-1/7+1/9-1/11+-1/99 ，求 的值。要求：按四舍五入的方式精确到小数点后第二位。3.12s = 0a = 1For i = 1 To 99 Step 2s = s + 1 / i * aa = -aNext iPrint Round(s * 4, 2)54求 1/(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 5 = 0 Or i Mod 9 = 0 Thens = s + 1 / iEnd