在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能够正确实现该操作

A．Private Sub Text1_ KeyPress (KeyAscii As Integer) IfKeyAscii ＜ 65 Or KeyAscii ＞ 9t Then MsgBox “请输入大写字母” End If End sub

B．Private Sub Text1_ KeyDown (KeyCode As Integer, Shift As Integer) 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 SinglE)IfAsc (Text1.Text) ＜ 65 Or Asc (Text1. Text) ＞ 91 Then MsgBox “请输入大写字母” End If End sub

D．Private Sub Text1_ Change() IfAsc(Text 1.Text) ＜ 65 Or Asc(Text1. Text) ＞ 91 Then MsgBox “请输入大写字母” End If End sub