VB输入一个大于2的数,判断是否质数记得是输入一个数希望用inputbox

Question

VB 输入一个大于2的数,判断是否质数
记得是输入一个数 希望用inputbox

Answer 1

对于n 有如下方法,从1到N的根 dim i as integer
dim b as boolean
for i =2 to int(sqrt(n))
if n mod i =0 then
b=true
exit for
endif
next
if b then
不是质数
else
质数
endif