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

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

break;

}
}

判断为ture就不是质数(好像if的括号要改成begin endif)

http://zhidao.baidu.com/search?lm=0&rn=10&pn=0&fr=search&ie=gbk&word=vb%C5%D0%B6%CF%D2%BB%B8%F6%CA%FD%CA%C7%B7%F1%CE%AA%D6%CA%CA%FD