问题
填空题
在窗体文本框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。