Programación Vb Adapte la estructura del bucle Do...loop posterior a la prueba del juego "adivina el número" a una prueba previa.

Subcomando privado1_Click()

Dim count como entero, num como entero, fact como entero

Aleatorizar

fact = Int( Rnd * 100)

recuento = 0

Hacer hasta num = hecho O recuento = 10

num = Val(InputBox("Ingrese el número adivinado: " ))

Si num gt; fact Entonces

Label1.Caption = "Demasiado grande"

De lo contrario

Label1.Caption = " Demasiado pequeño"

Finalizar si

recuento = recuento 1

Bucle

Si num = hecho Entonces

Label1.Caption = "¡Felicitaciones, lo has adivinado! ***Adivinado" amp; count amp "times"

Else

Label1.Caption = "Has adivinado que lo he probado; diez veces y todavía no lo he adivinado "

End If