在窗体上有一个文本框，其名称为Text1，编写下列事件过程：Private

问题：

[单选] 在窗体上有一个文本框，其名称为Text1，编写下列事件过程：

Private Sub Text1＿KeyPress（KeyAscii As Integer）

Di mstr As Stri ng

str ＝Chr（KeyAscii）

KeyAscii ＝Asc（UCase（str））

Text1．Text ＝Stri ng（2，KeyAscii）

End Sub

程序运行后，如果在键盘上输入字母"a"，则在文本框Text3中显示的内容为（　　）。

A . aaa

B . AAA

C . AA

D . aa

B

UCase（str）将str 转成大写的字符串；Stri ng（n ，character）返回n 个重复的字符，如果character 是ASCII 码，则返回其对应的字符。程序运行过程为：首先输入字母"a"，并通过"str ＝Chr（KeyAscii）"语句将a 的ASCII值转换成字符串；然后通过＂KeyAscii ＝Asc（UCase（str））"求得大写A 的ASCII 值，并显示在文本框中；最后通过"Text1．Text ：Stri ng（2，KeyAscii ）"语句为文本框输入了两个字母"A"，所以最后在文本框中显示出3个大写字母"A"。