VB函數返回數組

Public Function GetMissWeeks() As Integer()--返回數組，所以Integer加()
  Dim i As Integer --聲明循環變量i為Int類型
  Dim Array(50) As Integer --聲明數組為Int類型，50代表最大的數值，即數組從【0】到【50】
  For i=0 to 50 --循環給數組array[0]-a[50]插入數據
  Array(i) = i+3
  Next
  GetMissWeeks = Array --返回值，數組返回給本身的函數名，效果 = return
--或者 Return Array
End Function