一个月最多有5个星期，一年中，最多有几个月有5个星期

366/7=53星期

除去每个月必有的四个星期 53-12×4=5

所以一年最多有5个月有5个星期

一年52个周、幸运52阿呵呵
一共有四个月是5个周

366/7=53星期

除去每个月必有的四个星期 53-12×4=5

所以一年最多有5个月有5个星期

当这年是365天时
一月一号是周一，周二。。。。周末的情形是
10个 10个 10个 10个 9个 7个 9个
当这年是366天时
一月一号是周一，周二。。。。周末的情形是
10个 10个 10个 9个 9个 9个 9个

可以理解为
366/7=53星期

除去每个月必有的四个星期 53-12×4=5
最理想情况下那5个星期被10个月分了，就是10个月

我编vb做的，有可能错误，但是绝对不是5个月

Private Sub Command1_Click()
Dim a, b, c, d, t As Integer
For a = 1 To 7
b = a
d = 1

For c = 2 To 31
b = b + 1
If b = 8 Then b = 1
If b = 1 Then d = d + 1
Next c
If d = 5 Then t = t + 1
d = 1

For c = 2 To 29
b = b + 1
If b = 8 Then b = 1
If b = 1 Then d = d + 1
Next c
If d = 5 Then t = t + 1
d = 1

For c = 2 To 31
b = b + 1
If b = 8 Then b = 1
If b = 1 Then d = d + 1
Next c
If d =