code107a.txt

来自「VB大全（精华版）源代码」· 文本 代码 · 共 20 行

Public Sub Main()
  Dim FrontString, BackString as String
  Dim Counter as Integer

  FrontString ="1001 Visual Basic Programmer's Tips

  For Counter = Len(FrontString) to 1 Step -1
    BackString = BackString & Mid(FrontString, Counter, 1)
  Next
  Debug.Print FrontString
  Debug.Print BackString
  FrontString =" "

  For Counter = Len(BackString) to 1 Step -1
    FrontString = FrontString & Mid(BackString, Counter, 1)
  Next
  Debug.Print BackString
  Debug.Print FrontString
End Sub