在窗体上画一个文本框，其名称为Text1，然后编写如下事件过程： Private
题型：单项选择题
问题：
在窗体上画一个文本框，其名称为Text1，然后编写如下事件过程：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim sb As String
Str=Chr(KcyAscii)
KeyAscii=Asc(UCase(str))
Text1.Text=String(2，KeyAscii)
End Sub
程序运行后，如果在键盘上输入字母“b”，则在文本框Text1中显示的内容是
A．bbb
B．BBB
C．BB
D．bb