kumpulan tugas-tugas kuliah

RUMUS MENCARI FPB (FAKTOR PERSEKUTUAN TERBESAR)
Salah satu rumus pencarian fpb adalah dengan menggunakan euclid.
Ex. :
Fpb dari 12 dan 8
 12 mod 8 = 4 => fpb
 8 mod 4 = 0 => stop
Jadi proses akan dilanjukan sampai hasilnya bernilai 0
Rumus euclid dapat diterapkan sebagai berikut :

Private Sub Command1_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
angka.Text = c
End Sub