问题
填空题
在窗体文本框Text 1中输入“456AbC”后,立即窗口上输出的结果是______。
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case Key KeyAscii
Case 97 To 122
Debug.Print Ucase(Chr(KeyAscii));
Case 65 To 90
Debug.Print Lcase(Chr(KeyAscii));
Case 48 To 57
Debug.Print Chr(KeyAscii);
Case Else
KeyrAscii=0
End Select
End Sub
答案
参考答案:456aBc
解析: 本题考查的是VBA编程基础和几个函数。KeyPress事件是当键盘按下某个键后的所执行的事件,其参数KeyAscii值为按下键所对应的ASCII值,Chr(KeyAscii(i))可以将相应的数值转换成字符,而ucastj是将小写字符转换成大写,而Lcase是将小写转换成大写。另外,ASCII值48~57是数字0~9,65~90是字母A~Z,97~122是字母a~z。因此,该题的答案应该是456aBc。