If Chr(KeyAscii)<>""Then ss=ss+Chr(KeyAscii)End SubPrivate Sub Command1 Click(Dim m As String,i As IntegerFor i=Len(ss)To 1 Step -1m=m+Mid(ss,i,1)NextText1.Text=UCase(m)End Sub程序运行后，在文本框中输入"Number100",并单击命令按钮，则文本框中显示的是A、NUMBER1O0B、REBMUNC、REBMUN100D、O01 REBMUN【答案】D【解析】程序运行后，在文本框中每输入一个字符，就触发一次Text1的KeyPress事件，此事件字符，当Chr(KeyAscii不为空格时，则将输入的字符相连，其实这个事件过程相当于去除输入文本框中字符串的空格，所以输入"Number100"后，ss变量接收到的是"Number.100"。然后单击命令按钮，调用Command1的单击事件，For循环是将字符串前后调换位置，m的值就为"001 rebmuN",UCase(m)是将小写字母转换成大写字母，最后文本框中显示的是001 REBMUN,所以选项D是正确的。4、设窗体上有一个通用对话框控件CD1,希望在执行下面程序时，打开如图所示的文件对话框Private Sub Command1 Click(