在窗体上有一个命令按钮Commandl，编写事件代码如下： Private

问题：

[单选] 在窗体上有一个命令按钮Commandl，编写事件代码如下：

Private Sub Commandl Click（　　）

Dim dl 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

B。【解析】DateDiff(timeinterval，datel，date2[，firstdayofweek[，firstweekofyear]])返回的是两个日期之间的差值，timeinterval表示相隔时间的类型，ww表示几周；而日期的dl和d2相差两周，故输出2。