2008-02-26 08:35:48瓜
VB 是否為質數
【程式碼】
n = InputBox(" 輸入一正整數")
For i = 1 To n
x = 0
For j = 1 To i
If i Mod j = 0 Then
x = x + 1
End If
Next j
Next i
If x = 2 Then
MsgBox n & "為質數"
Else
MsgBox n & "不為質數"
End If
n = InputBox(" 輸入一正整數")
For i = 1 To n
x = 0
For j = 1 To i
If i Mod j = 0 Then
x = x + 1
End If
Next j
Next i
If x = 2 Then
MsgBox n & "為質數"
Else
MsgBox n & "不為質數"
End If