vb.net中返回一个数组的函数的问题

给你一个简单的示例：

创新互联是一家专业提供平定企业网站建设,专注与成都网站制作、做网站、H5建站、小程序制作等业务。10年已为平定众多企业、政府机构等服务。创新互联专业网站制作公司优惠进行中。

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

运行效果：

VB.net 如何编写一个可以返回数组的函数（过程）？

public function createstringarr() as string()

return new string(){"d1","d2","d3","d4"}

end function

vb.net 返回一个数组的函数

public function createstringarr() as string()

return new string(){"d1","d2","d3","d4"}

end function

网站栏目：vb.net数组函数,vbnet function
URL链接：http://ybzwz.com/article/dsscjph.html