A-A+
以下程序完成的功能是输入一个数n 并判断它是否为素数 是或不是都通过消息对话框(MsgBox
问题详情
以下程序完成的功能是输入一个数n,并判断它是否为素数,是或不是都通过消息对话框(MsgBox)来给出提示。请将程序补充完整。 Private Sub Cemmand1_Click() n = InputBox (“请输入一个整数”) k = Int(Sqr(n)) i = 2 Flag = 0 do while i<= k And Flag = 0 if【 】 = 0 then Flag = 1 Else i= i+ 1 End if Loop if【 】then MsgBox “这是一个素数!”,vbOKOnly,“提示” Else MsgBox “这不是一个素数!”,vbOKOnly,“提示” End if End Sub
请帮忙给出正确答案和分析,谢谢!
参考答案
正确答案:n Mod IFlag=0
求素数的计算可以从2至终值Sqr(n),如果条件“nModi=0”成立(即余数为0),“Flag=1”,a不是素数,否则“Flag=0”,a是素数,即可打印“这是一个素数!”。