Dim ssAs String Private Sub Text1_KeyPress(KeyAsciiAs Integer) IfChr(KeyAseii) < > Then ss = ss +Chr(KeyAseii) End Sub Private SubCommand1_Click() Dim mAs String, iAs Integer For i = Len(ss) To 1 Step - 1 m =m +Mid(ss, i, 1) Next Text1. Text = UCase(m) End Sub 程序运行后,在文本框中输入“Number 100”,并单击命令按钮,则文本框中显示的是()。 A、NUMBER 100 B、REBMUN C、REBMUN 100D、001 REBMUN