VB循环程序例题100道附答案.doc

PAGE 第 PAGE 1 页 VB循环程序例题附答案 1.素数 1. [100，999]范围内同时满足以下两个条件的十进制数. ⑴其个位数字与十位数字之和除以10所得的余数是百位数字；⑵该数是素数; 求有多少个这样的数？ 15 n = 0 For i = 100 To 999 a = i \ 100 b = i \ 10 Mod 10 c = i Mod 10 If (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 + 1 End If Next i Print n 2. [300，800]范围内同时满足以下两个条件的十进制数. ⑴其个位数字与十位数字之和除以10所得的余数是百位数字 ；⑵该数是素数；求满足上述条件的最大的三位十进制数。 761 For i = 300 To 800 a = i \ 100 b = i \ 10 Mod 10 c = i Mod 10 If (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 = i End If Next i Print s 3. 除1和它本身外，不能被其它整数整除的正整数称为素数（注：1不是素数，2是素数）。若两素数之差为2 ，则称两素数为双胞胎数，问[31,601]之间有多少对双胞胎数。 22 n = 0 For 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 If Next i Print n 4. 数学家哥德巴赫曾猜测：任何大于6的偶数都可以分解成两个素数（素数对）的和。但有些偶数可以分解成多种素数对的和，如： 10=3+7，10=5+5，即10可以分解成两种不同的素数对。试求6744可以分解成多少种不同的素数对（注： A+B与B+A认为是相同素数对） 144 n = 0 For 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 = 0 Then y = 1: Exit For Next j If y = 0 Then n = n + 1 End If Next i Print n 5. 两个素数之差为2，则称这两个素数为双胞胎数。求出[200，1000]之间的最大一对双胞胎数的和。 1764 For 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: Exit For Next j If y = 0 Then s = i + i + 2 End If Next i Print s 6. 一个素数（设为p）依次从最高位去掉一位，二位，三位，……，若得到的各数仍都是素数(注：除1和它本身外，不能被其它整数整除的正整数称为素数，1不是素数，2是素数），且数p的各位数字均不为零，则称该数p为逆向超级素数。例如，617，17，7都是素数，因此617是逆向超级素数，尽管503，03，3都是素数，但它不是逆向超级素数，因为它包含有零。试求[100,999]之内的所有逆向超级素数的个数。 39 n = 0 For i = 100 To 999 a =