更多"在窗体上有一个命令按钮Command1，编写事件代码如下：
Pri"的相关试题:
[单项选择]窗体上有一个名为Command1的命令按钮，并有下面的程序：
Private Sub Command1_Click（ ）
Dim arr(5) As Integer
For k=1 To 5
arr(k)=k
Next k
Prog arr（ ）
For k=1 To 5
Print arr(k)
Next k
End Sub
Sub prog(a（ ） as Integer)
n=Ubound(
[填空题]在窗体上添加一个命令按钮Command1，然后编写如下代码：
Private Sub Command1_Click（ ）
sum=0
For i=3 To 7
sum=i+2
Next i
MsgBox sum+i
End Sub
打开窗体后，单击命令按钮，消息框的输出结果是______。
[填空题]在窗体上画一个命令按钮Command1，然后编写如下程序：
Private Sub Command1_Click（ ）
Dim arr（ ）As Integer
ReDim arr(3)
For i=0 To 3
arr(i)=i
Next i
x=InputBox("请输入一个数字：")
If Val(x)＞4 Then
ReDim arr(4)
arr(4)=x
End If
Me.Print(arr(4)-arr(3))
End Sub
程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为 【10】 。
[单项选择]在窗体中有一个命令按钮Command1，对应的事件代码如下： Private Sub Command1_Enter（ ） Dim num As Integer Dim a As Integer Dim b As Integer Dim i As Integer For i=1 To 10 num=InputBox("请输入数据：","输入",1) If Int(num/2)=num/2 Then a=a+1 Else b=b+1 End If Next i MsgBox("运行结果：a="&Str(a)&：",b="&Str(b)) End Sub 运行以上事件所完成的功能是( )。
A. 对输入的10个数据求累加和
B. 对输入的10个数据求各自的余数，然后再进行累加
C. 对输入的10个数据分别统计有几个是整数，有几个是非整数
D. 对输入的10个数据分别统计有几个是奇数，有几个是偶数
[单项选择]在窗体上有一个命令按钮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 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（ ）
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
