在VB點(diǎn)虐 中數(shù)組怎么動(dòng)態(tài)設(shè)置大小

用排序就好了, 分別取出首尾6個(gè)元素

創(chuàng)新互聯(lián)公司是專業(yè)的泰和網(wǎng)站建設(shè)公司，泰和接單;提供網(wǎng)站建設(shè)、網(wǎng)站設(shè)計(jì),網(wǎng)頁(yè)設(shè)計(jì),網(wǎng)站設(shè)計(jì),建網(wǎng)站,PHP網(wǎng)站建設(shè)等專業(yè)做網(wǎng)站服務(wù);采用PHP框架,可快速的進(jìn)行泰和網(wǎng)站開(kāi)發(fā)網(wǎng)頁(yè)制作和功能擴(kuò)展;專業(yè)做搜索引擎喜愛(ài)的網(wǎng)站,專業(yè)的做網(wǎng)站團(tuán)隊(duì),希望更多企業(yè)前來(lái)合作!

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

vb點(diǎn)虐 對(duì)象數(shù)組

你只是定義了一個(gè)對(duì)象，類而已

首先要給對(duì)象設(shè)置變量，這個(gè)還不是數(shù)組

Public class As Single的class 應(yīng)該是關(guān)鍵字請(qǐng)換一個(gè)名字

Dim KidsX(1 to 100) as kids

KidsX(1).classx=1

KidsX(1).grade=1

KidsX(1).name=”張某"

KidsX(2).classx=1

KidsX(2).grade=2

KidsX(2).name=”王某"

……

vb點(diǎn)虐 一段關(guān)于數(shù)組的程序哪位兄弟看一下？

而testarray里的全部成員都是同一個(gè)對(duì)象testarray1，

testarray中的對(duì)象僅僅是指向了testarray1,

testarray1加來(lái)減去的最后只剩下d,

foreach了testarray實(shí)際上都是讀到了testarray1的值，出來(lái)三個(gè)d.

要實(shí)現(xiàn)你想要的效果可以這樣做：

ArrayList testarray1 = new ArrayList();

ArrayList testarray = new ArrayList();

testarray1.Add("a");

testarray1.Add("b");

testarray1.Add("c");

testarray1.Add("d");

testarray1.Remove("a");

testarray.Add(testarray1.Clone());

testarray1.Remove("b");

testarray.Add(testarray1.Clone());

testarray1.Remove("c");

testarray.Add(testarray1.Clone());

將testarray1拷貝一份再放到testarray里最后testarray里的最想就是不同的東西了