单选题
窗体上有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 IfEnd Sub程序运行后,单击命令按钮Commandl,并输入“Happy new year”,则在Lis1中显示的内容为