大学vb问题求大神回答: 窗体中有两个列表框和一个命令按钮，单击命令按钮，列表框1的所有项逆序添加

Option Explicit

Private Sub Command1_Click()

    Dim i As Integer

    Dim j As Integer

    i = List1.ListCount - 1

    For j = i To 0 Step -1

        List2.AddItem List1.List(j)

    Next

End Sub

Private Sub Form_Load()

    Dim i As Integer

    For i = 0 To 9

        List1.AddItem i

    Next

End Sub

效果图：

程序在附件里，自己下载

'添加两个文本框Text1和Text2，一个按钮Command1

'Text1输入文字，单击按钮Command1时Text2输出文字

Private Sub Command1_Click()

    Dim str1 As String

    Dim str2 As String

    Dim i As Integer

    str1 = Text1

    For i = Len(str1) To 1 Step -1

        str2 = str2 & Mid(str1, i, 1)

    Next

    Text2 = str2

End Sub

---