更多"Command1_Click（ ）事件代码如下： Private S"的相关试题:
[单项选择]Command1_Click（ ）事件代码如下： Private Sub Command1_Click（ ） Dim x As Integer, Y As Integer x = 6 : Y : 8 Call ABC(X, Y) Print X; Y End Sub Private Sub ABC(ByVal X As Integer，Y As Integer) X = X + 4 Y = Y = 2 End Sub 事件发生后，X和Y的值分别为 ______。
A. 6, 8
B. 10, 10
C. 10, 8
D. 6, 10
[填空题]在窗体上有一个命令按钮Command1，编写事件代码如下：
Private Sub Command1_Click（ ）
Dim a(10)，P(3) As Integer
k=5
For i=1 To 10
a(i)=i * i
Next i
For i=1 To 3
P(i)=a(i * i)
Next i
For i=1 To 3
k=k+p(i) *2
Next i
MsgBox k
End Sub
打开窗体运行后，单击命令按钮，消息框中输出的结果是______。
[单项选择]在窗体中有一个命令按钮Commandl，对应的事件代码如下： Private Sub Commandl_nter（ ） 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（ ）
Dim a1(4，4)，a2(4，4)
For i=1 To 4
For j=1 To 4
a1(i，j)=i+j
a2(i，j)=al(i，j)+i+j
Next j
Next i
MsgBox(a1(3，3)*a2(3，3))
End Sub
程序运行后，单击命令按钮，消息框输出的是______。
[填空题]在窗体上有一个命令按钮Command1，编写事件代码如下：
Private Sub Command1_Click（ ）
Dim a(10)，p(3)As Integer
k=5
For i=1 To 10
a(i)=i*i
Next i
For i=1 To 3
P(i)a(i*1)
Next i
For i=1 To 3
K=k+p(i)*2
Next i
MsgBox k
End sub
打开窗体运行后，单击命令按钮，消息框中输出的结果是______。
[单项选择]在窗体中有一个命令按钮command1，编写事件代码如下： Private Sub Command1_Click（ ） Dim s As Integer s=P(1)+P(2)+P(3)+P(4) Debug.Print s End Sub Public Function P(N As Integer) Dim Sum As Integer Sum=0 For i=1 To N Sum=Sum+1 Next i P=Sum End Function 打开窗体运行后，单击命令按钮，输出的结果是
A. 15
B. 20
C. 25
D. 35
[单项选择]在窗体中有一个命令按钮Command1，编写事件代码如下：
Private Sub Command1_Click（ ）
Dim S As Integer
s=p(1)+p(2)+p(3)+p(4)
debug．Print s
End Sub
Public Function P(N As Integer)
Dim Sum As Integer
Sum=0
For i=1 To N
Sum=Sum+1
Next i
P=Sum
End Function
打开窗体运行后，单击命令按钮，输出的结果是( )。
A. 15
B. 20
C. 25
D. 35
