vb2005的sub或function怎么返回数组？

来源：百度知道 编辑：UC知道 时间：2024/06/19 16:00:18
我需要一个过程或方法来计算多个数组的值，在vb6中很容易做到，但vb2005似乎sub是不能返回值的，而function中怎么能返回两个或以上数组的值？

请高人指教！

PS:最好传入和返回的数组是同一个数组，即传入数组A后经过计算，返回的A已经是计算后的结果。
补充多一个问题：我调用的是多个二维double数组，请问声明和调用的语句分别应该怎么写？

问题解决之后再追加20积分～谢谢！

二维Double这样写：

Public Class Form1
Private Sub test(ByRef arr(,) As Double)
Dim i As Integer

For i = 0 To 3
arr(i, 1) = i
Next
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim arr(3, 3) As Double
Call test(arr)
End Sub
End Class

定义一个：类
在类中，用PUBLIC 定义N个你要反回的变量
如： 在一个类中，如：类名叫：CLASS1
public a[99] as string
public b[99] as string

那么，在别的页面中，只要用：
dim x as new class1
x.a[1] = "测试"
response.write x.a[2]

这样就能读出和写入啦

VB参数传递默认为ByRef
VB.Net默认为ByVal
注意这个细小的区别

可以用 ByRef 来直接修改数组，这样就不用返回值了。