求VB编程代码:判断一个数是否是素数?
问题描述：
求VB编程代码:判断一个数是否是素数?
答
判断素数的原理是：
素数是只能被1和本身整除的数.例如 3只能被1和3整除,17只能被1和17整除等等,想9就不是素数（能被1,3,9整除）.
编程的算法是：
穷举法,就是将需要判断的数除2、除3.一直除到这个数减1.
例如：判断7是不是素数的算法是进行如下运算 7/2,7/3,7/4,7/5,7/6,在上述除的过程中如果都不能被除尽则可以断定7是素数,否则就说明7不是素数.
注意：编程时使用求余运算,判断是否能被除尽.
参考程序如下：
dim i as integer
dim j as integer
dim x as integer
x=val(inputbox("请输入一个自然数：","输入提示"))
for i=2 to x-1
if x mod i=0 then exit for
next i
if i=x then '此处若i的值变为x则说明所以上面的循环全被执行完
print x & "是素数"
else
print x & "不是素数" '若i