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
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/28 04:46:54
![VB qing gao shou'以下程序用于判断一个正整数(≥3)是否为素数.'Private Sub Form_Click()n = InputBox(](/uploads/image/z/14307248-56-8.jpg?t=VB+qing+gao+shou%27%E4%BB%A5%E4%B8%8B%E7%A8%8B%E5%BA%8F%E7%94%A8%E4%BA%8E%E5%88%A4%E6%96%AD%E4%B8%80%E4%B8%AA%E6%AD%A3%E6%95%B4%E6%95%B0%EF%BC%88%E2%89%A53%EF%BC%89%E6%98%AF%E5%90%A6%E4%B8%BA%E7%B4%A0%E6%95%B0.%27Private+Sub+Form_Click%28%29n+%3D+InputBox%28%22%E8%AF%B7%E8%BE%93%E5%85%A5%E4%B8%80%E4%B8%AA%E6%AD%A3%E6%95%B4%E6%95%B0%EF%BC%88%E2%89%A53%EF%BC%89%22%29k+%3D+Int%28Sqr%28n%29%29i+%3D+2swit+%3D+0%27%E3%80%91End+IfLoopIf+swit+%3D+0+ThenPrint+n%3B+%22%E6%98%AF%E4%B8%80%E4%B8%AA%E7%B4%A0%E6%95%B0%22ElsePrint)
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