vb.net 函数或者过程作为数组

thr_test(i) = New System.Threading.Thread(New System.Threading.ParameterizedThreadStart(Sub()

创新互联公司专业为企业提供黔西南州网站建设、黔西南州做网站、黔西南州网站设计、黔西南州网站制作等企业网站建设、网页设计与制作、黔西南州企业网站模板建站服务，10年黔西南州做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。

直接写过程代码

End Sub))

VB.net 如何编写一个可以返回数组的函数（过程）？

public function createstringarr() as string()

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

end function

vb.net中返回一个数组的函数的问题

给你一个简单的示例：

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.net 返回一个数组的函数

public function createstringarr() as string()

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

end function

VB.NET数组或数组列表

Dim TestItem() As String = New String() {"Pickle", "Pineapple", "Papaya"} '创建数组 并赋值

Dim TestShoppingList As String = Join(TestItem, " = ") 'Join 就是字符联接函数 后面的 =号 可选 为空值就把所有的字符串在一起 本例用=号 就是把 所有数组的值用 =号联接起来

MsgBox(TestShoppingList) '显示结果值

'这例子 就一个函数可以解决 就不发图片了

希望能帮到你 你慢慢研究吧 有问题可以找我

看到的 爱好者 多顶我一下 谢谢呵呵