VB循環(huán)程序例題100道附答案.doc

1、VB循環(huán)程序例題附答案1. 素?cái)?shù)1.100 ， 999 范圍內(nèi)同時(shí)滿足以下兩個(gè)條件的十進(jìn)制數(shù).其個(gè)位數(shù)字與十位數(shù)字之和除以 10 所得的余數(shù)是百位數(shù)字；該數(shù)是素?cái)?shù);求有多少個(gè)這樣的數(shù)？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 范圍內(nèi)

2、同時(shí)滿足以下兩個(gè)條件的十進(jìn)制數(shù).其個(gè)位數(shù)字與十位數(shù)字之和除以 10 所得的余數(shù)是百位數(shù)字；該數(shù)是素?cái)?shù)；求滿足上述條件的最大的三位十進(jìn)制數(shù)。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 和它本身外，不能被其它整數(shù)整除的正整數(shù)稱為素?cái)?shù)（注：1 不是素?cái)?shù)， 2 是素?cái)?shù)）

3、。若兩素?cái)?shù)之差為2 ，則稱兩素?cái)?shù)為雙胞胎數(shù)，問31,601之間有多少對(duì)雙胞胎數(shù)。22n = 0For i = 31 To 601 - 2x = 0For j = 2 To Sqr(i)第 1 頁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. 數(shù)學(xué)家哥德巴赫曾猜測(cè)：任何大于6 的偶數(shù)都可以分解成兩個(gè)素

4、數(shù)（素?cái)?shù)對(duì)）的和。但有些偶數(shù)可以分解成多種素?cái)?shù)對(duì)的和，如： 10=3+7 ，10=5+5，即 10 可以分解成兩種不同的素?cái)?shù)對(duì)。試求 6744 可以分解成多少種不同的素?cái)?shù)對(duì)（注：A+B 與 B+A認(rèn)為是相同素?cái)?shù)對(duì)）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

5、= 0 Then n = n + 1End IfNext iPrint n5.兩個(gè)素?cái)?shù)之差為2，則稱這兩個(gè)素?cái)?shù)為雙胞胎數(shù)。求出200 ， 1000 之間的最大一對(duì)雙胞胎數(shù)的和。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 I

6、fNext i第 2 頁P(yáng)rint s6. 一個(gè)素?cái)?shù)（設(shè)為 p）依次從最高位去掉一位，二位，三位， ，若得到的各數(shù)仍都是素?cái)?shù) ( 注：除 1 和它本身外，不能被其它整數(shù)整除的正整數(shù)稱為素?cái)?shù)，1 不是素?cái)?shù)， 2 是素?cái)?shù)），且數(shù) p 的各位數(shù)字均不為零，則稱該數(shù)p 為逆向超級(jí)素?cái)?shù)。例如，617， 17，7 都是素?cái)?shù)，因此617是逆向超級(jí)素?cái)?shù)，盡管503， 03， 3 都是素?cái)?shù)，但它不是逆向超級(jí)素?cái)?shù)，因?yàn)樗辛?。試?00,999之內(nèi)的所有逆向超級(jí)素?cái)?shù)的個(gè)數(shù)。39n = 0For i = 100 To 999a = i 10 Mod 10b = i Mod 10If a 0 And b 0 An

7、d 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 IfEnd IfNext iPrint n7.

8、 德國(guó)數(shù)學(xué)家哥德巴赫曾猜測(cè)：任何大于6 的偶數(shù)都可以分解成兩個(gè)素?cái)?shù)（素?cái)?shù)對(duì)）的和。但有些偶數(shù)可以分解成多種素?cái)?shù)對(duì)的和，如：10=3+7 ，10=5+5，即 10 可以分解成兩種不同的素?cái)?shù)對(duì)。試求1234 可以分解成多少種不同的素?cái)?shù)對(duì)（注：A+B 與 B+A認(rèn)為是相同素?cái)?shù)對(duì)）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)第 3 頁If (1234 - i) Mod j =

