十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
用排序就好了, 分别取出首尾6个元素
创新互联是一家以成都网站建设、网页设计、品牌设计、软件运维、成都网站营销、小程序App开发等移动开发为一体互联网公司。已累计为玻璃钢雕塑等众行业中小客户提供优质的互联网建站和软件开发服务。
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
如果不要原来的数据,直接Redim a(199)
,所有数据清空,如果需要保留原来的数据,加上关键字preserve redim a(199)
,则保留原来数据,如此定义,不会造成内存泄露的
你在最后两行之间加一行代码,看看数组的规模大小的结果;
Msgbox Ubound(cartnum)
你没有实例化对象,
For j = 0 To i
pt(j)=new point() '加上这句,实例化pt(j)
pt(j).x = j 'Debug时此处出错
pt(j).y = j ^ 2
Next