问题
单项选择题
在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，再编写如下程序：
Dim ss As String
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii)＜＞ "" Then ss=ss+Chr(KeyAscii)
End Sub
Private Sub Command1_Click()
Dim m As String, i As 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 100
D．001 REMBUN
答案
参考答案：D
解析： Text1_KeyPress事件过程是把每输入的非空字符连接到变量ss中，输入完成后变量ss的值为"Number 100"，Command1_Click事件过程中，通过循环从字符串的结尾len(ss)开始依次向前每次取一个字符出来并连接到m变量中，实际就是将字符串"Number 100"倒置变为"001 rebmuN"，再通过Ucase函数将字符串中的小写字母转换为大写字母，结果为"001 REMBUN"。