9、 0 Then y = 1: Exit ForNext jIf y = 0 Then n = n + 1End IfNext iPrint n8. 求 100 ， 900 之間相差為 12 的素?cái)?shù)對(duì)（注：要求素?cái)?shù)對(duì)的兩個(gè)素?cái)?shù)均在該范圍內(nèi)）的個(gè)數(shù)。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 Then y = 1: Exit F

10、orNext jIf y = 0 Then n = n + 1End IfNext iPrint n9. 一個(gè)素?cái)?shù)（設(shè)為 p）依次從最高位去掉一位，二位，三位， ，若得到的各數(shù)仍都是素?cái)?shù) ( 注：1 不是素?cái)?shù) ) ，且數(shù) p 的各位數(shù)字均不為零， 則稱該數(shù) p 為逆向超級(jí)素?cái)?shù)。 例如， 617，17， 7 都是素?cái)?shù)，因此 617 是逆向超級(jí)素?cái)?shù)，但盡管 503， 03， 3 都是素?cái)?shù)，但它不是逆向超級(jí)素?cái)?shù)，因?yàn)樗辛恪Ｔ嚽?00,999之內(nèi)的所有逆向超級(jí)素?cái)?shù)的和。21645s = 0For i = 100 To 999a = i 10 Mod 10b = i Mod 10If a 0 An

11、d 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 Then第 4 頁z = 0For j = 2 To Sqr(b)If b Mod j = 0 Then z = 1: Exit ForNext jIf z = 0 Then s = s + iEnd IfEnd IfEnd IfNe

12、xt iPrint s10. 一個(gè)素?cái)?shù)（設(shè)為 p）依次從最高位去掉一位，二位，三位， ，若得到的各數(shù)仍都是素?cái)?shù) ( 注： 1 不是素?cái)?shù)， 2 是素?cái)?shù) ) ，且數(shù) p 的各位數(shù)字均不為零，則稱該數(shù)p 為逆向超級(jí)素?cái)?shù)。例如， 617， 17， 7 都是素?cái)?shù)，因此617 是逆向超級(jí)素?cái)?shù)，但盡管503， 03， 3 都是素?cái)?shù)，但它不是逆向超級(jí)素?cái)?shù)，因?yàn)樗辛?。試?00,999之內(nèi)的所有逆向超級(jí)素?cái)?shù)從大到小數(shù)的第10 個(gè)素?cái)?shù)是多少？797n = 0For i = 999 To 100 Step -1a = i 10 Mod 10b = i Mod 10If a 0 And b 0 And b 1

13、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 n = 10 Then s = iEnd IfEnd IfEnd I

14、fNext iPrint s11.一個(gè)自然數(shù)是素?cái)?shù)，且它的數(shù)字位置經(jīng)過任意對(duì)換后仍為素?cái)?shù)，則稱為絕對(duì)素?cái)?shù)。如13，試求所有兩位絕對(duì)素?cái)?shù)的和。429s = 0第 5 頁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 jIf y = 0 Then s = s + iE

15、nd IfNext iPrint s12.在 200 ，900 范圍內(nèi)同時(shí)滿足以下兩個(gè)條件的十進(jìn)制數(shù): 其個(gè)位數(shù)字與十位數(shù)字之和除以 10 所得的余數(shù)是百位數(shù)字;該數(shù)是素?cái)?shù)；問有多少個(gè)這樣的數(shù)？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 + 1End IfNext iPrint n13.一個(gè)素?cái)?shù)，依次

16、從個(gè)位開始去掉一位，二位.，所得的各數(shù)仍然是素?cái)?shù)，稱為超級(jí)素?cái)?shù)。求 100,999之內(nèi)超級(jí)素?cái)?shù)的個(gè)數(shù)。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 10第 6 頁y = 0For j = 2 To Sqr(a)If a Mod j = 0 Then y = 1: Exit ForNext jIf y = 0 Thenb = i 100If b 1 Thenz = 0For j = 2 To Sqr(b)If b Mod j

