重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
thr_test(i) = New System.Threading.Thread(New System.Threading.ParameterizedThreadStart(Sub()
创新互联公司专业为企业提供黔西南州网站建设、黔西南州做网站、黔西南州网站设计、黔西南州网站制作等企业网站建设、网页设计与制作、黔西南州企业网站模板建站服务,10年黔西南州做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。
直接写过程代码
End Sub))
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
运行效果:
public function createstringarr() as string()
return new string(){"d1","d2","d3","d4"}
end function
Dim TestItem() As String = New String() {"Pickle", "Pineapple", "Papaya"} '创建数组 并赋值
Dim TestShoppingList As String = Join(TestItem, " = ") 'Join 就是字符联接函数 后面的 =号 可选 为空值就把所有的字符串在一起 本例用=号 就是把 所有数组的值用 =号联接起来
MsgBox(TestShoppingList) '显示结果值
'这例子 就一个函数可以解决 就不发图片了
希望能帮到你 你慢慢研究吧 有问题可以找我
看到的 爱好者 多顶我一下 谢谢呵呵