这个程序为什么不能按地址传递？

Private Function gys(ByRef m As Long, ByRef n As Long) As Long
  Dim t As Long
  t = m
  If n > m Then
    m = n
    n = t
  End If
  Do Until t = 0
    t = m Mod n
    m = n
    n = t
  Loop
  gys = m
End Function
Private Sub Command1_Click()
  m = Val(Text1.Text)
  n = Val(Text2.Text)
  Text3.Text = Str(gys(m, n))
  If gys(m, n) <> 0 Then Text4.Text = m * n / gys(m, n)
End Sub

对此不是很了解，不过编译都说了，BYREF参数类型不对，那查看。BYREF是不有LONG的类型的。

或者你到编程，软件子项提问，

在常识，对这类的编程问题了解的人不多了。