If Index = 1 Then
Combo日期(2).Clear
Select Case Combo日期(1).Text
Case 1, 3, 5, 7, 8, 10, 12
For j = 1 To 31
Combo日期(2).AddItem j
Next j
Case 4, 6, 9, 11
For j = 1 To 30
Combo日期(2).AddItem j
Next j
Case 2
For j = 1 To 29
Combo日期(2).AddItem j
Next j
End Select
End If
Combo日期(2).Text = Combo日期(2).List(0)
End Sub
Private Sub Form_Load()
Dim i, j As Integer
Combo日期(0).Text = Year(Date)
Combo日期(1).Text = Month(Date)
Combo日期(2).Text = Day(Date)
Label當前日期.Caption = "當前日期：" & Year(Date) & " 年 " & Month(Date) & " 月 " & Day(Date) & " 日"
For i = 2010 To 2020
Combo日期(0).AddItem i
Next i
For i = 1 To 12
Combo日期(1).AddItem i
Next i
Select Case Combo日期(1).Text
Case Combo日期(1).Text = 1, 3, 5, 7, 8, 10, 12
For j = 1 To 31
Combo日期(2).AddItem j
Next j
Case Combo日期(1).Text = 4, 6, 9, 11
For j = 1 To 30
Combo日期(2).AddItem j
Next j
Case Combo日期(1).Text = 2
For j = 1 To 29
Combo日期(2).AddItem j
Next j
End Select
End Sub