17、= 0 Then z = 1: Exit ForNext jIf z = 0 Then n = n + 1End IfEnd IfEnd IfNext iPrint n14. 若兩個(gè)連續(xù)的自然數(shù)的乘積減1 后是素?cái)?shù)，則稱此兩個(gè)連續(xù)自然數(shù)為友數(shù)對(duì)，該素?cái)?shù)稱為友素?cái)?shù)。例如，由于 8*9-1=71 ， 因此， 8 與 9 是友素?cái)?shù)對(duì)， 71 是友素?cái)?shù)。求 100 ， 200 之間的第 10 個(gè)友素?cái)?shù)對(duì)所對(duì)應(yīng)的友素?cái)?shù)的值（按由小到大排列）。17291For i = 100 To 199a = i * (i + 1) - 1x = 0For j = 2 To Sqr(a)If a Mod j = 0 T

18、hen x = 1: Exit ForNext jIf x = 0 Thenn = n + 1If n = 10 Then s = aEnd IfNext iPrint s15. 求2 ， 400 中相差為10 的相鄰素?cái)?shù)對(duì)（兩數(shù)中間沒有其它素?cái)?shù)）的對(duì)數(shù)。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 = 0For j = 2 To Sqr(I + 10)If (I + 10) Mod j = 0 Then y = 1: Exit

19、 ForNext j第 7 頁If 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. 若兩個(gè)連續(xù)的自然數(shù)的乘積減1 后是素?cái)?shù)，則稱此兩個(gè)連續(xù)自然數(shù)為友數(shù)對(duì)，該素?cái)?shù)稱為友素?cái)?shù)。例如，由于 8*9-1=71 ， 因此， 8 與 9 是友數(shù)對(duì)， 71 是友素?cái)?shù)。求 50 ， 150 之

20、間的友數(shù)對(duì)的數(shù)目。 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.若兩個(gè)連續(xù)自然數(shù)乘積減1 后是素?cái)?shù) , 則稱此兩個(gè)自然連續(xù)數(shù)為友數(shù)對(duì), 該素?cái)?shù)稱為友素?cái)?shù) , 例 :2*3-1=5, 因此 2與 3 是友數(shù)對(duì) ,5 是友素?cái)?shù) , 求 40,119 之間友素?cái)?shù)對(duì)的數(shù)目。30n = 0For i = 40 To 119a = i * (i +

21、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.梅森尼數(shù)是指能使2n-1為素?cái)?shù)的數(shù) n，求 1 ， 21 范圍內(nèi)有多少個(gè)梅森尼數(shù)？7第 8 頁n = 0For i = 2 To 21x = 2 i - 1k = 0For j = 2 To Sqr(x)If x Mod j = 0 Then k = 1Next jIf k = 0 Then n = n + 1Next iPrint n19. 300， 800 范圍內(nèi)

22、同時(shí)滿足以下兩個(gè)條件的十進(jìn)制數(shù).其個(gè)位數(shù)字與十位數(shù)字之和除以10 所得的余數(shù)是百位數(shù)字；該數(shù)是素?cái)?shù)；求滿足上述條件的最大的三位十進(jìn)制數(shù)。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 iPrint s2. 取數(shù)字20.求符合下列條件的四位完全平方數(shù)( 某個(gè)正整數(shù) A是另一個(gè)正整數(shù)B的平方 , 則稱 A 為完全平

23、方數(shù) ) ，它的千位數(shù)字與十位數(shù)字之和等于百位數(shù)字與個(gè)位數(shù)字之積，例如，3136=562, 且3+3=1*6故 3136 是所求的四位完全平方數(shù). 求其中最大的一個(gè)數(shù)。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 s第 9 頁21. 設(shè)某四位數(shù)的千位數(shù)字平方與十位數(shù)字的平方之和等于百位數(shù)字的立方與個(gè)位數(shù)字的立方之和，例如，對(duì)于四位數(shù)：320

