Public Class Tester
Public Shared Sub Main
Dim DaysOfTheWeek() As String
ReDim DaysOfTheWeek(7)
DaysOfTheWeek(0) = "Monday"
DaysOfTheWeek(1) = "Tuesday"
DaysOfTheWeek(2) = "Wednesday"
DaysOfTheWeek(3) = "Thursday"
DaysOfTheWeek(4) = "Friday"
DaysOfTheWeek(5) = "Saturday"
DaysOfTheWeek(6) = "Sunday"
Console.WriteLine(DaysOfTheWeek( 1))
End Sub
End Class
|