A.Private Sub Text1_KeyPress(KeyAscii As Intege If KeyAscii<65 Or KeyAscii>90 Then MsgBox"请输入大写字母" KeyAscii=0 End If End Sub B.Private Sub Text1_KeyDown(Keycode As Integer, Shift As Intege If KeyCode<65 Or Keycode>90 Then MsgBox"请输入大写字母" KcyCode=0 End If End Sub C.Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Singl If Asc(Text1. Tex<65 Or Asc(Text1. Tex>90 Then MsgBox"请输入大写字母" End If End Sub D.Private Sub Text1_Change() If Asc(Text1. Tex>64 Or Asc(Text1. Tex<91 Then MsgBox"请输入大写字母" End If End Sub