VB程序：
Private Sub CommandButton1_Click()
do
n = InputBox("請(qǐng)輸入一個(gè)大于1的正整數(shù)","數(shù)據(jù)輸入")
if n>2 then exit do
loop
i = 2
Do
r = n Mod i
i = i + 1
If r = 0 Then
MsgBox (Str(n) + "是質(zhì)數(shù)")
exit sub
end if
if i>=n^0.5 then exit do
Loop
MsgBox (Str(n) + "不是質(zhì)數(shù)")
End Sub