code230a.txt

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

Option Base 1

Public Sub Main()
  Dim Weekdays(7) As String
  Dim I as Integer

  Weekdays(1) = "Sunday"
  Weekdays(2) = "Monday"
  Weekdays(3) = "Tuesday"
  Weekdays(4) = "Wednesday"
  Weekdays(5) = "Thursday"
  Weekdays(6) = "Friday"
  Weekdays(7) = "Saturday"
  For I = 1 to 7 
    Debug.Print "Weekdays(" ; I ;") contains ", Weekdays(i)
  Next
End Sub