你說的是指定4還是指定6啊?
在善右等地區(qū),都構(gòu)建了全面的區(qū)域性戰(zhàn)略布局,加強(qiáng)發(fā)展的系統(tǒng)性、市場(chǎng)前瞻性、產(chǎn)品創(chuàng)新能力,以專注、極致的服務(wù)理念,為客戶提供成都做網(wǎng)站、成都網(wǎng)站設(shè)計(jì) 網(wǎng)站設(shè)計(jì)制作定制網(wǎng)站開發(fā),公司網(wǎng)站建設(shè),企業(yè)網(wǎng)站建設(shè),成都品牌網(wǎng)站建設(shè),網(wǎng)絡(luò)營銷推廣,外貿(mào)營銷網(wǎng)站建設(shè),善右網(wǎng)站建設(shè)費(fèi)用合理。
如果是指定4,Private s(4) As String 即可,不過注意下標(biāo)是0-3。
后面那個(gè)6在vb.net里面是沒有必要指定的。
使用動(dòng)態(tài)定義
ReDim a() AS **********'定義一個(gè)動(dòng)態(tài)數(shù)組
...........
計(jì)算出第一個(gè)Y
ReDim a(0)
a(0)=Y
.....................
計(jì)算出第二個(gè)Y
ReDim Preserve a(1) '再次分配元素并保留原有元素
a(1) =Y
.........................
.........................
ReDim Preserve a(N) '第N次分配元素并保留原有元素
a(N) =Y
用排序就好了, 分別取出首尾6個(gè)元素
dim arr()
'''''''
redim arr(5)
arr(0) = 100
arr(1) = 435
arr(2) = 800
arr(3) = 220
arr(4) = 50
arr(5) = 999
Dim x, y, b, tmp
for y = 0 to ubound(arr)
b = true
for x = 0 to ubound(arr) - 1
if arr(x) arr(x+1) then
tmp = arr(x)
arr(x) = arr(x+1)
arr(x+1) = tmp
b = false
end if
next
if b then exit for
next
dim content
for each x in arr
content = content x chr(13)
next
content = content "min-" arr(0) " - " arr(1) " - " arr(2) chr(13)
content = content "max-" arr(ubound(arr)) " - "
arr(ubound(arr) - 1) " - " arr(ubound(arr) - 2)
chr(13)
msgbox content
因?yàn)橄聵?biāo)從零開始。
shuzu 元素分別是 shuzu(0)、shuzu(1)、shuzu(2)、shuzu(3)。
你自己數(shù)一數(shù)有幾個(gè)。
摘引自MSDN:
保留動(dòng)態(tài)數(shù)組的內(nèi)容
每次執(zhí)行 ReDim 語句時(shí),當(dāng)前存儲(chǔ)在數(shù)組中的值都會(huì)全部丟失。Visual Basi 重新將數(shù)組元素的值置為 Empty(對(duì) Variant 數(shù)組)、置為 0(對(duì) Numeric 數(shù)組)、置為 零長度字符串(對(duì) String 數(shù)組)或者置為 Nothing(對(duì)于對(duì)象的數(shù)組)。
在為新數(shù)據(jù)準(zhǔn)備數(shù)組,或者要縮減數(shù)組大小以節(jié)省內(nèi)存時(shí),這樣做是非常有用的。有時(shí)希望改變數(shù)組大小又不丟失數(shù)組中的數(shù)據(jù)。使用具有 Preserve 關(guān)鍵字的 ReDim 語句就可做到這點(diǎn)。例如,使用 UBound 函數(shù)引用上界,使數(shù)組擴(kuò)大、增加一個(gè)元素,而現(xiàn)有元素的值并未丟失:
ReDim Preserve DynArray (UBound (DynArray) + 1)
在用 Preserve 關(guān)鍵字時(shí),只能改變多維數(shù)組中最后一維的上界;如果改變了其它維或最后一維的下界,那么運(yùn)行時(shí)就會(huì)出錯(cuò)。所以可這樣編程:
ReDim Preserve Matrix (10, UBound (Matrix, 2) + 1)
而不可這樣編程:
ReDim Preserve Matrix (UBound (Matrix, 1) + 1, 10)
文章名稱:vb.net數(shù)組長度增加 vb 獲取數(shù)組長度
網(wǎng)頁鏈接:http://chinadenli.net/article6/hgogog.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供營銷型網(wǎng)站建設(shè)、品牌網(wǎng)站建設(shè)、App設(shè)計(jì)、ChatGPT、服務(wù)器托管、網(wǎng)站排名
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)