当前位置:IT认证>计算机二级

问题:

[单选] 在窗体上有一个命令按钮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

执行下列语句段后Y的值是(  )。 x=3.14y=Len(Str$(x)+Space(6)) 5。 9。 10。 11。 在窗体中有一个标签Lablel,标题为“测试进行中”,有一个命令按钮Commandl,事件代码如下: Private Sub Commandl Click(  )Lablel.Caption=”标签”End SubPrivate Sub Form—Load(  )Form.Caption=”举例”Commandl.Caption=”移动”End Sub打开窗体后,单击命令按钮,屏幕显示(  )。 。 。 。 。 软件测试的目的是(  )。 评估软件可靠性。 发现并改正程序中的错误。 改正程序中的错误。 发现程序中的错误。 在窗体上有一个命令按钮Commandl,编写事件代码如下: Private Sub Commandl Click(  ) Dim Y As Integery=0 Doy=InputBox(”y=”)If(Y Mod l0)+Int(y/10)=10 Then Debug.Print Y; LoopUntil y=0End Sub打开窗体运行后,单击命令按钮,依次输入10、37、50、55、64、20、28、19、-19、0,立即窗口上输出的结果是(  )。 375564281919。 105020。 1050200。 3755642819。 在窗体上有一个命令按钮Commandl和一个文本框Textl,编写事件代码如下: Private Sub Commandl一Click(  )Dim i,j,XFor i=1 TO 20 step 2X=0For j=i TO 20 step 3X=X+1Next jNext i.Textl.Value=Str(x)End Sub打开窗体运行后,单击命令按钮,文本框中显示的结果是(  )。 1。 7。 17。 400。 在窗体上有一个命令按钮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
打开窗体运行后,单击命令按钮,消息框中输出的结果是(  )。
参考答案:

  参考解析

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

在线 客服