VB guess number game source code?

Dim? b？ As? integer

Dim? js？ As? integer

Private? Sub？ Button 1_Click(ByVal？ Sender? As? System. Object? ByVal？ e？ As? System. EventArgs)？ Handle? Button 1. click

What if? Me. Button 1. Words? =? "Start"? then

Dim? Answer? As? Integer? =? MsgBox ("Is the game ready"? MsgBoxStyle。 Isn't it? "hint!" )

What if? Answer? =? 6? then

js？ =? 1

Me. Button 1. Words? =? "ok"

Me. Button 2. Text? =? "Return"

Me. Label2. Text? =? "I have a positive integer from 1 to 10. Guess what it is. "

Me. Text box 1. Visible? =? real

Randomization ()

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

other

Quit submarine

End? if

other

What if? Me. Text box 1. Text. Trim? =? ""? Or? Asc (me. Text box 1. Text)? & lt？ 19? Or? Asc (me. Text box 1. Text)? & gt？ 57? then

MsgBox ("Please enter a number")

Quit submarine

other

What if? js？ =? 3? then

MsgBox ("Sorry, you have exceeded 3 times, please start again")

Me. Button 1. Words? =? "Go"

Me. Button 2. Text? =? "quit"

Me. Text box 1. Visible? =? wrong

Me. Label2. Text? =? ""

other

What if? Me. Text box 1. Words? =? b？ then

Me. Label2. Text? =? "You are lucky to have guessed right."

Me. Button 1. Visible? =? wrong

Me. Button 2. Visible? =? wrong

Me. Button 3. Visible? =? real

Elser? Text box 1. Words? & gt？ b？ then

js？ +=? 1

Me. Text box 1. Words? =? ""

Me. Label2. Text? =? "Your data is too big, please guess again. Please note that only three guesses are allowed.

Elser? Text box 1. Words? & lt？ b？ then

js？ +=? 1

Me. Text box 1. Words? =? ""

Me. Label2. Text? =? "Your data is too small, please guess again. Please note that only three guesses are allowed.

End? if

End? if

End? if

End? if

End? submarine

Private? Sub？ Button3_Click(ByVal？ Sender? As? System. Object? ByVal？ e？ As? System. EventArgs)？ Handle? Button 3. click

Me. Button 1. Words? =? "Go"

Me. Button 2. Text? =? "Return"

Me. Text box 1. Words? =? ""

Me. Button 3. Visible? =? wrong

Me. Text box 1. Visible? =? wrong

Me. Label2. Text? =? ""

Me. Button 1. Visible? =? real

Me. Button 2. Visible? =? real

End? submarine

End? classes

I'm just trying to compile it in VB.

I'll send it to you if you need it.