¿VB adivina el código fuente del juego numérico?

¿Público?Clase?Form1

Dim?b?As?Integer

Dim?js?As?Integer

Privado?Sub ?Button1_Click(ByVal?sender?As?System.Object, ByVal?e?As?System.EventArgs)?Handles?Button1.Click

Si?Entonces

¿Atenuar?a? As?Integer?=?MsgBox("El juego ha comenzado, ¿estás listo?",?MsgBoxStyle.YesNo,? "¡Pregunta!")

Si?a?=?6 Entonces

js?=?1

Me.Button1.Text?=?"OK"

Me.Button2.Text?=?"Return"

Me.Label2.Text?=?"Tengo números enteros positivos del 1 al 10, adivina cuántos hay"

Me.TextBox1.Visible?=?True

Aleatorio ( )

b?=?Int(Rnd()?*?9? ?1)

Si no

¿Salir?Sub

¿Fin?If

Else

If?Me.TextBox1.Text.Trim?=?"" ?Or?Asc(Me.TextBox1.Text)?Trim?=?" " ?O?Asc(Me.TextBox1.Text)? gt;?57?Entonces

MsgBox("Ingrese un número")

Salir?Sub

Else

If?js?=?3?Then

MsgBox("Lo siento, has repasado 3 veces, comienza de nuevo")

Me.Button1.Text?=?Inicio"

Me.Button2.Text?=?"Salir"

Me.TextBox1.Visible?=? "False"

Me.Label2.Text?=?""

Else

If?Me.TextBox1.Text?=?b?Then

Yo. Label2.Text?=?"" Tienes suerte"

Me.Button1.Visible?=?False

Me.Button2.Visible?=?False

Me.Button3.Visible?=?True

ElseIf?TextBox1.Text?gt;?Then

js =?1

Me.TextBox1.Text?=?""

Me.Label2.Text?=?""Tus datos son demasiado grandes, por favor adivina nuevamente, ten en cuenta que solo se permiten 3 conjeturas"

ElseIf?TextBox1.Text?lt;?b?Then

js? =?1

Me.TextBox1.Text?=?""

Me .Label2.Text=?""

Me.Label2.Text?=?""Tus datos son demasiado pequeños, por favor adivina de nuevo

Una vez, tenga en cuenta que solo se permiten 3 conjeturas"

¿Fin?Si

Fin?Si

Fin?Si

Fin? If

Fin?Si

Fin?Sub

Privado?Sub?Button3_Click( ByVal?sender?As?System.Object, ByVal?e?As? System. EventArgs)?Inicio"

Me.Button2.Text?=?"Return"

Me.TextBox1.Text?=?""

Yo .Button3 .Visible?=?False

Me.TextBox1.Visible?=?False

Me.Label2.Text?=?"

Yo.Button1 .Visible ?=?True

Yo.Button2.Visible?=?True

End?Sub

Fin?Class

Solo lo probé y se compila en VB

Te lo pasaré si lo necesitas.