( 8 )窗体上有名称为 Command1 的命令按钮。事件过程及 2 个函数过程如下:
Private Sub Command1_Click()
Dim x As Integer,y As Integer,z
x=3
y=5
z=fy(y)
print fx(fx(x)),y
End Sub
Function fx(ByBal a As Integer)
a=a+a
fx=a
End Function
Function fy(ByRef a As Integer)
a=a+a
fy=a
End Function
运行程序,并单击命令按钮,则窗体上显示的 2 个值依次是 【 12 】 和 【 13 】 。
第1题:
窗体Forml上有一个名称为Commandl的命令按钮,以下对应窗体单击事件的事件过程是( )。
第2题:
在窗体上有一个命令按钮Command1,通用过程fun和命令按钮的事件过程如下: Private Function fun(ByVal m As Integer) If m Mod 2 = 0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_Cliek() Dim i As Integer, s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后,单击命令按钮,则窗体上输出( )。
A.6
B.7
C.8
D.9
第3题:
设在名称为Myform的窗体上只有1个名称为C1的命令按钮,下面叙述中正确的是()。
A.窗体的Click事件过程的过程名是Myform_Click
B.命令按钮的Click事件过程的过程名是Command_Click
C.命令按钮的Click事件过程的过程名是Command1_Click
D.命令按钮的Click事件过程的过程名是C1_Click
第4题:
在窗体上有一个命令按钮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
第5题:
(6)在窗体上有1个名称为Command 1的命令按钮,并有如下事件过程和函数过程:
Private Sub Command 1_Click()
Dim p As Integer
p=m(1)+m(2)+m(3)
Print p
End Sub
Private Function m(n As Integer) As Integer
Static s As Integer
For k=1 To n
s=s+1
Next
m=s
End Function
运行程序,单击命令按钮Command 1的输出结果为【6】。