數字順序反轉

 

Public Class Form1
    Dim i
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim s = "123456789"
        Dim str1 = ""
        For i = 9 To 1 Step -1
            str1 = str1 + Mid(s, i, 1)
        Next
        MsgBox(str1)
    End Sub
End Class