扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
给你一个简单的示例：
成都创新互联专注为客户提供全方位的互联网综合服务，包含不限于成都网站设计、成都网站制作、电白网络推广、微信平台小程序开发、电白网络营销、电白企业策划、电白品牌公关、搜索引擎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
运行效果：
public function createstringarr() as string()
return new string(){"d1","d2","d3","d4"}
end function
public function createstringarr() as string()
return new string(){"d1","d2","d3","d4"}
end function
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网