粮食行政管理部门作出什么处罚决定之前，应当告知当事人有要求举行听证的权利？

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

A．bbb

B．BBB

C．BB

D．bb