单项选择题

在窗体上画一个文本框,其名称为Text1,然后编写如下事件过程: Private Sub Text1_KeyPress(KeyAscii As Integer) Dim str As String   Str=Chr(KeyAscii)   KeyAscii=Asc(UCase(str))   Text1.Text=String(2,KeyAscii) End Sub 程序运行后,如果在键盘上输入字母"b",则在文本框Text1中显示的内容是

A.bbb
B.BBB
C.BB
D.bb