在窗体上画1个命令按钮和1个文本框,其名称分别为Commandl和Textl,再编写如下程序: Dim SS As String Private Sub Textl_KeyPress(KeyAscii As Integer)

admin2013-11-29  32

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

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

答案D

解析 题目中程序是将ss字符串进行反向排列,并放到m中去。其中Number空格后的100被当成字符串来处理,最后结果是将“Number 100”反向排列,并通过ucase()函数将所有字母转换成大写,得到00l REBMuN。
转载请注明原文地址:https://jikaoti.com/ti/tB60FFFM
0

随机试题
最新回复(0)