Red de conocimiento informático - Problemas con los teléfonos móviles - vb Escriba un programa que utilice llamadas recursivas a la subrutina Sub para calcular el máximo común divisor de dos números M, N, donde M>N y N≠0. programa

vb Escriba un programa que utilice llamadas recursivas a la subrutina Sub para calcular el máximo común divisor de dos números M, N, donde M>N y N≠0. programa

Subcomando privado1_Click() a = CInt(Text1.Text) b = CInt(Text2.Text) x = 0 gcd a, b, x Label1.Caption = "Gcd(" & a & " ," & b & ")=" & x

End Sub

Sub privado Form_Load() Label1.p>End Sub

Sub gcd(a, b, x) Si a Mod b = 0 Entonces

x = b Else

gcd b, a Mod b, x End If

End Sub