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