A.Private Sub Text1_ KeyPress (KeyAscii As Intege IfKeyAscii < 65 Or KeyAscii > 9t Then MsgBox “请输入大写字母” End If End sub B.Private Sub Text1_ KeyDown (KeyCode As Integer, Shift As Intege IfKeyCode < 65 Or KeyCode > 91 Then MsgBox “请输入大写字母” End If End sub C.Private Sub Text1_ MouseDown (Button As Integer, _ Shift As Integer, X As Single, YAs Singl IfAsc (Text1.Tex < 65 Or Asc (Text1. Tex > 91 Then MsgBox “请输入大写字母” End If End sub D.Private Sub Text1_ Change() IfAsc(Text 1.Tex < 65 Or Asc(Text1. Tex > 91 Then MsgBox “请输入大写字母” End If End sub