VB循环程序例题100道附答案Word文档下载推荐.docx

1、2. 300，800范围内同时满足以下两个条件的十进制数. 其个位数字与十位数字之和除以10所得的余数是百位数字 ；该数是素数；求满足上述条件的最大的三位十进制数。 761For i = 300 To 800 If i Mod j = 0 Then x = 1: If x = 0 Then s = iPrint s3. 除1和它本身外，不能被其它整数整除的正整数称为素数（注：1不是素数，2是素数）。若两素数之差为2 ，则称两素数为双胞胎数，问31,601之间有多少对双胞胎数。 22For i = 31 To 601 - 2 For j = 2 To Sqr（i） If x = 0 Then y

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

3、 Then y = 1:5. 两个素数之差为2，则称这两个素数为双胞胎数。求出200，1000之间的最大一对双胞胎数的和。 1764For i = 200 To 1000 - 2 If y = 0 Then s = i + i + 26. 一个素数（设为p）依次从最高位去掉一位，二位，三位，若得到的各数仍都是素数（注：除1和它本身外，不能被其它整数整除的正整数称为素数，1不是素数，2是素数），且数p的各位数字均不为零，则称该数p为逆向超级素数。例如，617，17，7都是素数，因此617是逆向超级素数，尽管503，03，3都是素数，但它不是逆向超级素数，因为它包含有零。试求100,999之内的所

4、有逆向超级素数的个数。 39 a = i 10 Mod 10 b = i Mod 10 If a 0 And b 1 Then c = i Mod 100 For j = 2 To Sqr（c） If c Mod j = 0 Then y = 1: If y = 0 Then z = 0 For j = 2 To Sqr（b） If b Mod j = 0 Then z = 1: If z = 0 Then n = n + 17. 德国数学家哥德巴赫曾猜测：试求1234可以分解成多少种不同的素数对（注： A+B与B+A认为是相同素数对） 25For i = 2 To 1234 / 2 For

5、j = 2 To Sqr（1234 - i） If （1234 - i） Mod j = 0 Then y = 1:8.求100，900之间相差为12的素数对（注：要求素数对的两个素数均在该范围内）的个数。 50For i = 100 To 900 - 12 For j = 2 To Sqr（i + 12） If （i + 12） Mod j = 0 Then y = 1:9. 一个素数（设为p）依次从最高位去掉一位，二位，三位，若得到的各数仍都是素数（注：1不是素数），且数p的各位数字均不为零，则称该数p为逆向超级素数。例如，617，17，7都是素数，因此617是逆向超级素数，但尽管503，

6、03，3都是素数，但它不是逆向超级素数，因为它包含有零。试求100,999之内的所有逆向超级素数的和。 21645s = 0 If z = 0 Then s = s + i10. 一个素数（设为p）依次从最高位去掉一位，二位，三位，若得到的各数仍都是素数（注：1不是素数，2是素数），且数p的各位数字均不为零，则称该数p为逆向超级素数。试求100,999之内的所有逆向超级素数从大到小数的第10个素数是多少？ 797For i = 999 To 100 Step -1 If z = 0 Then n = n + 1: If n = 10 Then s = i11. 一个自然数是素数，且它的数字位置

7、经过任意对换后仍为素数，则称为绝对素数。如13，试求所有两位绝对素数的和。 429For i = 10 To 99 a = i 10 c = b * 10 + a If y = 0 Then s = s + i12. 在200，900范围 内同时满足以下两个条件的十进制数:其个位数字与十位数字之和除以10所得的余数是百位数字; 该数是素数；问有多少个这样的数？ 14For i = 200 To 90013. 一个素数，依次从个位开始去掉一位，二位.，所得的各数仍然是素数，称为超级素数。求100,999之内超级素数的个数。 For j = 2 To Sqr（a） If a Mod j = 0 T

8、hen y = 1: b = i 100 If b 14. 若两个连续的自然数的乘积减1后是素数，则称此两个连续自然数为友数对，该素数称为友素数。例如，由于 8*9-1=71， 因此，8与9是友素数对，71是友素数。求100，200之间的第10个友素数对所对应的友素数的值（按由小到大排列）。 17291For i = 100 To 199 a = i * （i + 1） - 1 If a Mod j = 0 Then x = 1: n = n + 1 If n = 10 Then s = a15. 求2，400中相差为10的相邻素数对（两数中间没有其它素数）的对数。 5For I = 2 To

