判斷壹個數是質數還是合數的最簡單的編程?

'2.擁有某大於 1 而小於自身的因數（因子）;'

'3.擁有至少三個因數（因子）;'

'4.不是 1 也不是素數(質數);'

'5.有至少壹個素因子的非素數。

Private Sub Command1_Click()

Dim n%, i%, j%

n = Val(InputBox("請輸入壹個正整數!"))

For i = 2 To Sqr(n)

If n Mod i = 0 Then

j = j + 1

If j >= 3 Then

MsgBox "N是個合數!!"

Exit Sub

End If

End If

Next

MsgBox "N是個質數!!"

End Sub