单选题在窗体上有一个命令按钮Commandl，编写事件代码如下：
Private Sub Commandl_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

【答案解析】[解析] DataDiff函数计算两个日期之间的差值，第一个参数为差距的计算单位，第二个为时间起始点，第二个为时间终止点。本题中，函数的第一个参数为“ww”，意思是计算两个日期之间相差的周数，从2009年12月25日到2010年1月5日其中有两周。