VBA判斷質數
質數是指大於1的自然數中，只能被1和自己整除的數，也就是一個質數除了1和它本身，沒有其他的因數，以下帶你使用「VBA判斷質數」。
輸入巨集
※輸入以下指令※
Sub 判斷質數()
Dim N As Integer
Dim i As Integer
N = InputBox("輸入大於1的整數判斷是否為質數")
If N <= 1 Then
MsgBox "請輸入大於1的整數"
Exit Sub
End If
For i = 2 To N - 1
If N Mod i = 0 Then
MsgBox N & " 不是質數"
Exit Sub
End If
Next i
MsgBox N & " 是質數"
End Sub
執行巨集
點選「開發人員」-「 巨集」或按下「Ctrl」+「F8」快捷鍵，並「執行」巨集。
執行後則跳出輸入窗格-「輸入大於1的整數判斷是否為質數」如「11」。
則會顯示窗格判斷是否為質數如「11是質數」。
語法說明
Dim N As Integer
‘宣告變數「N」型態為「整數」
Dim i As Integer
‘宣告變數「i」型態為「整數」
N = InputBox(“輸入大於1的整數判斷是否為質數”)
‘跳出一個輸入窗格-「輸入大於1的整數判斷是否為質數」。
For i = 2 To N – 1
‘從 i = 2 開始，一直檢查到 N – 1 (因為質數的定義是除了1和自己以外不能被其他數整除，所以要測試2到N-1這些數。）
If N Mod i = 0 Then
‘如果 N 除以 i 剛好整除（餘數是0），就代表 N 有其他因數， N 就不是質數
MsgBox N & ” 不是質數”
‘跳出訊息窗格-「N 不是質數」
Exit Sub
‘直接結束整個子程式