vb点虐 函数数组 vbs数组函数

vb点虐 中返回一个数组的函数的问题

给你一个简单的示例：

成都创新互联专注为客户提供全方位的互联网综合服务，包含不限于成都网站设计、成都网站制作、电白网络推广、微信平台小程序开发、电白网络营销、电白企业策划、电白品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；成都创新互联为所有大学生创业者提供电白建站搭建服务，24小时服务热线：028-86922220，官方网址：www.cdcxhl.com

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点虐 如何编写一个可以返回数组的函数（过程）？

public function createstringarr() as string()

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

end function

vb点虐 返回一个数组的函数

public function createstringarr() as string()

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

end function