VB.NET Do Until循环获取月份名称

Question

我想从Do Until......Loop获取月份名称并显示在CheckedListBox。

我有两张桌子。

1。 MONTH_COUNT

2。 Fees_Ledger

我的月份名称功能......

Function mnthName(ByVal mnth As Integer)
    Dim name As String = String.Empty
    name = MonthName(mnth, False)
    Return name
End Function

获取月份详情

"SELECT FromMonth,ToMonth,MonthCount FROM Month_Count WHERE SemesterNumber='1'"

获得付费点数

"SELECT COUNT(*) AS TotMonthPaidCount FROM Fees_Ledger WHERE SemYear='1' AND FeeId='1'"

因此...

' Got the values from queries


FromMonth = 7 '(July)

ToMonth = 6   '(June)

MonthCount = 12 '(Loop will rotate 12 times)

TotMonthPaidCount = 1 '(FeeId 1 paid one time)

'Declaring an integer variable
Dim StartM As Integer = 1

FromMonth = FromMonth + TotMonthPaidCount

' For the first month
CheckedListBoxMonth.Items.Clear()
CheckedListBoxMonth.Items.Add(mnthName(FromMonth))

' Now the loop to achieve the goal
Do Until StartM = (MonthCount - TotMonthPaidCount)
   If FromMonth >= 12 Then
       FromMonth = 1
       CheckedListBoxMonth.Items.Add(mnthName(FromMonth))
   Else
       FromMonth += 1
       CheckedListBoxMonth.Items.Add(mnthName(FromMonth))
   End If
   StartM += 1
Loop

这Subroutine完全符合我的要求。

但问题发生在StartMonth = FromMonth (6) + TotMonthPaidCount (7)值>12时。由于13或14或15没有月名，因此显示错误。

  

论据＆＃39;月＆＃39;不是有效值。

我想要它如下。

我该怎么办？