VB，function返回数组

来源：百度知道 编辑：UC知道 时间：2024/06/24 16:55:13
我已经编好矩阵求逆、矩阵转置、矩阵相乘的代码了
因为我没有怎么学过VB，所以不知道怎么才能让他把结果返回。
我写出代码来是靠C语言的基础，把C语言代码转成VB。
希望哪位大侠能帮我把计算结果返回。
谢谢……
我觉得一我的水平，可以理解3楼的。
但是我想做成不容易出错的。比如求逆，就和excel里一样，直接输入minverse（array）就能算出来，程序里用一个数组来存储function的返回值。

让函数处理数组基本的思想就是传递数组指针给函数。学过C的对指针应该不陌生吧
所以只要在把数组指针作为参数传递给函数即可,而vb默认传递指针给函数

Private function FunByRef(a() as integer) as Long

可以传递多个数组给函数，同时这些数组也可以作为返回数组

楼上的方法其实也是传递指针

你可以在function的参数中放两个数组。一个传入，一个传出。
Private Sub Command1_Click()
Dim Aa(10), Bb(10)
For i = 1 To 10
Aa(i) = i
Next
Call arr(Aa, Bb)
For i = 1 To 10
Print Bb(i)
Next
End Sub
Private Function arr(a, b)
For i = 1 To 10
b(i) = a(i)
Next
End Function
在调用的时候AA有值，BB是空，通过function把值传到BB里面，

Private Function testX()
Dim a(3) As Integer
For i = 1 To 3
a(i) = i
Next
testX = a
End Function

Private Sub Form_click()
Dim y
y = testX
For i = 1 To 3
Debug.Print y(i)
Next
End Sub