vb编程从键盘输入一个正整数，判断是否是素数
展开全部
dim a as integer
a=val(inputbox("输入一个正整数")
for i=2 to a-1
if a mod i=0 then exit for
next
if i=a then msgbox a & "是素数" else msgbox a & "不是素数"
a=val(inputbox("输入一个正整数")
for i=2 to a-1
if a mod i=0 then exit for
next
if i=a then msgbox a & "是素数" else msgbox a & "不是素数"
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
