作业帮 > 综合 > 作业

VB qing gao shou

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/09 06:31:28
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
'以下程序用于判断一个正整数(≥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 Su