作业帮 > 综合 > 作业

VB的年份判定combo1 为 年份 combo2 为 月份 combo3 为 日比如单击combo1选择list 20

来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/07/22 17:00:43
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 20
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 Su