1。怎麼才能使在輸入三次數字後結束程式。你要加一個計數器變數，並且要定義為全域性變數或者靜態變數，每次輸入數字後增加1，並且判斷是否大於3，end結束程式----2.怎麼辨別輸進的字元為數字而不是字母，並且還要在輸入字母后要談出一個msgbox顯示 請輸入數字以下程式碼可以讓使用者只能輸入數字，輸入其他字元時text不響應：Private Sub Text3_KeyPress(KeyAscii As Integer)If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then KeyAscii = 0End If要求允許輸入字母的話，可以用以下程式碼：Private Sub Text1_KeyPress(KeyAscii As Integer)If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then MsgBox "只能輸入數字": Text1.Text = ""End Sub 完整程式如下：Dim aPrivate Sub Command1_Click()Dim t As Integer, n As IntegerRandomizet = Int(Rnd * 10 + 1)n = Val(Text1.Text)a = a + 1If a < 3 ThenIf t = n ThenMsgBox "猜對了"ElseIf t > n ThenMsgBox "你所猜的數字偏小，您一共只有三次機會"Text1.Text = ""Text1.SetFocusElseMsgBox "您所猜的數字偏大，您一共只有三次機會"Text1.Text = ""Text1.SetFocusEnd IfElseMsgBox "三次機會已經用完，程式結束！"EndEnd IfEnd SubPrivate Sub Text3_KeyPress(KeyAscii As Integer)If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then KeyAscii = 0End If