CSDN博客

img fangke

VB 一个Function传回多个值

发表于2004/9/23 20:54:00  1116人阅读

解决Function只能传回一个值的问题

--------------------------------------------------------------------------------

 ●用Function当成子程序的一个好处,就是Function本身可以传回一个值到上一层呼叫的子程序里,但问题来了,若为了工作上的需要,想一次传回一个以上的值,那该怎么办?

 

Private Sub Command1_Click()

MyReturn 5, 6

End Sub

Private Function MyReturn(X, Y) As Long

A = X + Y

B = X - Y

C = X * Y

D = X / Y

'想传回ABCD四个数值回去,怎么写?

End Function


●这是一个基本的观念问题,子程序与子程序间的传值有
ByValByRef两种,ByVal是两个子程序间的传值放在不同的内存位置,而预设的ByRef则是将传值放在同一个内存位置上,故这一点可以拿来利用,可将上式改写成:

 

Private Sub Command1_Click()

MyReturn 5, 6, Ans1, Ans2 ,Ans3 ,Ans4

MsgBox "答案分别是" & Ans1 & "," & Ans2 & "," & Ans3 & "," & Ans4

End Sub

Private Function MyReturn(X, Y, A, B, C, D) As Long

A = X + Y

B = X - Y

C = X * Y

D = X / Y

End Function

●或是把资料作成Variant型态数组传回:

 

Private Sub Command1_Click()

Ans = MyReturn(5, 6)

MsgBox "答案分别是" & Ans(0) & "," & Ans(1) & "," & Ans(2) & "," & Ans(3)

End Sub

Private Function MyReturn(X, Y) As Variant

MyReturn = Array(X + Y, X - Y, X * Y, X / Y)

End Function

0 0

相关博文

我的热门文章

img
取 消
img