來給你寫了個函數(shù),拿去用,不謝

創(chuàng)新互聯(lián)專注于平果企業(yè)網(wǎng)站建設(shè),成都響應式網(wǎng)站建設(shè)公司,商城網(wǎng)站定制開發(fā)。平果網(wǎng)站建設(shè)公司,為平果等地區(qū)提供建站服務。全流程按需網(wǎng)站開發(fā),專業(yè)設(shè)計,全程項目跟蹤,創(chuàng)新互聯(lián)專業(yè)和態(tài)度為您提供的服務
Function?RemoveAt(Of?T)(ByVal?arr?As?T(),?ByVal?index?As?Integer)?As?T()
Dim?uBound?=?arr.GetUpperBound(0)
Dim?lBound?=?arr.GetLowerBound(0)
Dim?arrLen?=?uBound?-?lBound
If?index??lBound?OrElse?index??uBound?Then
Throw?New?ArgumentOutOfRangeException(?_
String.Format("Index?must?be?from?{0}?to?{1}.",?lBound,?uBound))
Else
Dim?outArr(arrLen?-?1)?As?T
Array.Copy(arr,?0,?outArr,?0,?index)
Array.Copy(arr,?index?+?1,?outArr,?index,?uBound?-?index)
Return?outArr
End?If
End?Function
(1)如果ComboBox中的不是通過數(shù)據(jù)綁定得到的,用ComboBox.Items.Clear?方法?從?ComboBox?中移除所有項。
'清除所有項
ComboBox1.Items.Clear()
'清除ComboBox1顯示
ComboBox1.ResetText()
(1)如果ComboBox中的是通過數(shù)據(jù)綁定得到的,在用ComboBox.Items.Clear?方法?從?ComboBox?中移除所有項之前,先斷開綁定的數(shù)據(jù)源。
'斷開數(shù)據(jù)源
ComboBox1.DataSource?=?Nothing
'清除所有項
ComboBox1.Items.Clear()
'清除ComboBox1顯示
ComboBox1.ResetText()
思路:個人認為,VB里沒有特別好的辦法,不如直接定義一個大小為2000的數(shù)組,用個循環(huán)把2500這個數(shù)組的數(shù)抄過去,抄的過程中,能被5整除的就跳過。例子:
Dim?arr,brr(5)?As?Integer??'定義一個長為5的數(shù)組,把長為10的數(shù)組內(nèi)奇數(shù)抄過來
Dim?i,?j?As?Integer
j?=?0
arr?=?Array(1,?2,?3,?4,?5,?6,?7,?8,?9,?10)
For?i?=?0?To?9
If?Not?arr(i)?Mod?2?=?0?Then??'偶數(shù)的,不要
brr(j)?=?arr(i)
j?=?j?+?1
End?If
Next?i
For?i?=?0?To?4???'輸出結(jié)果
Print?brr(i)
Next?i
Erase 數(shù)組名
要注意,如果是固定數(shù)組,則所有元素的值被初始化(字符型為空字符串,數(shù)值型為0),數(shù)組的大小是不變的;如果是動態(tài)數(shù)組,則所有元素被刪除,內(nèi)存空間被回收,要重新ReDim才能使用。Private Sub Form_Click()Dim a(9) As Integer, i As IntegerRandomizePrint "清除前:"For i = 0 To 9 a(i) = Rnd * 100 Print a(i);NextPrintErase aPrint "清除后"For i = 0 To 9 Print a(i);NextPrintEnd Sub
刪除數(shù)組元素只能用于動態(tài)數(shù)組,否則元素只能清零(整型)或清空(字符)
如數(shù)組a
清0 a(0)=0
清空 a(0)=""
動態(tài)數(shù)組清空:erase a
分享文章:vb.net怎么清空數(shù)組 javascript怎么清空數(shù)組
瀏覽地址:http://chinadenli.net/article40/hepgeo.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供自適應網(wǎng)站、手機網(wǎng)站建設(shè)、外貿(mào)建站、定制開發(fā)、品牌網(wǎng)站建設(shè)、全網(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)