24、1， 32+02=23+13 ，試問所有這樣的四位數(shù)之和是多少？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. 設(shè)某四位數(shù)的千位數(shù)字與十位數(shù)字的和等于百位數(shù)字與個(gè)位數(shù)字的積，例如，對(duì)于四位數(shù)： 9512， 9+1=5*2 ，試問所有這樣的四位數(shù)之和是多少？1078289s = 0For i = 1000 To 9999a = i 1000b = i 100 Mod

25、 10c = i 10 Mod 10d = i Mod 10If (a + c) = b * d Then s = s + iNext iPrint s23. 有一個(gè)三位數(shù)滿足下列條件 : (1) 此三位數(shù)的三位數(shù)字各不相同 ; (2) 此三位數(shù)等于它的各位數(shù)字的立方和。試求所有這樣的三位數(shù)之和。1301s = 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 = s + iNext iPrint s24.求 1 ， 999

26、 之間能被 3 整除，且至少有一位數(shù)字是5 的所有正整數(shù)的個(gè)數(shù)。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頁25. 有一個(gè)三位數(shù)滿足下列條件 : (1) 此三位數(shù)的三位數(shù)字各不相同 ; (2) 此三位數(shù)等于它的各位數(shù)字的立方和。試求所有這樣的三位數(shù)中最大的一個(gè)是多少？407s = 0For i = 100 To 999a = i 100b = i 10 Mod 10c =

27、 i Mod 10If (a 3 + b 3 + c 3) = i And a b And b c And c a Then s = iNext iPrint s26. 有一個(gè)三位數(shù)滿足下列條件 : (1) 此三位數(shù)的三位數(shù)字各不相同 ; (2) 此三位數(shù)等于它的各位數(shù)字的立方和。試求這種三位數(shù)共有多少個(gè)？4n = 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 n = n + 1 Next iPrint n27.求五位數(shù)各位

28、數(shù)字的平方和為100 的最大的五位數(shù)。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 = iNext iPrint s28. 所謂“水仙花數(shù)”是指一個(gè)三位數(shù)，其各位數(shù)字的三次方之和等于該數(shù)本身，例如：153=13+33+53 ，故 153 是水仙花數(shù)，求100 ， 999 之間所有水仙花數(shù)之和。1301s = 0For i = 100 To 999a = i 1

29、00b = i 10 Mod 10c = i Mod 10If (a 3 + b 3 + c 3) = i Then s = s + iNext iPrint s29.設(shè)某四位數(shù)的各位數(shù)字的平方和等于100，問共有多少個(gè)這種四位數(shù)？49第11頁n = 0For i = 1000 To 9999a = i 1000b = i 100 Mod 10c = i 10 Mod 10d = i Mod 10If a 2 + b 2 + c 2 + d 2 = 100 Then n = n + 1Next iPrint n30.回文數(shù)是指正讀和反讀都一樣的正整數(shù)。例如3773 是回文數(shù)。求出1000 ，9

30、999 以內(nèi)的所有回文數(shù)的個(gè)數(shù)。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.把一張一元鈔票, 換成一分、二分和五分硬幣, 每種至少8 枚 , 問有多少種方案?80n = 0For i = 8 To 100For j = 8 To 50For k = 8 To 20If (i + 2 * j + 5 * k = 100) Then n

31、 = n + 1Next k, j, iPrint n32. 50 元的整幣兌換成 5 元、 2 元和 1 元幣值（三種幣值均有、缺少一種或兩種都計(jì)算在內(nèi)）的方法有多少種。146n = 0For i = 0 To 50For j = 0 To 25For k = 0 To 10If (i + 2 * j + 5 * k = 50) Then n = n + 1Next k, j, iPrint n33.50 元的整幣兌換成5 元、 2 元和 1 元幣值（要求三種幣值均有）的方法有多少種。106n = 0第12頁For i = 1 To 50For j = 1 To 25For k = 1 To

