填空题
执行下面程序,单击命令按钮Cmd1后输出的fun函数值是 1(4) 2,a的值是 3(5) 4 ,b的值是 5(6) 6。
Option Explicit
Private Sub Cmd1_Click7
Dim a As Integer,b As Integer
a=8
b=12
Print fun(a,b);a;b
End Sub
Private Function fun(ByVal a As Integer,b As Integer)As Integer
a=a Mod 5
b=b/5
fun=a+b
End Function