Największy Wspólny Dzielnik

Sądzę iż ten program nie wymaga komentarza:)

widok etykiety programu



Private Sub czyść_Click()
a1 = " "
b1 = " "
c = " "
End Sub

Private Sub oblicz_Click()
a = CInt(a1.Text)
b = CInt(b1.Text)
Do While a <> b
If a > b Then
a = a - b
End If
If b > a Then
b = b - a
End If
Loop
c.Text = Str(a)
End Sub

Private Sub zamknij_Click()
Unload Me
End
End Sub

Pobierz program download