¿Cómo calcular el número de bucles en una instrucción de bucle VB?

Agregar una variable para almacenamiento dedicado

Private Sub Command1_Click()

a = 150

b = 200000

n = 0

Hacer mientras a - b lt；gt; 0

Si a bt; Entonces a = a - b De lo contrario b = b - a

n = n 1

Bucle

MsgBox "En bucle " amp; n amp " veces"

End Sub