作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/08 04:47:06
取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才行.