在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，再编写如下程序：Dim ssAs String Private Sub Text1_KeyPress(KeyAsciiAs Integer)IfChr(KeyAscii) ＜＞"" Then ss=ss+Chr(KeyAscii) 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 运行程序后，在文本框中输入“Number100”，并单击命令按钮，则文本框中显示的是A、NUMBER 100 B、REBMUN C、REBMUN 100 D、001 REBMUN