三、判斷素數

　　只能被1或本身整除的數稱為素數 基本思想：把m作為被除數，將2-INT(

)作為除數，如果都除不盡，m就是素數，否則就不是。(可用以下程序段實現)

　　m =val( InputBox("請輸入一個數"))

　　For i=2 To int(sqr(m))

　　If m Mod i = 0 Then Exit For

　　Next i

　　If i > int(sqr(m)) Then

　　Print "該數是素數"

　　Else

　　Print "該數不是素數"

　　End If

　　將其寫成一函數，若為素數返回True,不是則返回False

　　Private Function Prime( m as Integer) As Boolean

　　Dim i%

　　Prime=True

　　For i=2 To int(sqr(m))

　　If m Mod i = 0 Then Prime=False: Exit For

　　Next i

　　End Function

　　相關推薦：

　　2012年下半年計算機等級考試報名時間及入口匯總

　　計算機等級考試三級PC技術過關心得技巧

　　2012年3月計算機二級考試真題匯總