Mencari FPB

Langkah mencari fpb :
• 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 FPB”
• Dan untuk membuat User Interface klik dan drag-drop komponen label didalam ToolBox ke Form sebanyak 4kali dan kemudian ganti nama Captionnya Label1 dengan MASUKKAN ANGKA PERTAMA, Label2 dengan MASUKKAN ANGKA KEDUA, Label3 dengan HASIL 1, Label4 dengan HASIL2. Lalu klik dan drag-drop TextBox sebanyak 5kali, dan kosongkan semuanya
• Kemudian klik dan drag CommandButton sebanyak 4kali. Ganti nama Caption Command1 dengan PROSES, Command2 dengan ULANG dan Command3 dengan nama EXIT dan command4 dengan FPB. Dan beri nama Command1 dengan Cmdproses, Command2 dengan Cmdulang, Command3 dengan Cmdexit dan command4 dengan Cmdfpb.
Klik View Code untuk menampilkan Jendela Code kemudian masukan rumusnya :
Dim vba, vhasil, fpb As Integer

Private Sub Cmdproses_Click()
vba = Text1.Text
For i = 1 To vba
If vba Mod i = 0 Then
vhasil = Str(i)
Text3.Text = Text3.Text + Str(i)
End If
Next
vba1 = Text2.Text
For i = 1 To vba1
If vba1 Mod i = 0 Then
vhasil = Str(i)
Text4.Text = Text4.Text + Str(i)
End If

If vba Mod i = 0 And vba1 Mod i = 0 Then
fpb = i
End If
Next
End Sub

Private Sub Cmdulang_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text1.SetFocus

End Sub

Private Sub Cmdexit_Click()
End
End Sub

Private Sub Cmdfpb_Click()
Text5.Text = fpb
End Sub