1、完整word版VB循环程序例题100道附答案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 Then x = 0 For j = 2 To i - 1 If i Mod j = 0 Then x = 1: Exit For Next j If x = 0 Then n = n + 1End IfN
2、ext iPrint n2. 300,800范围内同时满足以下两个条件的十进制数. 其个位数字与十位数字之和除以10所得的余数是百位数字 ;该数是素数;求满足上述条件的最大的三位十进制数。 761For i = 300 To 800a = i 100b = i 10 Mod 10c = i Mod 10If (c + b) Mod 10 = a Then x = 0 For j = 2 To i - 1 If i Mod j = 0 Then x = 1: Exit For Next j If x = 0 Then s = iEnd IfNext iPrint s3. 除1和它本身外,不能被其
3、它整数整除的正整数称为素数(注:1不是素数,2是素数)。若两素数之差为2 ,则称两素数为双胞胎数,问31,601之间有多少对双胞胎数。 22n = 0For i = 31 To 601 - 2 x = 0 For j = 2 To Sqr(i) If i Mod j = 0 Then x = 1: Exit For Next j If x = 0 Then y = 0 For j = 2 To Sqr(i + 2) If (i + 2) Mod j = 0 Then y = 1: Exit For Next j If y = 0 Then n = n + 1 End IfNext iPrint
4、 n4. 数学家哥德巴赫曾猜测:任何大于6的偶数都可以分解成两个素数(素数对)的和。但有些偶数可以分解成多种素数对的和,如: 10=3+7,10=5+5,即10可以分解成两种不同的素数对。试求6744可以分解成多少种不同的素数对(注: A+B与B+A认为是相同素数对) 144n = 0For i = 2 To 6744 / 2 x = 0 For j = 2 To Sqr(i) If i Mod j = 0 Then x = 1: Exit For Next j If x = 0 Then y = 0 For j = 2 To Sqr(6744 - i) If (6744 - i) Mod j
5、 = 0 Then y = 1: Exit For Next j If y = 0 Then n = n + 1 End IfNext iPrint n5. 两个素数之差为2,则称这两个素数为双胞胎数。求出200,1000之间的最大一对双胞胎数的和。 1764For i = 200 To 1000 - 2 x = 0 For j = 2 To Sqr(i) If i Mod j = 0 Then x = 1: Exit For Next j If x = 0 Then y = 0 For j = 2 To Sqr(i + 2) If (i + 2) Mod j = 0 Then y = 1:
6、Exit For Next j If y = 0 Then s = i + i + 2 End IfNext iPrint s6. 一个素数(设为p)依次从最高位去掉一位,二位,三位,若得到的各数仍都是素数(注:除1和它本身外,不能被其它整数整除的正整数称为素数,1不是素数,2是素数),且数p的各位数字均不为零,则称该数p为逆向超级素数。例如,617,17,7都是素数,因此617是逆向超级素数,尽管503,03,3都是素数,但它不是逆向超级素数,因为它包含有零。试求100,999之内的所有逆向超级素数的个数。 39n = 0For i = 100 To 999 a = i 10 Mod 10
7、b = i Mod 10 If a 0 And b 0 And b 1 Then x = 0 For j = 2 To Sqr(i) If i Mod j = 0 Then x = 1: Exit For Next j If x = 0 Then y = 0 c = i Mod 100 For j = 2 To Sqr(c) If c Mod j = 0 Then y = 1: Exit For Next j If y = 0 Then z = 0 For j = 2 To Sqr(b) If b Mod j = 0 Then z = 1: Exit For Next j If z = 0 T
8、hen n = n + 1 End If End If End IfNext iPrint n7. 德国数学家哥德巴赫曾猜测:任何大于6的偶数都可以分解成两个素数(素数对)的和。但有些偶数可以分解成多种素数对的和,如: 10=3+7,10=5+5,即10可以分解成两种不同的素数对。试求1234可以分解成多少种不同的素数对(注: A+B与B+A认为是相同素数对) 25n = 0For i = 2 To 1234 / 2 x = 0 For j = 2 To Sqr(i) If i Mod j = 0 Then x = 1: Exit For Next j If x = 0 Then y = 0
9、For j = 2 To Sqr(1234 - i) If (1234 - i) Mod j = 0 Then y = 1: Exit For Next j If y = 0 Then n = n + 1 End IfNext iPrint n8.求100,900之间相差为12的素数对(注:要求素数对的两个素数均在该范围内)的个数。 50n = 0For i = 100 To 900 - 12 x = 0 For j = 2 To Sqr(i) If i Mod j = 0 Then x = 1: Exit For Next j If x = 0 Then y = 0 For j = 2 To
10、 Sqr(i + 12) If (i + 12) Mod j = 0 Then y = 1: Exit For Next j If y = 0 Then n = n + 1 End IfNext iPrint n9. 一个素数(设为p)依次从最高位去掉一位,二位,三位,若得到的各数仍都是素数(注:1不是素数),且数p的各位数字均不为零,则称该数p为逆向超级素数。例如,617,17,7都是素数,因此617是逆向超级素数,但尽管503,03,3都是素数,但它不是逆向超级素数,因为它包含有零。试求100,999之内的所有逆向超级素数的和。 21645s = 0For i = 100 To 999 a
11、 = i 10 Mod 10 b = i Mod 10 If a 0 And b 0 And b 1 Then x = 0 For j = 2 To Sqr(i) If i Mod j = 0 Then x = 1: Exit For Next j If x = 0 Then y = 0 c = i Mod 100 For j = 2 To Sqr(c) If c Mod j = 0 Then y = 1: Exit For Next j If y = 0 Then z = 0 For j = 2 To Sqr(b) If b Mod j = 0 Then z = 1: Exit For Ne
12、xt j If z = 0 Then s = s + i End If End If End 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 -1 a = i 10 Mod 10 b =
13、i Mod 10 If a 0 And b 0 And b 1 Then x = 0 For j = 2 To Sqr(i) If i Mod j = 0 Then x = 1: Exit For Next j If x = 0 Then y = 0 c = i Mod 100 For j = 2 To Sqr(c) If c Mod j = 0 Then y = 1: Exit For Next j If y = 0 Then z = 0 For j = 2 To Sqr(b) If b Mod j = 0 Then z = 1: Exit For Next j If z = 0 Then
14、n = n + 1: If n = 10 Then s = i End If End If End IfNext iPrint s11. 一个自然数是素数,且它的数字位置经过任意对换后仍为素数,则称为绝对素数。如13,试求所有两位绝对素数的和。 429s = 0For i = 10 To 99 a = i 10 b = i Mod 10 x = 0 For j = 2 To Sqr(i) If i Mod j = 0 Then x = 1: Exit For Next j If x = 0 Then y = 0 c = b * 10 + a For j = 2 To Sqr(c) If c M
15、od j = 0 Then y = 1: Exit For Next j If y = 0 Then s = s + i End 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 Then x = 0 For j = 2 To i - 1 If i Mod j = 0 Then x = 1: Exi
16、t For Next j If x = 0 Then n = n + 1End IfNext iPrint n13. 一个素数,依次从个位开始去掉一位,二位.,所得的各数仍然是素数,称为超级素数。求100,999之内超级素数的个数。 14n = 0For i = 100 To 999 x = 0 For j = 2 To Sqr(i) If i Mod j = 0 Then x = 1: Exit For Next j If x = 0 Then a = i 10 y = 0 For j = 2 To Sqr(a) If a Mod j = 0 Then y = 1: Exit For Nex
17、t j If y = 0 Then b = i 100 If b 1 Then z = 0 For j = 2 To Sqr(b) If b Mod j = 0 Then z = 1: Exit For Next j If z = 0 Then n = n + 1 End If End If End IfNext iPrint n14. 若两个连续的自然数的乘积减1后是素数,则称此两个连续自然数为友数对,该素数称为友素数。例如,由于 8*9-1=71, 因此,8与9是友素数对,71是友素数。求100,200之间的第10个友素数对所对应的友素数的值(按由小到大排列)。 17291For i =
18、100 To 199 a = i * (i + 1) - 1 x = 0 For j = 2 To Sqr(a) If a Mod j = 0 Then x = 1: Exit For Next j If x = 0 Then n = n + 1 If n = 10 Then s = a End IfNext iPrint s15. 求2,400中相差为10的相邻素数对(两数中间没有其它素数)的对数。 5n = 0For I = 2 To 400 - 10 x = 0 For j = 2 To Sqr(I) If I Mod j = 0 Then x = 1: Exit For Next j
19、If x = 0 Then y = 0 For j = 2 To Sqr(I + 10) If (I + 10) Mod j = 0 Then y = 1: Exit For Next j If y = 0 Then For k = I + 1 To I + 9 z = 0 For k1 = 2 To Sqr(k) If k Mod k1 = 0 Then z = 1: Exit For Next k1 If z = 0 Then Exit For Next k If k = I + 10 Then n = n + 1 End If End IfNext IPrint n16. 若两个连续的自
20、然数的乘积减1后是素数,则称此两个连续自然数为友数对,该素数称为友素数。例如,由于 8*9-1=71, 因此,8与9是友数对,71是友素数。求50,150之间的友数对的数目。38n = 0For i = 50 To 150 a = i * (i + 1) - 1 x = 0 For j = 2 To Sqr(a) If a Mod j = 0 Then x = 1: Exit For Next j If x = 0 Then n = n + 1 End IfNext iPrint n17. 若两个连续自然数乘积减1后是素数,则称此两个自然连续数为友数对,该素数称为友素数,例:2*3-1=5,因
21、此2与3是友数对,5是友素数,求40,119之间友素数对的数目。 30n = 0For i = 40 To 119 a = i * (i + 1) - 1 x = 0 For j = 2 To Sqr(a) If a Mod j = 0 Then x = 1: Exit For Next j If x = 0 Then n = n + 1 End IfNext iPrint n18. 梅森尼数是指能使2n-1为素数的数n,求1,21范围内有多少个梅森尼数? 7n = 0For i = 2 To 21 x = 2 i - 1 k = 0 For j = 2 To Sqr(x) If x Mod
22、j = 0 Then k = 1 Next j If k = 0 Then n = n + 1Next iPrint n19. 300,800范围内同时满足以下两个条件的十进制数. 其个位数字与十位数字之和除以10所得的余数是百位数字 ;该数是素数;求满足上述条件的最大的三位十进制数。 761For i = 300 To 800 a = i 100 b = i 10 Mod 10 c = i Mod 10 If (c + b) Mod 10 = a Then k = 0 For j = 2 To Sqr(i) If i Mod j = 0 Then k = 1 Next j If k = 0
23、Then s = i End IfNext iPrint s 2. 取数字 20. 求符合下列条件的四位完全平方数(某个正整数A是另一个正整数B的平方,则称A为完全平方数),它的千位数字与十位数字之和等于百位数字与个位数字之积,例如,3136=562, 且3+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
24、 s = i End IfNext iPrint s21.设某四位数的千位数字平方与十位数字的平方之和等于百位数字的立方与个位数字的立方之和,例如,对于四位数:3201, 32+02=23+13,试问所有这样的四位数之和是多少?97993s = 0For i = 1000 To 9999 a = i 1000 b = i 100 Mod 10 c = i 10 Mod 10 d = i Mod 10 If (a 2 + c 2) = b 3 + d 3 Then s = s + iNext iPrint s22. 设某四位数的千位数字与十位数字的和等于百位数字与个位数字的积,例如,对于四位数:
25、9512,9+1=5*2,试问所有这样的四位数之和是多少? 1078289s = 0For i = 1000 To 9999 a = i 1000 b = i 100 Mod 10 c = i 10 Mod 10 d = i Mod 10 If (a + c) = b * d Then s = s + iNext iPrint s23. 有一个三位数满足下列条件: (1)此三位数的三位数字各不相同; (2)此三位数等于它的各位数字的立方和。试求所有这样的三位数之和。 1301s = 0For i = 100 To 999 a = i 100 b = i 10 Mod 10 c = i Mod
26、10 If (a 3 + b 3 + c 3) = i And a b And b c And c a Then s = s + iNext iPrint s24. 求1,999之间能被3整除,且至少有一位数字是5的所有正整数的个数。 91n = 0For i = 1 To 999 a = i 100 b = i 10 Mod 10 c = i Mod 10 If i Mod 3 = 0 And (a = 5 Or b = 5 Or c = 5) Then n = n + 1Next iPrint n25. 有一个三位数满足下列条件: (1)此三位数的三位数字各不相同; (2)此三位数等于它的
27、各位数字的立方和。试求所有这样的三位数中最大的一个是多少? 407s = 0For i = 100 To 999 a = i 100 b = i 10 Mod 10 c = i Mod 10 If (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 999 a = i 100 b = i 10 Mod 10 c = i Mod 1
28、0 If (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 99999 a = i 10000 b = i 1000 Mod 10 c = i 100 Mod 10 d = i 10 Mod 10 e = i Mod 10 If a 2 + b 2 + c 2 + d 2 + e 2 = 100 Then s = iNext iPrint s28. 所谓“水仙花数”是指一个三位数,其各位数字的三次方
29、之和等于该数本身,例如:153=13+33+53,故153是水仙花数,求100,999之间所有水仙花数之和。 1301s = 0For i = 100 To 999 a = i 100 b = i 10 Mod 10 c = i Mod 10 If (a 3 + b 3 + c 3) = i Then s = s + iNext iPrint s29. 设某四位数的各位数字的平方和等于100,问共有多少个这种四位数? 49n = 0For i = 1000 To 9999 a = i 1000 b = i 100 Mod 10 c = i 10 Mod 10 d = i Mod 10 If a 2 + b 2 + c 2 + d 2 = 100 Then n = n + 1Next iPrint n30. 回文数是指正读和反读都一样的正整数。例如3773是回文数。求出1000,9999以内的所有回文数的个数。 90n = 0For i = 1000 To 9999 a = i
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1