填空题

简述下列程序的功能：______。
Sub Form_Load()
Dim d As Date
d=Now
Weekx=Weekday(d)
Weeky=WeekdayName(Weekx)
If Weekx=1 Or Weekx=7Then
Debug.Print"今天是："; Weeky
Debug.Print"今天是休息日!"
Else
Debug.Print"今天是："; Weeky
Debug.Print"今天是工作日!"
End If
End Sub