2. 计算机
  3. 窗体上有1个名称为Command1的命令按钮；1个名称为List1、没有列表项的列表框。编写如下程序： Private Sub Commandl Click() Dim xAs String，sAs String，tempAs St

窗体上有1个名称为Command1的命令按钮；1个名称为List1、没有列表项的列表框。编写如下程序： Private Sub Commandl Click() Dim xAs String，sAs String，tempAs St

admin2017-11-23  55
问题 窗体上有1个名称为Command1的命令按钮；1个名称为List1、没有列表项的列表框。编写如下程序：
    Private Sub Commandl Click()
       Dim xAs String，sAs String，tempAs String
       Dim i As 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．Addltem temp
Else
     MsgBox”输入内容为空!”
   End If
End Sub
    程序运行后，单击命令按钮Command1，并输入“Happy new year”，则在List1中显示的内容为
选项 A、year new Happy
B、Happy new year
C、racy wen yppaH
D、yppaH wen raey
答案A
解析 本题的循环中倒序从字符串s中依次取出每一个字符，只要该字符不是空格就将其连接到temp的前面，见到空格就把连接好的temp加入到列表框中，即先加入year，然后是new，最后是Happy。
转载请注明原文地址:https://www.kaotiyun.com/show/ryGp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)