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

admin2020-04-18  31

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

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

答案A

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

随机试题
最新回复(0)