vb判断一个数是否为质数，求代码。

vb判断一个数是否为质数，求代码。

基本原理是将这个数n用从2到sqr(n)去除，如果有能够整除说明不是质数。当然你也可以用2到n-1去除，不过效率低一倍。

function 质数(byval n as long) as boolean
dim i as long
for i=2 to sqr(n)
if n mod i =0 then
质数=false
exit function
end if
next
质数=true
end function追问为什么要用n的二次算数根去除呢？追答因为一个数N如果能被另一个数整除(i1)，即N/i1=i2，也就是N=i1*i2，那么i1和i2中总有一个小于等于sqr(N)。类似如果两数相加等于和，那么这两个数总有一个小于等于和的1/2一样。

我暂时保留我的看法！

VB语法很久没写了，不过我可以提供给你思路。
首先用一个变量num来接收这个数。
再声明一个bool变量b=false.
然后用一个for循环，起始值为2结束值小于num
在循环里判断
for(int i=0;i if(num%i==0 )
{
b=true;
break;
}
}
判断为ture就不是质数(好像if的括号要改成begin endif)