在窗体上画1个命令按钮和1个文本框,其名称分别为Command1和Text1,再编写如下程序: Dim ss As String Private Sub Text1_KeyPress(KeyAseii As Integer) If

admin2020-06-30  25

问题 在窗体上画1个命令按钮和1个文本框,其名称分别为Command1和Text1,再编写如下程序:
    Dim ss As String
    Private Sub Text1_KeyPress(KeyAseii As Integer)
    If Chr(KeyAseii)<>""Then ss=ss+Chr(KeyAscii)
    End Sub
    Prirate 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、REBlVIUN
C、REBMUN 100
D、001 REBMUN

答案D

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

最新回复(0)