15问答网 > VB 跪求实例，如何让函数的返回值为数组并且引用得到这个函数中的数组？

VB 跪求实例，如何让函数的返回值为数组并且引用得到这个函数中的数组？

由于某些原因，我必须从别的地方调用这个数组。

2024-12-04 12:20:22

推荐回答（1个）

回答1：

给你一个简单的示例：

Option Explicit

Private Function GetRndInt() As Integer()
' 返回一个 Integer类型的数组
   Dim i As Long, aTemp() As Integer
   Randomize
   ReDim aTemp(15)
   For i = 0 To 15
      aTemp(i) = Rnd() * 500
   Next
   GetRndInt = aTemp
End Function

Private Sub Command1_Click()
   Dim aTemp() As Integer
   Dim i As Long
   Me.Cls
   aTemp = GetRndInt
   Print "随机产生的数据为："
   For i = 0 To UBound(aTemp)
      Print i + 1, aTemp(i)
   Next
End Sub

运行效果：