以下程序完成的功能是输入一个数n,并判断它是否为素数,是或不是都通过消息对话框(MsgBox)来给出提示。请将程序补充完整。 Private Sub Cemmand1_Click() n = InputBox (“请输入一个整数”) k = Int(Sqr

admin2013-04-11  58

问题 以下程序完成的功能是输入一个数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 I,Flag=0

解析 求素数的计算可以从2至终值Sqr(n),如果条件“n Mod i=0”成立(即余数为0),“Flag=1”,a不是素数,否则“Flag=0”,a是素数,即可打印“这是一个素数!”。
转载请注明原文地址:https://kaotiyun.com/show/Pqhp777K
0

随机试题
最新回复(0)