• Home
 · 
• Miscellaneous
 · 
• Determine if a number is a prime number

Determine if a number is a prime number

Determine if a number is a prime number

API Declarations


'make a textbox
'make 2 command buttons



Rate Determine if a number is a prime number

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

End
End Sub

Private Sub Command2_Click()
Dim testnum As Integer
Dim divisor As Integer

testnum = Text1.Text
divisor = 1
If testnum > 1 Then
 Do
  divisor = divisor + 1       'increment divisor
 Loop While testnum Mod divisor <> 0
 End If
If divisor = testnum Then
 Label1.Caption = "Prime Number"
Else
 Label1.Caption = "Not a Prime Number"
End If
End Sub
Private Sub text1_change()
Label1.Caption = ""
End Sub