9、 400 - 10 For j = 2 To Sqr（I） If I Mod j = 0 Then x = 1: For j = 2 To Sqr（I + 10） If （I + 10） Mod j = 0 Then y = 1: For k = I + 1 To I + 9 For k1 = 2 To Sqr（k） If k Mod k1 = 0 Then z = 1: Next k1 If z = 0 Then Exit For Next k If k = I + 10 Then n = n + 1Next I16. 若两个连续的自然数的乘积减1后是素数，则称此两个连续自然数为友数对，该素

10、数称为友素数。例如，由于 8*9-1=71， 因此，8与9是友数对，71是友素数。求50，150之间的友数对的数目。38For i = 50 To 15017. 若两个连续自然数乘积减1后是素数,则称此两个自然连续数为友数对,该素数称为友素数,例:2*3-1=5,因此2与3是友数对,5是友素数,求40,119之间友素数对的数目。 30For i = 40 To 11918. 梅森尼数是指能使2n-1为素数的数n，求1，21范围内有多少个梅森尼数？ 7For i = 2 To 21 x = 2 i - 1 k = 0 For j = 2 To Sqr（x） If x Mod j = 0 Then

11、 k = 1 If k = 0 Then n = n + 119. 300，800范围内同时满足以下两个条件的十进制数. 其个位数字与十位数字之和除以10所得的余数是百位数字 ； a = i 100 b = i 10 Mod 10 c = i Mod 10 If （c + b） Mod 10 = a Then If i Mod j = 0 Then k = 1 If k = 0 Then s = i 2. 取数字 20. 求符合下列条件的四位完全平方数（某个正整数A是另一个正整数B的平方,则称A为完全平方数），它的千位数字与十位数字之和等于百位数字与个位数字之积，例如，3136=562, 且3

12、+3=1*6 故3136是所求的四位完全平方数. 求其中最大的一个数。 7921For 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 = i21.设某四位数的千位数字平方与十位数字的平方之和等于百位数字的立方与个位数字的立方之和，例如，对于四位数：3201， 32+02=23+13，试问所有这样的四位数之和是多少？97993 If （a 2 + c 2） = b 3 + d 3 Th

13、en s = s + i22. 设某四位数的千位数字与十位数字的和等于百位数字与个位数字的积，例如，对于四位数：9512，9+1=5*2，试问所有这样的四位数之和是多少？ 1078289 If （a + c） = b * d Then s = s + i23. 有一个三位数满足下列条件: （1）此三位数的三位数字各不相同; （2）此三位数等于它的各位数字的立方和。试求所有这样的三位数之和。 1301 If （a 3 + b 3 + c 3） = i And a b And b c And c a Then s = s + i24. 求1，999之间能被3整除，且至少有一位数字是5的所有正整数的

14、个数。 91For i = 1 To 999 If i Mod 3 = 0 And （a = 5 Or b = 5 Or c = 5） Then n = n + 125. 有一个三位数满足下列条件:试求所有这样的三位数中最大的一个是多少？ 407 a Then s = i26. 有一个三位数满足下列条件:试求这种三位数共有多少个？ 4 a Then n = n + 127. 求五位数各位数字的平方和为100的最大的五位数。 94111For i = 10000 To 99999 a = i 10000 b = i 1000 Mod 10 c = i 100 Mod 10 d = i 10 Mo

15、d 10 e = i Mod 10 If a 2 + b 2 + c 2 + d 2 + e 2 = 100 Then s = i28. 所谓“水仙花数”是指一个三位数，其各位数字的三次方之和等于该数本身，例如：153=13+33+53，故153是水仙花数，求100，999之间所有水仙花数之和。 If （a 3 + b 3 + c 3） = i Then s = s + i29. 设某四位数的各位数字的平方和等于100，问共有多少个这种四位数？ 49 If a 2 + b 2 + c 2 + d 2 = 100 Then n = n + 130. 回文数是指正读和反读都一样的正整数。例如3773是回文数。求出1000，9999以内的所有回文数的个数。 90