扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
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
给你一个简单的示例：
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
运行效果：
thr_test(i) = New System.Threading.Thread(New System.Threading.ParameterizedThreadStart(Sub()
直接写过程代码
End Sub))
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网