VB qing gao shou'以下程序用于判断一个正整数(≥3)是否为素数.'Private Sub Form_Click()n = InputBox("请输入一个正整数(≥3)")k = Int(Sqr(n))i = 2swit = 0'】End IfLoopIf swit = 0 ThenPrint n; "是一个素数"ElsePrint
来源:学生作业帮助网 编辑:六六作业网 时间:2025/01/12 16:39:24
VB qing gao shou'以下程序用于判断一个正整数(≥3)是否为素数.'Private Sub Form_Click()n = InputBox("请输入一个正整数(≥3)")k = Int(Sqr(n))i = 2swit = 0'】End IfLoopIf swit = 0 ThenPrint n; "是一个素数"ElsePrint
VB qing gao shou
'以下程序用于判断一个正整数(≥3)是否为素数.
'
Private Sub Form_Click()
n = InputBox("请输入一个正整数(≥3)")
k = Int(Sqr(n))
i = 2
swit = 0
'
】
End If
Loop
If swit = 0 Then
Print n; "是一个素数"
Else
Print n; "不是素数"
End If
End Sub
VB qing gao shou'以下程序用于判断一个正整数(≥3)是否为素数.'Private Sub Form_Click()n = InputBox("请输入一个正整数(≥3)")k = Int(Sqr(n))i = 2swit = 0'】End IfLoopIf swit = 0 ThenPrint n; "是一个素数"ElsePrint
'以下程序用于判断一个正整数(≥3)是否为素数.
'Private Sub Form_Click()
n = InputBox("请输入一个正整数(≥3)")
k = Int(Sqr(n))
i = 2
swit = 0
'
【i=i+1】
End If
Loop
If swit = 0 Then
Print n; "是一个素数"
Else
Print n; "不是素数"
End If
End Sub