12 lines
192 B
Text
12 lines
192 B
Text
Public Sub Main()
|
|
Dim sString As String = "asdf"
|
|
Dim sOutput As String
|
|
Dim siCount As Short
|
|
|
|
For siCount = Len(sString) DownTo 1
|
|
sOutput &= Mid(sString, siCount, 1)
|
|
Next
|
|
|
|
Print sOutput
|
|
|
|
End
|