用排序就好了, 分別取出首尾6個(gè)元素
創(chuàng)新互聯(lián)是一家以成都網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計(jì)、品牌設(shè)計(jì)、軟件運(yùn)維、成都網(wǎng)站營銷、小程序App開發(fā)等移動(dòng)開發(fā)為一體互聯(lián)網(wǎng)公司。已累計(jì)為玻璃鋼雕塑等眾行業(yè)中小客戶提供優(yōu)質(zhì)的互聯(lián)網(wǎng)建站和軟件開發(fā)服務(wù)。
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
如果不要原來的數(shù)據(jù),直接Redim a(199)
,所有數(shù)據(jù)清空,如果需要保留原來的數(shù)據(jù),加上關(guān)鍵字preserve redim a(199)
,則保留原來數(shù)據(jù),如此定義,不會(huì)造成內(nèi)存泄露的
你在最后兩行之間加一行代碼,看看數(shù)組的規(guī)模大小的結(jié)果;
Msgbox Ubound(cartnum)
你沒有實(shí)例化對象,
For j = 0 To i
pt(j)=new point() '加上這句,實(shí)例化pt(j)
pt(j).x = j 'Debug時(shí)此處出錯(cuò)
pt(j).y = j ^ 2
Next
文章題目:vb.net動(dòng)態(tài)分配數(shù)組 vb定義數(shù)組和動(dòng)態(tài)數(shù)組的方法
分享網(wǎng)址:http://jinyejixie.com/article4/dodppoe.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供營銷型網(wǎng)站建設(shè)、面包屑導(dǎo)航、關(guān)鍵詞優(yōu)化、網(wǎng)站改版、App開發(fā)、企業(yè)網(wǎng)站制作
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)