更多"在窗体上有一个命令按钮Command1，编写事件代码如下： Prir"的相关试题:
[单项选择]在窗体上有一个命令按钮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
[填空题]在窗体中有一个名为Command1的命令按钮．Click事件的代码如下：
Prirate Sub Command1_Click（ ）
f=0
For n=1 To 10 Step 2
f=f+n
Next n
Me!Lbl．Caption=f
End Sub
单击命令按钮后，标签显示的结果是______。
[单项选择]在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Prirate Sub Command1_Click（ ）
s = 0
For i=1 To 13
x = i * i-1
If x Mod 3 = 0 Then s = s + 1
Next i
Print s
End Sub
程序运行后，单击命令按钮，则窗体中显示的内容是
A. 1
B. 5
C. 27
D. 45
[单项选择]在窗体上有一个命令按钮Command1，编写事件代码如下。
Private Sub Command1_Click（ ）
Dim x As Integer，y As Integer
x=12：y=32
Call Proc(x，y)
Debug.Print x；y
End Sub
Public Sub Proc(n As Integer，ByVal m As Integer)
n=n Mod 10
m=m Mod 10
End Sub
打开窗体运行后，单击命令按钮，立即窗口上输出的结果是( )。
A. 2 32
B. 12 3
C. 2 2
D. 12 32
[单项选择]在窗体上有一个命令按钮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，编写下列程序：
Private Sub Command1_Click（ ）
Print ppl(3,7)
End Sub
Public Function ppl(X As Single,n As Integer)As Single
If n=0Then
ppl=1
Else
If n M0d 2=1 Then
ppl=x*x+n
EIse
ppl=x*x-n
End If
End If
End Function
程序运行后，单击该命令按钮，屏幕上显示的是( )
A. 2
B. 1
C. 0
D. 16
