combo控件问题

Question

combo2为月，combo3为日。代码：
Private Sub Combo2_click()
'生成可随大小月变化的日期
Dim i As Integer
Dim n As Integer
For i = 0 To 30
Combo3.List(i) = ""
Next i
n = Combo2.ListIndex
Select Case n
Case 0, 2, 4, 6, 7, 9, 11 '当月份为大月时
For i = 0 To 30
Combo3.List(i) = i + 1
Next i
Case 1 '当月份为二月时
For i = 0 To 27
Combo3.List(i) = i + 1
Next i
Combo3.List(28) = "-"
Combo3.List(29) = "-"
Combo3.List(30) = "-"
Case Else '当月份为小月时
For i = 0 To 29
Combo3.List(i) = i + 1
Next i
Combo3.List(30) = "-"
End Select
End Sub
为什么运行时combo2,3下拉菜单为空白？

Answer 1

可以用代码添加，也可以在设计的时候在List属性添加，添加那个表示月的Combo就可以了
List属性，添加1到12，每输入一个按一下Ctrl+回车，运行。
或者代码
Private Sub Form_Load()
    Dim i As Integer
    For i = 1 To 12
        Combo2.AddItem CStr(i)
    Next i
End Sub