求質數

基本架構練習：

Dim InVal As Integer
Dim i, j As Integer
Dim TmpVal As Integer
Dim ans As Integer '紀錄最近一次整除的數

Private Sub Form_Activate()
InVal = 27
For i = 1 To InVal - 1
TmpVal = InVal Mod i
If TmpVal = 0 Then
ans = i
End If
Next i

If ans = 1 Then
Print InVal; "is a prime number."
Else
Print InVal; "is not a prime number."
End If



End Sub