VB程式設計：Enum建立包含12個月的枚舉類型

程式代碼：

Option Explicit

Public Enum Month

   jan = 1

   feb = 2

   mar = 3

   apr = 4

   may = 5

   jun = 6

   jul = 7

   aug = 8

   sep = 9

   Oct = 10

   nov = 11

   dec = 12

End Enum

Private Sub Form_Load()

   Text1.Text = Month.jan & "月份" _

                & Month.jan & "月份" _

                & Month.feb & "月份" _

                & Month.mar & "月份" _

                & Month.apr & "月份" _

                & Month.may & "月份" _

                & Month.jun & "月份" _

                & Month.jul & "月份" _

                & Month.aug & "月份" _

                & Month.sep & "月份" _

                & Month.Oct & "月份" _

                & Month.nov & "月份" _

                & Month.dec & "月份"

End Sub

編寫總結：

   “ _”=>>“空格下劃線”,續行符。類似于英文中的連字元。