窗体上有1个名称为Commandl的命令按钮;1个名称为Listl、没有列表项的列表框。编写如下程序: Private Sub Command l_Click() Dim x As String,s As String,temp

admin2013-10-16  28

问题 窗体上有1个名称为Commandl的命令按钮;1个名称为Listl、没有列表项的列表框。编写如下程序:
    Private Sub Command l_Click()
          Dim x As String,s As String,temp As String
          Dim i As Integer
          x=InputBox(”输入字符串”,”输入”)
          If x<>””Then
               For i=Len(x)To 1 Step-1
               s=Mid(x,i,1)
               If s<>""Then
                     temp=s+temp
               Else
                     List 1.Addltem temp
                     s=""
                     temp=""
               End If
               Next
               List 1.Addltem temp
          Else
               MsgBox”输入内容为空!”
          End If
    End Sub
    程序运行后,单击命令按钮Commandl,并输入“Happy new year”,则在List1中显示的内容为

选项 A、year new Happy   
B、Happy new year
C、raey wen yppaH
D、yppaH wen raey

答案A

解析 本题的循环中倒序从字符串s中依次取出每一个字符,只要该字符不是空格就将其连接到temp的前面,见到空格就把连接好的temp加入到列表框中,即先加入year,然后是new,最后是Happy。
转载请注明原文地址:https://jikaoti.com/ti/wJ60FFFM
0

最新回复(0)