code93a.txt

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

Public Sub Main ()
  Dim StringVar as String
  Dim I as Integer

  For I = 65 to 90
     StringVar = StringVar & Chr(I)
  Next
  Debug.Print "The string contains " & StringVar
End Sub