32、 10If (i + 2 * j + 5 * k = 50) Then n = n + 1Next k, j, iPrint n34. 馬克思曾經(jīng)做過這樣一道趣味數(shù)學(xué)題：有30 個(gè)人在一家小飯店里用餐，其中有男人、女人和小孩，每個(gè)男人花了3 先令，每個(gè)女人花了2 先令，每個(gè)小孩花了1 先令，共花去50 先令。如果要求男人、女人和小孩都有人參與，試求有多少種方案分配男人、女人和小孩的人數(shù)。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

33、j, iPrint n4. 勾股、弦數(shù)35.A,B,C是三個(gè)小于或等于100 正整數(shù)，當(dāng)滿足 1/A2+1/B2=1/C2關(guān)系時(shí)，稱為倒勾股數(shù)。求 130A+B+CBC的倒勾股數(shù)有多少組。1For c = 1 To 100For b = c + 1 To 100For a = b + 1 To 100i = a + b + cIf (i 100 And i BC，求 A，B， C之和小于100 的倒勾股數(shù)有多少組？2For c = 1 To 100For b = c + 1 To 100For a = b + 1 To 100i = a + b + cIf (i 100 And (1 / (a

34、 * a) + 1 / (b * b) = 1 / (c * c) Thenn = n + 1Print a, b, cEnd IfNext a, b, cPrint n第13頁37. 勾股弦數(shù)是滿足公式： A2+B2=C2 ( 假定 ABC)的一組正整數(shù)（ A，B， C），例如，（ 3，4， 5）是勾股弦數(shù)，因?yàn)椋?2+42=52 。求 A， B 均小于 25 且 A+B+C=100的勾股弦數(shù)的個(gè)數(shù)。11n = 0For c = 1 To 100For a = 1 To 24For b = a + 1 To 24s = a + b + cIf a 2 + b 2 = c 2 And s BC

35、，求 A， B，C 均小于或等于100的倒勾股數(shù)有多少組？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. 勾股弦數(shù)是滿足公式： A2+B2=C2 ( 假定 AB Max Then Max = sNext c, b, aPrint Max40若某整數(shù)平方等于某兩個(gè)正整數(shù)平方之和的正整數(shù)稱為弦數(shù)。例如：由于32+4

36、2=52 ，則 5 為弦數(shù)，求 100 ， 200 之間弦數(shù)的個(gè)數(shù)。77n = 0For k = 100 To 200第14頁For i = 1 To kFor j = i + 1 To kIf i 2 + j 2 = k 2 Then n = n + 1Next j, i, kPrint n41 若某正整數(shù)平方等于某兩個(gè)正整數(shù)平方之和, 稱該正整數(shù)為弦數(shù)。 例如：由于 32+42=52 ，則 5 為弦數(shù)，求 131 ， 200 之間最小的弦數(shù)。135For k = 131 To 200For i = 1 To kFor j = i + 1 To kIf i 2 + j 2 = k 2 The

37、n GoTo 10Next j, i, k10Print k5. 完數(shù)因子42 求在 10 ， 1000 之間的所有完數(shù)之和。各真因子之和（不包括自身）等于其本身的正整數(shù)稱為完數(shù)。例如： 6=1+2+3， 6 是完數(shù)。524Sum = 0For m = 10 To 1000s = 0For i = 1 To m - 1If m Mod i = 0 Then s = s + iNext iIf s = m Then Sum = Sum + mNext mPrint Sum43 一個(gè)數(shù)如果恰好等于它的所有真因子之和，這個(gè)數(shù)就稱為“完數(shù)”。例如 , 6 的真因子為1， 2， 3，而 6=1+2+3，

38、因此， 6 是“完數(shù)”。求 1 ， 1000 之間的最大完數(shù)。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一個(gè)數(shù)如果恰好等于它的所有真因子之和，這個(gè)數(shù)就稱為“完數(shù)”。例如， 6 的真因子為1， 2， 3，而 6=1+2+3，因此， 6 是“完數(shù)”。求1,1000 之間的第二大完數(shù)。28Sum = 0第15頁For m = 1 To 1000s = 0For i = 1 To m - 1If m

39、Mod i = 0 Then s = s + iNext iIf s = m Then n = n + 1If n = 2 Then Sum = m: Exit ForNext mPrint Sum45一個(gè)數(shù)如果恰好等于它的所有真因子之和，這個(gè)數(shù)就稱為“完數(shù)”。例如， 6 的真因子為1， 2， 3，而 6=1+2+3，因此， 6 是“完數(shù)”。求1000 以內(nèi)的所有完數(shù)之和。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 + m

40、Next mPrint Sum46 求 200,300 之間有奇數(shù)個(gè)不同因子的最大的整數(shù)( 在計(jì)算因子個(gè)數(shù)時(shí) , 包括該數(shù)本身 ) 。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 = mNext mPrint A47 求 200,300 之間第二大有奇數(shù)個(gè)不同因子的整數(shù)( 在計(jì)算因子個(gè)數(shù)時(shí) , 包括該數(shù)本身 ) 。256n = 0For m = 200 To 300k = 0For i = 1 To mIf m Mod i = 0 Then k = k

41、 + 1Next iIf k Mod 2 0 Then n = n + 1If n = 2 Then A = m: Exit ForNext mPrint A48已知 24 有 8 個(gè)正整數(shù)因子（即：1，2，3，4，6，8，12，24），而 24 正好能被其因子數(shù)8第16頁整除，求正整數(shù)10 ， 100 之間有多少個(gè)正整數(shù)能被其因子的個(gè)數(shù)整除。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.( 數(shù)列

42、) 四舍五入49當(dāng) m的值為 50 時(shí)，計(jì)算下列公式的值：T=1-1/2-1/3-1/4-1/m要求：按四舍五入的方式精確到小數(shù)點(diǎn)后第四位。-2.4992t = 1For i = 2 To 50t = t - 1 / iNext iPrint Round(t, 4)50當(dāng) m的值為 50 時(shí)，計(jì)算下列公式之值: t=1+1/22+1/32+ +1/m2( 按四舍五入的方式精確到小數(shù)點(diǎn)后第四位) 。1.6251t = 0For i = 1 To 50t = t + 1 / i 2Next iPrint Round(t, 4)51當(dāng) n=100 時(shí)，計(jì)算 S=(1-1/2)+(1/3-1/4)+(

43、1/(2n-1)-1/(2n)的值。 .要求：按四舍五入的方式精確到小數(shù)點(diǎn)后第三位。0.691s = 0For i = 1 To 100s = s + (1 / (2 * i - 1) - 1 / (2 * i)Next iPrint Round(s, 3)52當(dāng) n 的值為 25 時(shí)，計(jì)算下列公式的值: s=1+1/1 !+1/2!+1/3!+1/n!要求：按四舍五入的方式精確到小數(shù)點(diǎn)后第四位。2.7183s = 1t = 1For i = 1 To 50t = t * is = s + 1 / tNext i第17頁P(yáng)rint Round(s, 4)53利用格里高利公式： /4=1-1/3

44、+1/5-1/7+1/9-1/11+-1/99 ，求 的值。要求：按四舍五入的方式精確到小數(shù)點(diǎn)后第二位。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, 要求：按四舍五入的方式精確到小數(shù)點(diǎn)后第二位。0.95s = 0For i = 1 To 20s = s + 1 / (i * (i + 1)Next iPrint Round(s, 2)55求 500 以內(nèi)（含 500）能被 5 或 9 整除的所有自然數(shù)的倒數(shù)之和。按四舍五入的方式精確到小數(shù)點(diǎn)后第二位。1.48s = 0For i = 1 To 500If i Mod 5