字串的上下左右方向控制

'字串的上下左右方向控制
Module Module1
    Dim i
    Sub Main()
        Dim str1 = "明天會更好"

        For i = 1 To 5
            Console.Write(Mid(str1, i, 1))
        Next

        Console.WriteLine()
        Console.WriteLine()
        For i = 5 To 1 Step -1
            Console.Write(Mid(str1, i, 1))
        Next

        Console.WriteLine()
        Console.WriteLine()
        For i = 1 To 5
            Console.WriteLine(Mid(str1, i, 1))
        Next

        Console.WriteLine()
        For i = 5 To 1 Step -1
            Console.WriteLine(Mid(str1, i, 1))
        Next

        Console.Read()
    End Sub
End Module