展开全部
解决代码如下,供参考PrivateSubCommand1_Click()
IfNotIsNumeric(Text1.Text)OrVal(Text1.Text)
MsgBox"请输e68a84e8a2ad3231313335323631343130323136353331333337386631入一个大于等于2的正整数"
Text1.SetFocus
ExitSub
EndIf
Text2.Text=getUpCloserPnum(Val(Text1.Text))
EndSub
PrivateFunctiongetUpCloserPnum(NAsLong)AsLong
DimiAsLong,StpAsBoolean
Stp=False
i=N
DoUntilStp=True
i=i+1
IfisPrimeNum(i)=TrueThenStp=True
Loop
getUpCloserPnum=i
EndFunction
PrivateFunctionisPrimeNum(NumAsLong)AsBoolean
DimiAsLong,jAsLong,ResultAsBoolean
Result=True
Fori=2ToNum-1
IfNumModi=0Then
Result=False
ExitFor
EndIf
Nexti
isPrimeNum=Result
EndFunction
运行效果
python从键盘输入一个数 计算出大于n的最小素数_请问 可以帮忙做下这个题吗?--从键盘输入一个数 求大于该数的最小素数....