¿Cómo encontrar el máximo común divisor en lenguaje VB?

Este es el algoritmo euclidiano:

Subcomando privado1_click()

Atenuar p como entero

Atenuar q como entero

Atenuar temp como entero

Atenuar r como entero

p = Val(Text1.Text)

q = Val(Text2.Text )

Si p lt; q Entonces

temp = p

p = q

q = temp

Fin Si

Do

r = p Mod q

Si r = 0 Entonces

MsgBox Str(q) amp " es un divisor común"

Salir Do

Else

p = q

q = r

Finalizar si

Bucle

End Sub

Análisis: algoritmo euclidiano para encontrar divisores comunes:

Paso 1: Si plt q, luego intercambia p; y q.

Paso 2: Sea r el resto de p/q.

Paso 3: Si r=0, entonces q es el máximo común divisor; de lo contrario, sea p; =q, q=r y vaya al paso 2.