在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是（ ）。

A．Private Sub Text1_KeyPress（KeyAscii As Integer）

 If KeyAscii < 65 Or KeyAscii > 90 Then

 MsgBox "请输入大写字母"

 KeyAscii = 0

 End If

 End Sub

B．Private Sub Text1_KeyDown（KeyCode As Integer, Shift As Integer）

 If KeyCode < 65 Or KeyCode > 90 Then

 MsgBox "请输入大写字母"

 KeyCode = 0

 End If

 End Sub

C．Private Sub Text1_MouseDown（Button As Integer, Shift As Integer, X As Single, Y As Single）

 If Asc（Text1.Text） < 65 Or Asc（Text1.Text） > 90 Then

 MsgBox "请输入大写字母"

 End If

 End Sub

D．Private Sub Text1_Change（）

 If Asc（Text1.Text） > 64 And Asc（Text1.Text） < 91 Then

 MsgBox "请输入大写字母"

 End If

 End Sub