2. 计算机
  3. 窗体上有1个名称为Commandl的命令按钮；1个名称为List1、没有列表项的列表框。编写如下程序： Private Sub Commandl_Click() Dim x As String，s As String，temp As Str

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

admin2020-01-02  55
问题 窗体上有1个名称为Commandl的命令按钮；1个名称为List1、没有列表项的列表框。编写如下程序：
    Private Sub Commandl_Click()
    Dim x As String，s As String，temp As 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  
       List 1．AddItem temp
       s=""：temp=""
    End If
   Next
   List 1．AddItem temp
  Else
          MsgBox”输入内容为空!”
    End If
End Sub
    程序运行后，单击命令按钮Command1，并输入“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://www.kaotiyun.com/show/9LTp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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