Programación de adivinanzas de números VB...

Agregue un botón de comando cmdGuess (titulado "Quiero adivinar") y un cuadro de texto txtShow en el formulario, y luego agregue el siguiente código en la ventana de código:

========= = =============================================== === = ===

Dim RndNum como entero

Private Sub CmdGuess_Click()

Dim GueNum como variante

Sea i = 1: Let s = 0

Do While i <= 10

Do

GueNum = InputBox("La computadora ha generado un número aleatorio, ingrese el número que piense que la computadora generó a continuación", frmGueNum.Caption, "", 5000, 5000)

Si no es numérico (GueNum) entonces MsgBox "Ingrese el número correctamente. Lo que ingresó no es un número. -enter", vbCritical, frmGueNum.Caption

Bucle hasta IsNumeric(GueNum)

Si GueNum - RndNum = 0 Entonces

MsgBox "Felicitaciones, lo ha logrado exitosamente Adivinó el número generado por la computadora, la computadora le recomienda encarecidamente que compre un billete de lotería", vbOKOnly + vbSystemModal, frmGueNum.Caption

s = s + 1

Salir Do

ElseIf Abs(GueNum - RndNum) > 10 Then

MsgBox "Consejo: Es demasiado grande, la diferencia entre su suposición y el número generado por la computadora es más de 10", vbInformation, frmGueNum .Caption

i = i + 1

s = s + 1

ElseIf Abs(GueNum - RndNum) > 5 And Abs(GueNum - RndNum) < 10 Entonces

MsgBox "Sugerencia: Muy cerca, la diferencia entre su suposición y el número generado por computadora es menor que 5 y mayor que 10",vbInformation,frmGueNum.

i = i + 1

s = s + 1

ElseIf Abs(GueNum - RndNum) & gt; 0 And Abs(GueNum - RndNum) & gt; p>MsgBox "Consejo: Cada vez más cerca. La diferencia entre tu suposición y el número generado por computadora no es más de 5, ¡adelante! "