单选题
在窗体上画1个命令按钮和1个文本框,其名称分别为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 REBMUN
【正确答案】
D
【答案解析】[考点] KeyPress事件、字符串函数和For循环控制结构
[解析] KeyPress(KeyAscii As Integer)事件是在对象具有焦点时,按下键盘上的键触发的,KeyPress(KeyAscii As Inleger)事件中KeyAscii参数是所按键的ASCII代码,该参数不显示键盘的物理状态,而只是传递一个字符代码。KeyPress将每个字符的大、小写形式作为不同的键代码解释,即作为两种不同的字符。Chr()可返回ASCII码对应的字符。
本题程序运行后,在文本框中每输入一个字符,将执行一次Text1_KeyPress事件过程,变量ss的值也随即变化,当输入“Number100”后,变量ss="Number100"。单击命令按钮后,执行Command1_Click事件过程,将字符串“Number100”中的字符逆序排列并以大写形式显示在文本框中,即“001 REBMUN”。