在窗体上有一个命令按钮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.1B.2C.10D.11

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


相关考题:

在窗体上有一个命令按钮Commandl,编写事件代码如下:Private SuB commandl_Click()Dim a(10),p(3)As Integerk=5For i=1 To 10a(i)=i+iNext iFor i=1 To 3P(i)=a(i*i)Next iFor i=1 To 3k =k+p(i)*2Next iMsgBox kEnd SuB打开窗体运行后,单击命令按钮,消息框中输出的结果是【 】。

在窗体上有一个命令按钮Commandl,编写事件代码如下:Private SuB commandl_Click()Dim x As Integer,y As Integerx=12:y=32Call Proc(x,y)OeBug.Print x;yEnd SuBPuBlic SuB Proc(n As Integer,Byval m As Integer)n=n Mod 10m=m Mod 10End SuB打开窗体运行后,单击命令按钮,立即窗口上输出的结果是A.2 32B.12 3C.2 2D.12 32

在窗体上有一个命令按钮Commandl,编写事件代码如下:Private SuB commandl_Click()Dim d1 As DateDim d2 As Dated1=#12/25/2009#d2=#1/5/2010#MsgBox DateDiFF(“WW”,d1,d2)End SuB打开窗体运行后,单击命令按钮,消息框中输出的结果是A.1B.2C.10D.11

窗体Forml上有一个名称为Commandl的命令按钮,以下对应窗体单击事件的事件过程是A.Private Sub Forml_Click() … End SubB.Private Sub Form_Click() … End SubC.Private Sub Commandl_Click() … End SubD.Private Sub Command_Click() … End Sub

在窗体中添加一个名称为Commandl的命令按钮,然后编写如下事件代码:窗体打开运行后,单击命令按钮,则消息框的输出结果是( )。A. 1B. 2C. 3D. 4

在窗体中添加一个名称为Commandl的命令按钮,然后编写如下事件代码: Pfivate Sub Command 1 Click( )窗体打开运行后,单击命令按钮,则消息框的输出结果是( )。A. 1B. 2C. 3D. 4

在窗体上画一个名称为Commandl的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() a$="VisualBasic" Print String(3,a$) End Sub 程序运行后,单击命令按钮,在窗体上显示的内容是A.VVVB.VisC.sicD.11

在窗体中有一个标签Labele,标题为“测试进行中”:有一个命令按钮Commandl,事件代码如下:Private Sub Commandl_Click()Labele.Caption=“标签”End SubPrivate Sub Form_Load()Form.Caption=“举例”Commandl.Caption=“移动”End Sub打开窗体后,单击命令按钮,屏幕显示( )。A.B.C.D.

在窗体上画一个命令按钮,名称为Commandl,然后编写如下事件过程: Private Sub Commandl_Click() Dim() a=Array(”机床”,”车床”,”钻床”,”轴承”)Printa(2)EndSub程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。A.机床B.车床C.钻床D.轴承

在窗体中添加一个名称为Commandl的命令按钮,然后编写如下事件代码:Private Sub Command1_Click()Dim x As Integer,y As Integerx=12:y=32Call p(x,y)MsgBox x*yEnd SubPublic Sub p(n As Integer,By Val m As Integer)n=n Mod 10m=m Mod 10End Sub窗体打开运行后,单击命令按钮,则消息框的输出结果为【 】。