单项选择题

在窗体上有一个命令按钮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
打开窗体运行后，单击命令按钮，消息框中输m的结果是（）。

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

<上一题目录下一题>

热门试题

单项选择题

运行下列程序，结果是（） Private Sub Command32_Click() f0=1:f1=1:k=1 Do While k＜=5 f=f0+f1 f0=f1 f1=f k=k+1 Loop MsgBox f= ＆f End Sub

A．f=5
B．f=7
C．f=8
D．f=13

单项选择题

运行下列程序段，结果是（）。 For in=10 to 1 step 0 k=k+3 Next m

A．形成死循环
B．循环体不执行即结束循环
C．出现语法错误
D．循环体执行一次后结束循环

相关试题