"PROGRAM MENCARI BILANGAN PRIMA"

 
  Langkah mencari bilangan Prima:
• Masuklah ke program Microsoft Visual Basic, akan keluar tampilan New Project, pilih Standar EXE kemudian klik Open.
• Kemudian muncul tampilan Form1, dan ganti nama Form1 pada Caption menjadi “Mencari Bilangan Prima”
• Dan untuk membuat User Interface klik dan drag-drop komponen label didalam ToolBox ke Form sebanyak 3kali dan kemudian ganti nama Captionnya Label1 dengan ANGKA, Label2 dengan HASIL dan ganti nama Label3 dengan TXTHASIL kosongkan Captionnya. Lalu klik dan drag-drop TextBox sebanyak 1kali, dan kosongkan semua textnya kemudian beri nama pada text1 dengan TXTANGKA.
• Kemudian klik dan drag CommandButton sebanyak 3kali. Ganti nama Caption Command1 dengan PROSES, Command2 dengan ULANG dan Command3 dengan nama EXIT. Dan beri nama Command1 dengan CMDPROSES, Command2 dengan CMDULANG dan Command3 dengan CMDEXIT.
• Klik View Code untuk menampilkan Jendela Code kemudian masukan rumusnya :
Private Sub CMDPROSES_Click()
If Val(TXTANGKA.Text) = 1 Then
TXTHASIL.Caption = "Bukan Prima"
ElseIf Val(TXTANGKA.Text) = 2 Then
TXTHASIL.Caption = "Prima"
Else
For i = 2 To Val(TXTANGKA.Text) - 1
If Val(TXTANGKA.Text) Mod i = 0 Then
TXTHASIL.Caption = "Bukan Prima"
Exit For
Else
TXTHASIL.Caption = "Prima"
End If
Next
End If
CMDULANG.Enabled = True
CMDPROSES.Enabled = False
End Sub

Private Sub CMDULANG_Click()
TXTANGKA.Text = ""
TXTHASIL.Caption = ""
TXTANGKA.SetFocus
CMDPROSES.Enabled = True
CMDULANG.Enabled = False
End Sub

Private Sub CMDEXIT_Click()
End
End Sub