[单项选择题] 在窗体上画一个文本框，然后编写如下事件过程： Private Sub Text1

[单项选择题] 在窗体上画一个文本框，然后编写如下事件过程：

Private Sub Text1_KeyPress(KeyAscii As Integer)

Dim char As String

char=Chr(KeyAscii)

KeyAscii=Asc(Ucase(char))

Print String(6，KeyAscii)

End Sub

程序运行后，如果在键盘上输入字母“a”，则在窗体上显示的内容为

A．a

B．A

C．aaaaaa

D．AAAAAA

D解析：[分析]： Chr(x)是将x的值转换为相应的ASCII字符，Asc(x)是返回字符串x中第一个字符的ASCII码，Ucase(“字符串”)将“字符串”中的小写字母转换为大写字母。函数String(n，字符串)的功能是返回由n个指定字符组成的字符串。本程序中是将在文本框中输入的字符都转换成6个大写字符输出。