code97a.txt

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

Public Sub Main()
 Dim Book_Title As String

  Book_Title = " 1001 Visual Basic Programmer's Tips"
  Debug.Print Book_Title & " contains " & Str(Len(Book_Title)) & " characters."
End Sub