by Abdul Jalil (1 Submission)
Category: Math/Dates
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 5th June 2000
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Checking whether a number is a prime number
Dim primNum As Integer
Dim i As Integer
Dim isPrime As Boolean
isPrime = True
primNum = Val(Text1.Text)
For i = 2 To (primNum - 1)
If primNum Mod i = 0 Then
isPrime = False
End If
Next
If isPrime = False Then
Picture1.Print Str(primNum) + " Not a prime number"
Else
Picture1.Print Str(primNum) + " Is a prime number"
End If
End Sub