Menguji Bilangan Prima Pada Visual Basic (VB6)

Fungsi untuk menguji bilangan prima di Visual Basic (VB6)

Fungsi ini berguna untuk menguji apakah suatu bilangan adalah bilangan prima atau bukan.

'
' @param Integer number - Angka yang akan diuji
' @return Boolean - True jika benar bilangan prima dan False jika bukan
'
Function isPrime(number As Integer) As Boolean
Dim i As Integer
' angka 0 dan 1 bukan bilangan prima
If number = 0 Or number = 1 Then
    isPrime = False
    Exit Function
End If
' bagi number dengan angka selain 0, 1, dan dirinya sendiri
For i = 2 To number - 1
    If number Mod i = 0 Then
        isPrime = False
        Exit Function
    End If
Next i
isPrime = True
End Function