どこぞの掲示板で見かけた、おそらくは週末の宿題:
キーボードから入力された文字列を逆順で出力しなさい
ビギナ向けのドリルですねー
素直に考えりゃ文字列を裏返し、そいつをプリントすんのかな。
Sub Reverse()
Dim input As String
Dim result As String
Dim i As Integer
' 一行読んで
input = Console.ReadLine()
' 裏返して
result = ""
For i = 0 To input.Length - 1
result = result & input(input.Length - 1 - i)
Next
' プリントする
Console.WriteLine(result)
End Sub
裏返した文字列を作るんじゃなく、ケツから一文字ずつプリントするもよし:
Sub Reverse()
Dim input As String
Dim i As Integer
' 一行読んで
input = Console.ReadLine()
' ケツからプリント
For i = 0 To input.Length - 1
Console.Write(input(input.Length - 1 - i))
Next
Console.WriteLine()
End Sub
ちょびっとひねくれよう。
頭一文字を除いた文字列を裏返し、頭の文字をプリントする:
' input を逆順にプリント
Sub etirW(ByVal input As String)
If input.Length <> 0 Then
etirW(input.Substring(1)) ' 頭を除いて裏返し、
Console.Write(input(0)) ' 頭をプリント
Else
Console.WriteLine()
End If
End Sub
Sub Reverse()
etirW(Console.ReadLine())
End Sub
夜も更けるとくだらんコードで遊びます...