在窗体上画1名为Command1的命令按钮和1名Text1的文本框,再编写如下程序: Dim ss As String Private Sub Commandl_Click() Private Sub

admin2017-06-21  23

问题 在窗体上画1名为Command1的命令按钮和1名Text1的文本框,再编写如下程序:
Dim ss As String                             Private Sub Commandl_Click()
Private Sub Text1_KeyPress(KeyAscii_            Dim m As String,i As Integer
  As Integer)                                   For i=Len(ss)To 1 Step-1
  If Chr(KeyAscii)<>""Then                        m=m+Mid(ss,i,1)
  ss=ss+Chr(KeyAscii)                            Next
End Sub                                         Text 1.Text=UCase(m)
                                             End Sub
程序运行后,在文本框中输入“Number 100”,并单击命令按钮,则文本框中显示的是

选项 A、NUMBER 100
B、REBMUN
C、REBMUN 100
D、001 REBMUN

答案D

解析 KeyPress(KeyAscii As Integer)事件是在对象具有焦点时,按下键盘上的键触发的,KeyPress(KeyAscii As Integer)事件中KeyAscii参数是所按键的ASCII代码,该参数不显示键盘的物理状态,而只是传递一个字符代码。KeyPress将每个字符的大、小写形式作为不同的键代码解释,即作为两种不同的字符。Chr()可返回ASCII码对应的字符。本题程序运行后,在文本框中每输入一个字符,将执行Text1 KeyPress事件过程,变量ss的值也随即变化,当输入“Number100”后,变量ss="Numberl00"。单击命令按钮后,执一行Commandl_Click事件过程,将字符串“Number100”中的字符逆序排列并以大写形式显示在文本框中,即“001 REBMIJN”。
转载请注明原文地址:https://kaotiyun.com/show/dJGp777K
0

最新回复(0)