code344a.txt

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

Public Enum Weekdays
  Monday
  Tuesday
  Wednesday
  Thursday
  Friday
End Enum

Public Sub Main()
  Dim Day As Weekdays

  For Day = Monday To Friday
    If Day = Monday Then
      Debug.Print "No fun---meetings all day Monday"
    ElseIf Day = Tuesday Then
      Debug.Print "No fun---do Monday's work today"
    ElseIf Day = Wednesday Then
      Debug.Print "Hump day..."
    ElseIf Day = Thursday Then
      Debug.Print "Schedule meetings for next Monday"
    Else
      Debug.Print "Meet everyone at happy hour!"
    End If
  Next
End Sub