更多"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