code93b.txt

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

Public Sub Main ()
  Dim I as Integer,  StringVar as String * 10

  StringVar = "A" 
  For I = 66 to 90
     StringVar = Trim(StringVar) & Chr(I)
  Next
  Debug.Print "The string contains"