Program Bilangan Prima Visual Basic

Bilangan prima adalah sebuah bilangan yang hanya habis dibagi dengan bilangan 1 dan bilangan itu sendiri. Program ini saya buat untuk membantu kita semua dalam menentukan apakah bilangan itu bulangan prima atau bukan.

Berikut Source code nya..!!

 

Private Sub cmd_baru_Click()
    Form_Load
    Text1.SetFocus
End Sub

Private Sub cmd_hitung_Click()
    Dim angka As Integer, genap As String, prima As String, i As Integer, x As Integer
   
    angka = Text1.Text
   
    If angka Mod 2 = 0 Then
        genap = "Genap"
    Else
        genap = "ganjil"
    End If
   
    lbl_genap.Caption = genap
   
    i = 1
    x = 0
   
    Do While i <= angka
        If angka Mod i = 0 Then
            x = x + 1
        End If
       
        i = i + 1
    Loop
   
    If x = 1 Or x = 2 Then
        prima = "Prima"
    Else
        prima = "Bukan"
    End If
   
    lbl_prima.Caption = prima
   
End Sub

Private Sub cmd_keluar_Click()
    End
End Sub

Private Sub Form_Load()
    Text1.Text = Empty
    lbl_prima.Caption = Empty
    lbl_genap.Caption = Empty
End Sub
 

Atau dapat di download disini..!!