暗淡？b？作為？整數
暗淡？js？作為？整數
私人？Sub？Button1_Click(ByVal？寄件人？作為？系統。對象，？ByVal？e？作為？系統。EventArgs)？手柄？按鈕1。點擊
如果？我。按鈕1。文字？=?“開始”？然後
暗淡？答？作為？整數？=?MsgBox("遊戲準備好了嗎"？MsgBoxStyle。是不是？“提示！”)
如果？答？=?6?然後
js？=?1
我。按鈕1。文字？=?“好的”
我。按鈕2 .文本？=?“返回”
我。Label2 .文本？=?“我這裏有壹個從1到10的正整數。猜猜是什麽。”
我。文本框1。可見？=?真實的
隨機化()
b？=?Int(Rnd()？*?9?+?1)
其他
退出？潛水艇
結束？如果
其他
如果？我。文本框1。文本。修剪？=?""?還是？Asc(我。文本框1。正文)？& lt？19?還是？Asc(我。文本框1。正文)？& gt？57?然後
MsgBox("請輸入壹個數字")
退出？潛水艇
其他
如果？js？=?3?然後
MsgBox("對不起，您已經超過3次，請重新開始")
我。按鈕1。文字？=?“走”
我。按鈕2 .文本？=?“退出”
我。文本框1。可見？=?錯誤的
我。Label2 .文本？=?""
其他
如果？我。文本框1。文字？=?b？然後
我。Label2 .文本？=?"妳很幸運猜對了。"
我。按鈕1。可見？=?錯誤的
我。按鈕2 .可見？=?錯誤的
我。按鈕3 .可見？=?真實的
埃爾瑟夫？文本框1。文字？& gt？b？然後
js？+=?1
我。文本框1。文字？=?""
我。Label2 .文本？=?“妳的數據太大，請再猜壹次。請註意，只允許猜三次。
埃爾瑟夫？文本框1。文字？& lt？b？然後
js？+=?1
我。文本框1。文字？=?""
我。Label2 .文本？=?“妳的數據太小，請再猜壹次。請註意，只允許猜三次。
結束？如果
結束？如果
結束？如果
結束？如果
結束？潛水艇
私人？Sub？Button3_Click(ByVal？寄件人？作為？系統。對象，？ByVal？e？作為？系統。EventArgs)？手柄？按鈕3。點擊
我。按鈕1。文字？=?“走”
我。按鈕2 .文本？=?“返回”
我。文本框1。文字？=?""
我。按鈕3 .可見？=?錯誤的
我。文本框1。可見？=?錯誤的
我。Label2 .文本？=?""
我。按鈕1。可見？=?真實的
我。按鈕2 .可見？=?真實的
結束？潛水艇
結束？班級
我只是試著用VB編譯壹下。
如果妳需要，我會寄給妳。