7,763
社区成员
发帖
与我相关
我的任务
分享VB函数输出参数问题
如何在VB中编写带有输出参数的函数?
如Delphi：
function test(v1,v2:pchar;var v3:pchar):integer;
v3可以做为输出参数。
如Delphi：
function test(v1,v2:pchar;var v3:pchar):integer;
v3可以做为输出参数。
...全文
请发表友善的回复…
发表回复
douhapy 2004-04-28
- 打赏
- 举报
Function test(ByVal v1 As String, ByVal v2 As String, ByRef v3 As String) As Integer
... ....
End Function
byval按值传输，无法改变变量的值；
byref按引用传输，函数和过程可以改变该变量的值。
... ....
End Function
byval按值传输，无法改变变量的值；
byref按引用传输，函数和过程可以改变该变量的值。
kxyzjm 2004-04-28
- 打赏
- 举报
Function test(ByVal v1 As String, ByVal v2 As String, ByRef v3 As String) As Integer
... ....
test="这里填入你要输出的参数"
End Function
... ....
test="这里填入你要输出的参数"
End Function
ryuginka 2004-04-28
- 打赏
- 举报
顶
wlk 2004-04-28
- 打赏
- 举报
up
northwolves 2004-04-28
- 打赏
- 举报
Private Sub Command1_Click()
Dim a As Double, b As Double
power 1.2, a, b
MsgBox "平方：" & a & vbCrLf & "立方：" & b, 64, 1.2
End Sub
Function power(ByVal x As Double, ByRef x2 As Double, ByRef x3 As Double) As Boolean
x2 = x ^ 2
x3 = x ^ 3
End Function
Dim a As Double, b As Double
power 1.2, a, b
MsgBox "平方：" & a & vbCrLf & "立方：" & b, 64, 1.2
End Sub
Function power(ByVal x As Double, ByRef x2 As Double, ByRef x3 As Double) As Boolean
x2 = x ^ 2
x3 = x ^ 3
End Function
阿泰 2004-04-27
- 打赏
- 举报
Function(byval strIn As String,byref strOut As String)
...
End Function
byref是按址传递，可以作为输出参数操作
...
End Function
byref是按址传递，可以作为输出参数操作
