1. Sub c(ByVal x As Integer, ByRef y As Integer, ByRef m As Integer, ByVal n As Integer)
m = x * y: n = x / y
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, a As Integer, b As Integer
i = 2: j = 4: a = 6: b = 8
c j, i, a, b
Print a, b
End Sub