在窗体上画一个文本框，然后编写如下事件过程：
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．AAA

溃疡性结肠炎（）

A．全腹及脐周痛

B．左下腹痛，伴里急后重，便后缓解

C．腰骶部放射痛

D．右下腹痛，餐后发生，便后缓解