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

創(chuàng)新互聯(lián)公司專業(yè)為企業(yè)提供黔西南州網(wǎng)站建設(shè)、黔西南州做網(wǎng)站、黔西南州網(wǎng)站設(shè)計、黔西南州網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計與制作、黔西南州企業(yè)網(wǎng)站模板建站服務(wù),10年黔西南州做網(wǎng)站經(jīng)驗,不只是建網(wǎng)站,更提供有價值的思路和整體網(wǎng)絡(luò)服務(wù)。
直接寫過程代碼
End Sub))
public function createstringarr() as string()
return new string(){"d1","d2","d3","d4"}
end function
給你一個簡單的示例:
Option?Explicit
Private?Function?GetRndInt()?As?Integer()
'?返回一個?Integer類型的數(shù)組
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?"隨機產(chǎn)生的數(shù)據(jù)為:"
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"} '創(chuàng)建數(shù)組 并賦值
Dim TestShoppingList As String = Join(TestItem, " = ") 'Join 就是字符聯(lián)接函數(shù) 后面的 =號 可選 為空值就把所有的字符串在一起 本例用=號 就是把 所有數(shù)組的值用 =號聯(lián)接起來
MsgBox(TestShoppingList) '顯示結(jié)果值
'這例子 就一個函數(shù)可以解決 就不發(fā)圖片了
希望能幫到你 你慢慢研究吧 有問題可以找我
看到的 愛好者 多頂我一下 謝謝呵呵
分享標題:vb.net數(shù)組函數(shù) VB控件數(shù)組
本文路徑:http://chinadenli.net/article48/hpjjep.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供電子商務(wù)、響應(yīng)式網(wǎng)站、全網(wǎng)營銷推廣、關(guān)鍵詞優(yōu)化、小程序開發(fā)、品牌網(wǎng)站制作
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)