code87a.txt

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

Public Sub Main()
  Dim StringArray(5) As String
  Dim I As Integer						'  Counter variable.

  StringArray(0) = "1001 VB Programmer's Tips"
  StringArray(1) = "By Kris Jamsa, PhD"
  StringArray(2) = "And Lars Klander"
  StringArray(3) = "Happy"
  StringArray(4) = "From Jamsa Press"
  StringArray(5) = "August, 1997"
  I = 0								' Initialized
  Do While I < UBound(StringArray)
    If StringArray(I) = "Happy" Then Exit Do
    Debug.Print StringArray(I)
    I = I + 1
  Loop
  Debug.Print "Loop over."
End Sub