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


名称栏目:vb点虐 函数数组 vbs数组函数
URL标题:http://scyanting.com/article/ddedhpo.html