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

文档介绍：VB循环程序例题100道附答案
VB循环程序例题100道附答案
VB循环程序例题100道附答案
VB循环程序例题附答案
素数
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)
精选
VB循环程序例题100道附答案
VB循环程序例题100道附答案
VB循环程序例题100道附答案
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
数学家哥德巴赫曾猜测：任何大于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