这个循环如何写?一定给分!

Question

Private Sub Command1_Click()
Dim curM, curY, M, Y As Integer
curM = Month(Date)
curY = Year(Date)
For i = 0 To 5
  M = (curM + 12 - i - 1) Mod 12 + 1
  If (curM - i) <= 0 Then
    Y = curY - 1
  Else
    Y = curY
  End If
  If M < 10 Then
    MsgBox CStr(Y) & "0" & CStr(M)
    Else
    MsgBox CStr(Y) & CStr(M)
  End If
Next
End Sub

Answer 1

Private Sub Command1_Click()
    Dim i As Integer
    For i = 0 To -5 Step -1
        MsgBox Format(DateAdd("m", i, Date), "YYMM")
    Next
End Sub