在Text1中输入一个正整数n,判断是否是素数,并将结果在Label1中输出(n是素数或？
1个回答
展开全部
Private Sub Command1_Click()Dim i%, n%n = Val(InputBox(""))For i = 2 To n / 2 If n Mod i = 0 Then Exit ForNextIf i >= n / 2 Then Print n; " is su shu" Else Print n; " is he shu"End IfEnd Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
