[填空题] 简述下列程序的功能：______。 Sub Form_Load()Dim d As Date d=Now Weekx=Weekday(d) Weeky=WeekdayName(We

[填空题] 简述下列程序的功能：______。

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