"PROGRAM 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 FPB”
• Dan untuk membuat User Interface klik dan drag-drop komponen label didalam ToolBox ke Form sebanyak 5kali dan kemudian ganti nama Captionnya Label1 dengan ANGKA, Label2 dengan HP, Label3 dengan I, Label 4 dengan II dan Label5 dengan ZaenurRohman=SIR200933. Lalu klik dan drag-drop TextBox sebanyak 5kali, dan kosongkan semua textnya kemudian beri nama pada text1 dengan ANGKA1, Text2 dengan ANGKA2, Text3 dengan HASIL1, Text4 dengan HASIL2 dan Text5 dengan FPB.
Untuk memodif tampilan kita masuk ke Categorized
• Kemudian klik dan drag CommandButton sebanyak 4kali. Ganti nama Caption Command1 dengan PROSES, Command2 dengan ULANG, Command3 dengan nama EXIT dan Command4 dengan nama FPB. Klik View Code untuk menampilkan Jendela Code kemudian masukan rumusnya :
Private Sub Command1_Click()
vbil = Val(angka1.Text)
vbil1 = Val(angka2.Text)
For i = 1 To vbil
If vbil Mod i = 0 Then
hasil1.Text = hasil1.Text + Str(i)
End If
Next i
For n = 1 To vbil1
If vbil1 Mod n = 0 Then
hasil2.Text = hasil2.Text + Str(n)
End If
Next n

End Sub
Private Sub Command2_Click()
angka1.Text = ""
angka2.Text = ""
hasil1.Text = ""
hasil2.Text = ""
fpb.Text = ""
angka1.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Dim a, b, c, i, x As Integer
a = angka1.Text
b = angka2.Text
If Val(a) > Val(b) Then
x = a
ElseIf Val(b) > Val(a) Then
x = b
End If

For i = 1 To x
If a Mod i = 0 And b Mod i = 0 Then
c = i
End If
Next i
fpb.Text = c
End Sub