Private Sub n(ByVal x As Integer, ByVal y As Integer)
If x > y Then n = x Else n = y
End Sub
sub调用函数不可引用，即n只是函数，不能做为变量
改为：
Private function n(ByVal x As Integer, ByVal y As Integer) as interger
If x > y Then n = x Else n = y
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024