取n位正整随机数并判断是否为素数的vb

private function Fun_RandNum(RandNum as integer) as boolean 'True为是素数,False为不是素数.
dim k,i as integer
i=int(sqrt(RandNum))
Fun_RandNum=true
for i=2 to i
if k mod i=0 then
Fun_RandNum=false
exit for
end if
next
end sub
如n数较大,则把Integer 改为 Long才行.