问题 单项选择题

在窗体上有一个命令按钮Command1,编写事件代码如下:
Private Sub Command1_Click()
Dim d1 As Date
Dim d2 As Date
d1=#12/25/2009#
d2=#1/5/2010#
MsgBox DateDiff("ww",d1,d2)
End Sub
打开窗体运行后,单击命令按钮,消息框中输出的结果是______。

A.1
B.2
C.10
D.11

答案

参考答案:B

解析: 函数DateDif/按照指定类型返回指定的时间间隔数目。语法为DateDiff(<间隔类型>,<日期1>,<日期2>,[,W1][,W2]),间隔类型为“ww”,表示返回两个日期间隔的周数。

开放性试题

中央电视台《焦点访谈》栏目披露一起《霸道的“学校”》的事件。某县人大常委会制定了一份所谓“对轻微违法犯罪人员进行法制教育”的文件。据悉,县有关部门于1998年建立了一所“法制教育学校”,实行所谓的“封闭式管理”。仅今年1—4月,该校就将200多名未违法犯罪行为的人强行关押在这里,其中许多是因为抵制不合理的摊派和乱收费被抓来的。这些被关押的人不仅失去人身自由,而且还要交纳200多元“学费”。 请你针对上述材料提出二个或更多的问题并运用所学法律知识作出回答。鼓励多提问题并作回答。 

                                                                                                                                                              

                                                                                                                                                              

                                                                                                                                                              

                                                                                                                                                             

多项选择题