VB6　用数组作函数参数并返回一个数组的实例

导读：

　　这是我在博客园的处女作，写的肯定不好，高手别见笑。有错误的地方，欢迎批评指正，谢谢大家支持！

　　有时候需要对数组进行操作，这就要求函数能够用数组作为参数，并能返回一个数组。比如说要编写一个函数，用于计算两个矩阵的乘法，这两个参数必须是两个二维数组，并且返回值也要是一个二维数组，本文就以计算矩阵乘法为例，写了一个函数，大家一起讨论讨论。

　　代码如下：

　　’计算两个矩阵乘法

　　’矩阵为整型

　　


　　

　　


　　

　　Public Function iMUL()Function iMUL(a() As Integer, b() As Integer) As Variant

　　


　　Dim i, j, k As Integer

　　


　　If UBound(a, 2) <> UBound(b, 1) Then

　　


　　MsgBox “参数错误，请输入两个可以相乘的矩阵！”

　　


　　End

　　


　　End If

　　


　　Dim c() As Integer

　　


　　ReDim c(UBound(a, 1), UBound(b, 2))

　　


　　For i = 0 To UBound(a, 1)

　　


　　

　　For k = 0 To UBound(b, 2)

　　


　　

　　c(i, k) = 0

　　


　　For j = 0 To UBound(a, 2)

　　


　　

　　c(i, k) = c(i, k) + a(i, j) * b(j, k)

　　


　　

　　Next j

　　


　　

　　Next k

　　


　　Next i

　　


　　

　　iMUL = c

　　


　　End Function

　　


　　

　　算法就不必说了，学过线代的都看得懂。

　　因为我是菜鸟，所以写点我在写这个函数的时候碰到的一些小问题，希望能对广大菜鸟们有一些帮助：

　　由于返回的是一个数组，所以函数必须申明为变体类型是（variant），当然，不指明也可.

　　函数的参数是数组，必须是引用参数，可以在前面加上byref，不加VB也能认出这是数组，会默认为byref.

　　数组C用于保存返回的数组，必须申明为动态数组，也必须Redim它的大小，如果直接申明它的大小会报错，大家试试看就　　　　 知道了。

　　好了，今天就写到这里了，下次再发一个求逆阵的算法，也是矩阵作参数，不过重点是算法。

　　感谢 blueskit 的指点，将函数声明为Integer()是可以的.也建议大家这样做。我之所以会用Vriant是因为我没有想到在类型后加上括号可以表示一个数组类型。

本文转自

http://www.cnblogs.com/wanglonghao/archive/2007/11/15/958465.html