在窗体上画一个名称为Text1的文本框,要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是
A.Private Sub Text1_KeyPress(KeyAscii As Intege If Key Ascii<65 Or KeyAscii>90 Then MsgBox“请输入大写字母” KeyAscii=0 End If End Sub
B.Pfivate Sub Text1_KeyDown(KeyCode As Integer,Shift As Intege 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 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 And Asc(Text1.Tex<91 Then MsgBox“请输入大写字母” End If End Sub
参考答案:A
解析: 本题主要考查KeyPress与KeyDown等事件的区别。KeyPress的参数 KeyAscii对应不同的字符,它与KeyDown的参数 KeyCode有本质上的区别。KeyCode对应键的ASCII码,不区分大小写。根据题目要求,文本框的事件要区分字母的大小写,故答案B是错误的,A正确。 C与D错误在于Text1的事件与题目要求不符。 MouseDown表示是否按下鼠标,Change表示文本框内容是否发生变化。