版主:
Sub test()
Dim m As Integer, i As Integer
m = InputBox("請輸入一個數(shù):", "輸入提示")
i = 2
Do Until (m Mod i = 0) Or i = m - 1
i = i + 1
Loop
If m Mod i = 0 Then
Debug.Print m; "是素數(shù)"
Else
Debug.Print m; "是合數(shù)"
End If
End Sub
這里的素數(shù)和合數(shù)是不是反過來了?例如輸入6,6 mod 2 = 0吧?6是素數(shù)哦,不知我是不是哪里理解錯了