题目
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
为了保护您的账号安全,请在“赏学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!