先添加一个文本框到表单中，在文本框上点右键－生成器，将类型改为“数值型”，然后给按钮加上代码：
t1=thisform.text1.value
x=0
for j=2 to t1-1
if t1/j=int(t1/j)
x=1
endif
endfor
if x=0
messagebox("此数是素数",64,"提示")
else
messagebox("此数不是素数",64,"提示")
endif
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024