设计一个小日历程序(用VB)

Question

1)热力包含在一个双线的窗口内.
2)窗口的第一行显示内容为:今天是六月X日.
3)第二行显示周一至周六.
4)之后显示六月的每一天.
求各位大大速度,急需啊.....

Answer 1

Private Sub Form_Click()
Dim N As Integer
Form1.FontSize = 20
If Month(Date) < 12 Then 'N：当前月份的天数
N = CDate(Year(Date) & "-" & Month(Date) + 1 & "-1") - CDate(Year(Date) & "-" & Month(Date) & "-1")
Else
N = 31
End If
Print Tab(10); "今天是:"; Format(Date, "YYYY年M月D日")
Print
Print " 周一 周二 周三 周四 周五 周六 周日"
'Print " Mon Tue Wed Thu Fri Sat Sun"
For i = 1 To N
w = Weekday(CDate(Year(Date) & "-" & Month(Date) & "-1") + i - 1, vbMonday) - 1
Print Tab((w Mod 7) * 5 + IIf(i < 10, 3, 2)); i;

Next
End Sub