设计表单form1,表单中有命令按钮command1
发布网友
发布时间:2022-05-09 20:43
我来回答
共1个回答
热心网友
时间:2023-10-18 18:28
Private Sub Command1_Click()
For i = 1920 To 2220
List1.AddItem CStr(i) & "-6-1"
Next
For i = 0 To List1.ListCount - 1
If Weekday(CDate(List1.List(i))) = 6 Then
n = n + 1
End If
Next
Label1.Caption = n
End Sub