运行下列程序,单击Command1命令按钮后,则在窗体上显示第一行和第二行的结果分别是 【14】 和 【15】 。
Private Sub Command1_Click()
t=1:x=2:y=3:z=4
If t>0 Or t=x And x <> y Or y>z Then
t=fun1(t,z)
Print t
Else
t = fun1(x, y)
Print t
End If
Print x
Print y
End Sub
Function funl(ByVal x As Integer, ByVal y As Integer)As Integer
Do While y <> 0
t=x\y
x=y
y = t
Loop
fun1 = x
End Function