问题
单项选择题
在窗体上画一个文本框，然后编写如下事件过程。当该程序运行后，如果在键盘上输入字母e，则文本框中显示的内容为 ______。
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim char as String
char=Chr(KeyAscii)
KeyAscii=Asc(UCase(char))
Text1.Text=String(5，KeyAscii)
End Sub
A．eeeee
B．EEEEE
C．eeeeee
D．EEEEEE
答案
参考答案：D
解析： 该程序段用到了4个函数，在按了键盘上的某个键(在这里是字母键e)后，Chr函数将得到的键的 Ascii码值(101)转换成该ASCII码值对应的字符(e)，然后利用UCase函数将该字符转换成大写字母(E)，将该大写字母的ASCII码值(利用函数ASC())赋给KeyAscii，最后利用String函数将5个ASCII码值等于 KeyAscii的字符(即5个E)赋给文本框Text1，此时文本框中将显示5个E，又因为KeyPress事件本身会在文本框中显示/输入一个ASCII码值为KeyAscii的字符(E)，因此最后在文本框中将显示6个大写字母E。