• Home
 · 
• Math/Dates
 · 
• Checking whether a number is a prime number

Checking whether a number is a prime number

Checking whether a number is a prime number

Rate Checking whether a number is a prime number

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

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