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所得的761余数是百位数字：该数是素数：求满足上述条件的最大的三位十进制数。For i 二 300 To 800a = i 100b = i 10 Mod 10c = i Mod 10If (c + b) Mod10 = 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是素数)。若两素数 之差为2 ,则

3、称两素数为双胞胎数，问31,601之间有多少对双胞胎数。22n = 0For i = 31 To 601 - 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 n = n + 1Next 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 Then n = n + 1End IfNext iP

5、rint 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 IfNext iPrint s6. 一个素数(设为p)依次从最髙位

6、去掉一位，二位，三位，若得到的各数仍都是素数(注：除 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 <> 0 And b <> 1 Thenx = 0For j

7、= 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. 徳国数学家哥徳巴赫曾猜测：任何大于6的偶

8、数都可以分解成两个素数(素数对)的和。但有些偶数可以分解成多种素数对的和，如：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)If (1234 - i) Mod j = 0 Then y = 1: Exit ForNext jI

9、f 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 Then y = 1: Exit ForNext jIf y = 0 Then n = n + 1End

10、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 Mod 10If a <> 0 And b <> 0 And b <> 1 Thenx = 0For

11、 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 + iEnd IfEnd IfEnd IfNext iPrint s10. 一个素数(设为p)依次从最高

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

13、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 IfNext iPrint s11.

14、 一个自然数是素数，且它的数字位置经过任意对换后仍为素数，则称为绝对素数。如13,试求所有两位绝对素数的和。429s = 0For 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 + iEnd IfNext iPrint s12

15、. 在200, 900范弗内同时满足以下两个条件的十进制数:(1)其个位数字与十位数字之和除以10所得 的余数是百位数字；该数是素数：问有多少个这样的数？14For 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. 个素数，依次从个位开始去掉一位，二位 ，所得的各数仍然是素数，

16、称为超级素数。求 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 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 Thenz = 0For j = 2 To Sqr (b)If b Mod j = 0 Then z = 1: Exi

17、t 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 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

18、 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 = 0For j = 2 To Sqr(I + 10)If (I + 10) Mod j 二 0 Then y = 1: Exit ForNext jIf y = 0 ThenFor k=I+lToI+

19、9z = 0For kl = 2 To Sqr(k)If k Mod kl = 0 Then z = 1： Exit ForNext klIf z = 0 Then Exit ForNext kIf k = I + 10 Then n = n + 1End IfEnd IfNext IPrint n16. 若两个连续的自然数的乘积减1后是素数，则称此两个连续自然数为友数对，该素数称为友素数。例 如，由于8*9-l=7b 因此，8与9是友数对，71是友素数。求50, 150之间的友数对的数目。38n 二 0For i = 50 To 150a = i * (i + 1) - 1x = 0For

20、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之间友素数对的数目。30n = 0For i = 40 To 119a = i*(i + l)-lx = 0For j = 2 To Sqr (a)If a Mod j = 0 Then x 二 1： Exit ForNext jIf x = 0

21、Thenn = n + 1End IfNext iPrint n18. 梅森尼数是指能使2“n-l为素数的数n,求1, 21范围内有多少个梅森尼数？ 7n 二 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范用内同时满足以下两个条件的十进制数其个位数字与十位数字之和除以10所得的余数是百位数字:该数是素数：求满足上述条件的最大的三位十进制数。761For i = 300

22、 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. 取数字20. 求符合下列条件的四位完全平方数(某个正整数A是另一个正整数B的平方，则称A为完全平方数),它的千位数字与十位数字之和等于百位数字与个位数字之积，例如，3136二562,且3+3二1*6故3136是所求 的四位完全平方数.求其中最大的一个数。7921For

23、 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. 设某四位数的千位数字平方与十位数字的平方之和等于百位数字的立方与个位数字的立方之和，例如，对于四位数：320b3"2+0"2二2八3+厂3,试问所有这样的四位数之和是多少？ 97993s = 0For i 二 1000 To 9999a = i 1000b = i 100 Mo

24、d 10c 二 i 10 Mod 10d = i Mod 10If(a"2+c2)=b3+d3 Then s = s + iNext iPrint s22. 设某四位数的千位数字与十位数字的和等于百位数字与个位数字的积，例如，对于四位数：9512,9十1二5*2,试问所有这样的四位数之和是多少？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 i Print s23. 有一个三位数满足下列条

25、件：（1）此三位数的三位数字各不相同；（2）此三位数等于它的各位数字的立方和。试求所有这样的三位数之和。1301s = 0For i = 100 To 999a = i 100b = i 10 Mod 10c = i Mod 10If（a"3 + b3 + c 3）=i And a <> b And b <> c And c <> a Then s = s + iNext i Print s24. 求1, 999之间能被3整除，且至少有一位数字是5的所有正整数的个数。91n = 0For i = 1 To 999a = i 100b = i 10

26、Mod 10c = i Mod 10If i Mod 3=0 And （a = 5 Or b = 5 Or c = 5） Then n = n + 1 Next i Print n25. 有一个三位数满足下列条件：（1）此三位数的三位数字各不相同；（2）此三位数等于它的各位数字的立方和。试求所有这样的三位数中最大的一个是多少？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 &l

27、t;> a Then s = iNext i Print s26. 有一个三位数满足下列条件：（1）此三位数的三位数字各不相同；（2）此三位数等于它的各位数字的立方和。试求这种三位数共有多少个？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 + 1Next 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 The