我现在想通过byref将几个参数从函数传出去，试验了这个最简单的小程序。为什么会出错！
Private Sub Form_Load()
Dim a, b, c As Integer
a = 1
b = 8
Call swap(a, b)
Debug.Print "a= " & a, "b= " & b
End Sub
Private Sub swap(ByRef a As Integer, ByRef b As Integer)
Dim temp As Integer
temp = a
a = b
b = temp
End Sub
[解决办法]
Private Sub Form_Load()
Dim a As Integer, b As Integer, c As Integer
a = 1
b = 8
Call swap(a, b)
Debug.Print "a= " & a, "b= " & b
End Sub
Private Sub swap(ByRef a As Integer, ByRef b As Integer)
Dim temp As Integer
temp = a
a = b
b = temp
End Sub
问题出在定义变量上了
VB中定义多个变量不能像楼主那样的
dim a as integer,b as integer,c as double,d as string,e as single
