VB怎样实现这样的判断

Option Explicit

Private Sub Form_Load()
Dim I As Integer, J As Integer, K As Date
For I = 1 To Day(DateAdd("d", -1, Year(Now) & "-" & Month(Now) + 1))
K = Year(Now) & "-" & Month(Now) & "-" & I
If Weekday(K) = 1 Or Weekday(K) = 7 Then J = J + 1
Next
MsgBox Year(Now) & "年" & Month(Now) & "月有" & J & "个双休日"
End Sub

晕..这个要用到的算法不简单吧...

你先要用算法判断出当前月第一天是星期几...[这个算法有听过..没用过..]

再根据这个..算出有几个双休日