题目内容
（请给出正确答案）
在窗体上有一个命令按钮Command1，编写事件代码如下： Prirate 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 打开窗体运行后，单击命令按钮，消息框中输出的结果是()。
A．1
B．2
C．10
D．11
安装简答题APP，拍照搜题省时又省心！
更多“在窗体上有一个命令按钮Command1，编写事件代码如下：P…”相关的问题
在窗体上有一个标签Lb1和一个命令按钮Command1，事件代码如下： Option Compare Database Dim a As String * 10 Private Sub Command1_Click() a="1234" b=Len(a) Me. Lb1. Caption=b End Sub 打开窗体后单击命令按钮，窗体中显示的内容是()。
A．4
B．5
C．10
D．40
窗体上有一个命令按钮Command1，编写如下事件过程：
Private Sub Command1_Click()
x = InputBox("x=")
y = InputBox("y=")
Print x + y
End Sub
运行后，单击命令按钮，先后在两个输入对话框中输入123和321，窗体显示的内容是()。
A、 444
B、 123321
C、 123+321
D、 出错信息
在窗体上有一个命令按钮Command1，编写事件代码如下：
Private Sub Command1_Click()
Dim a(10)，P(3) As Integer
k=5
For i=1 To 10
For i=1 To 3
For i=1 To 3
End Sub
打开窗体运行后，单击命令按钮，消息框中输出的结果是()。
在窗体上有一个命令按钮Command1和一个文本框Text1，编写事件代码如下： Private Sub Command1_Click() Dim i，j，x For i=1 To 20 Step 2 x=0 For j-i To 20 Step 3 x=x+1 Next j Next i Text1.Value=Str(x) End Sub打开窗体运行后，单击命令按钮，文本框中显示的结果是()。
A．1
B．7
C．17
D．400
Private Sub Form_Load（）
Command1 Enabled=False
End Sub
Private Sub Text1_ ________ （）
Command1 Enabled=True
End Sub
在窗体上有一个命令按钮Command1，通用过程fun和命令按钮的事件过程如下：
Private Function fun(ByVal m As Integer)
Ifm Mod2=0 Then
fun=2
Else
fun=1
End If
End Function
Private Sub Command1_Click()
Dim i As Integer,s As Integer
s=0
For i=1 To 5
s=s+fun(i)
Next
Prints
End Sub
程序运行后，单击命令按钮，则窗体上输出()。
A．6
B．7
C．8
D．9
在窗体上有一个命令按钮Command1，编写下列程序：
Private Sub Command1_Click()
Print pp1(3,7)
End Sub
Public Function pp1(x As Single,n As Integer)As Single
If n=0 Then
pp1=1
Else
If n Mod 2=1 Then
pp1=x*x+n
Else
pp1=x*x-n
End If
End If
End Function
程序运行后，单击该命令按钮，屏幕上显示的是()。
A．2
B．1
C．0
D．16
在窗体上有一个命令按钮，然后编写如下事件过程 Private Sub Command1 _ cickc () a=InputBox("enter the first integer") b=InputBox("enter the second integer") Print b + a End Sub 程序运行后，单击命令按钮，先后在两个输入框中分别输入“2”和“6”，则输出结果为
A．2
B．62
C．8
D．26
在窗体上有一个命令按钮Command1，编写如下程序： Private Sub Command1_Click() Print pp1(3, 7) End Sub Public Function pp1(x As Single, n As Integer) As Single If n = 0 Then pp1= 1 Else If n Mod 2 = 1 Then pp1 =x*x+n Else pp1 =x*x-n End If End If End Function 程序运行后，单击该命令按钮，屏幕上显示的是()。
A．2
B．1
C．0
D．16
窗体上有一个命令按钮command1，其Click事件过程如下：
Private Sub Commandl_Click()
Dim x As Integer
x=InputBox("请输入x的值")
Select Case x
Case 1,2,4,6
Debug.Print"A"
Case 5,7 To 9
Debug.Print"B"
Case Is=10
Debug.Print"C"
CaSe ElSe
Debug.Print"D"
End Select
End Sub
程序执行后单击命令按钮，在弹出的输入框中输入8，则立即窗口上显示( )。
A．A B．B C．C D．D
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
微信搜一搜
简答题
微信搜一搜
简答题
如搜索结果不匹配，请 
