VB的年份判定combo1 为 年份 combo2 为 月份 combo3 为 日比如单击combo1选择list 2011 or 2012 判定是否是闰年 是的话 combo2 list 2月则 combo3 的list 只有28天 不是闰年则 有29天 combo2的月份大小!1月大二月
来源:学生作业帮助网 编辑:作业帮 时间:2024/11/06 11:35:11
VB的年份判定combo1 为 年份 combo2 为 月份 combo3 为 日比如单击combo1选择list 2011 or 2012 判定是否是闰年 是的话 combo2 list 2月则 combo3 的list 只有28天 不是闰年则 有29天 combo2的月份大小!1月大二月
VB的年份判定
combo1 为 年份 combo2 为 月份 combo3 为 日
比如单击combo1选择list 2011 or 2012 判定是否是闰年 是的话 combo2 list 2月则 combo3 的list 只有28天 不是闰年则 有29天
combo2的月份大小!1月大二月小……combo3的日数变化!
VB的年份判定combo1 为 年份 combo2 为 月份 combo3 为 日比如单击combo1选择list 2011 or 2012 判定是否是闰年 是的话 combo2 list 2月则 combo3 的list 只有28天 不是闰年则 有29天 combo2的月份大小!1月大二月
Private Sub Combo2_Click()
Dim ri, i As Integer
Select Case Combo2.ListIndex + 1
Case 1, 3, 5, 7, 8, 10, 12
ri = 31
Case 4, 6, 9, 11
ri = 30
Case 2
i = CInt(Combo1.Text)
If i Mod 400 = 0 Or (i Mod 4 = 0 And i Mod 100 0) Then ri = 29 Else ri = 28
End Select
Combo3.Clear
For i = 1 To ri
Combo3.AddItem i
Next
End Sub