按值传递过程中，又不能返回什么？？那VB编写出来到底是干什么的？？
谢谢！！帮忙回答！！

按值传递不能返回什么——错。按值传值照样能做到你想返回什么就返回什么。按值传递是为了保护参数不被意外地修改。。。

按值传递不是只能返回调用处的实参吗？？
“你所说得能返回什么就返回什么”能否给我个实列？
谢谢！！！

嗯~~~~我知道你所谓返回的意思了，不过你返回的定义也太狭隘了吧。。。

即使是按值传值参数，你还有一个function可以用！

privte function fun(byval parameter1 integer) as boolean
if parameter1=10 then
fun=true
else
fun=false
end if
end function

哦。我知道了。谢谢了！！

private function fun(byval parameter1 integer) as boolean
fun=parameter1=10
end function

Public Function AccSQL(ByVal exp As Integer) As Boolean
Select Case exp
Case 0, 2, 4, 6, 8, 10
AccSQL = False
Case 1, 3, 5, 7, 9
AccSQL = True
Case Else
Exit Function
End Select
End Function

谢谢了,我已经知道了这个了..

Public Sub OneSwap(ByRef x As Integer, ByRef y As Integer)

Dim temp As Integer

temp = x

x = y

y = temp

End Sub

Public Sub TwoSwap(ByVal x As Integer, ByVal y As Integer)

Dim temp As Integer

temp = x

x = y

y = temp

End Sub

Private Sub Form_Click()

Dim x1 As Integer

Dim y1 As Integer

x1 = 1

y1 = 2

Form1.Print "x1 = ", x1

Form1.Print "y1 = ", y1

Form1.Print vbCrLf

Call OneSwap(x1, y1)

Form1.Print "x1 = ", x1

Form1.Print "y1 = ", y1
'----------------------------------------------------
Form1.Print vbCrLf
Form1.Print vbCrLf

Dim x2 As Integer

Dim y2 As Integer

x2 = 3

y2 = 4

Form1.Print "x2 = ", x2

Form1.Print "y2 = ", y2

Form1.Print vbCrLf

Call TwoSwap(x2, y2)

Form1.Print "x2 = ", x2

Form1.Print "y2 = ", y2
End Sub