简述下列程序的功能：______。
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

在立即窗口显示当天是星期几，并提示当天是工作日还是休息日。

一群孩子在争论今天是星期几。甲说：今天不是星期日；乙说：今天是星期五；丙说：前天是星期六；丁说：昨天是星期二；戊说：今天是星期二；己说：今天不是星期一，也不是星期二，更不是星期三。事实上他们中只有一人讲对了，问今天是星期几？（　）

A:星期二 B:星期四 C:星期六 D:星期日

入冬以来天气一直没那么冷，（ ），气温度还没降到过零度。

A:拿今天来说 B:跟今天相比 C:在今天看来 D:到今天为止

下列各句，没有语病的一句是

A:日本的高技术海基导弹防御系统正在不断建立，但是如何提高使用士兵的能力则是今后的重要课题。 B:《劳动合同法》就是要让劳动者减少依__的代价，让企业增加违法经营的成本；让守法者得益，让违法者得咎。 C:要想做成这笔生意，不投入足够的资金肯定不行，我看最少需要五六万块钱。 D:各位观众，今天是二十四节气中的小寒，它代表今天是入冬以来最寒冷的季节。

下列各句中，没有语病的一句是

A:我国税务机关正在加紧完善涉外税收征管体系，以更好地适应美国次级贷款危机所带来的涉外贸易新变化。 B:随着世博会开幕日期的临近，“世博”已经成了使用频率最高的上海市民口头语，可见人们纷纷以不同方式关注世博。 C:各位观众，今天是二十四节气中的小寒，它代表今天是入冬以来最寒冷的季节，请注意添加衣服，预防感冒。 D:2009年央视春晚总导演建议，在四川和台北设立分会场，将五大洲各华语媒体的祝福传送过来，营造全球华人喜庆祥和大联欢。

下列各句中，没有语病的一句是

A:我国税务机关正在加紧完善涉外税收征管体系，以更好地适应美国次级贷款危机所带来的涉外贸易新变化。 B: 随着世博会开幕日期的临近，“世博”已经成了使用频率最高的上海市民口头语，可见人们纷纷以不同方式关注世博。 C:各位观众，今天是二十四节气中的小寒，它代表今天是入冬以来最寒冷的季节，请注意添加衣服，预防感冒。 D:2009年央视春晚总导演建议，在四川和台北设立分会场，将五大洲各华语媒体的祝福传送过来，营造全球华人喜庆祥和大联欢。

下列各句，没有语病的一句是

A:日本的高技术海基导弹防御系统正在不断建立，但是如何提高使用士兵的能力则是 今后的重要课题。 B:《劳动合同法》就是要让劳动者减少依__的代价，让企业增加违法经营的成本； 让守法者得益，让违法者得咎。 C:要想做成这笔生意，不投入足够的资金肯定不行，我看最少需要五六万块钱。 D:各位观众，今天是二十四节气中的小寒，它代表今天是入冬以来最寒冷的季节。

入冬以来天气一直没那么冷，（ ），气温度还没降到过零度。

A:拿今天来说 B:跟今天相比 C:在今天看来 D:到今天为止