D.im ss As String
Private Sub Text1_KeyPress(KeyAscii As integer)
If chr(KeyAscii)<> ”” Then ss=ss+chr(KeyAscii)
E.nd Sub
Private Sub Command1_Click()
D.im m As String,i As Integer
F.or i=Len(ss) To 1 step -1
m=m+Mid(ss,i,1)
Next
Text1.Text=Ucase(m)
E.nd Sub
程序运行后,在文本框中输入 “ Number100 ” ,并单击命令按钮,则文本框中显示的是
A. ) NUMBER 100
B. ) REBMUN
C. ) REBMUN 100
D. ) 001 REBMUN