7,763
社区成员
发帖
与我相关
我的任务
分享请高手指点！
本人想将一个数组中的数据进行细分，由于该数组中的数据是递增的，所以想以一个等步长将其分为不同的几组数据，并且将这几组数据在另外存到相应的不同的数组中，请各位指点！
比如说，在A<X<B范围内的数据存到一个数组里，B<X<C的数据存到另外一个数组里。
比如说，在A<X<B范围内的数据存到一个数组里，B<X<C的数据存到另外一个数组里。
...全文
请发表友善的回复…
发表回复
pigsanddogs 2003-05-27
- 打赏
- 举报
dim bb()
dim bX as long
dim cc()
dim cX as long
dim i as long
bX=0:cX=0
for i = 0 to n
if A < aa(i) and aa(i) < B then
redim preserve bb(bX)
bb(bX) = aa(i)
bX=bX+1
elseif B < aa(i) and aa(i) < C then
redim preserve cc(cX)
cc(cX) = aa(i)
cX=cX+1
endif
next i
dim bX as long
dim cc()
dim cX as long
dim i as long
bX=0:cX=0
for i = 0 to n
if A < aa(i) and aa(i) < B then
redim preserve bb(bX)
bb(bX) = aa(i)
bX=bX+1
elseif B < aa(i) and aa(i) < C then
redim preserve cc(cX)
cc(cX) = aa(i)
cX=cX+1
endif
next i
kmzs 2003-05-27
- 打赏
- 举报
dim c(C-A） '需要分的数组
……
dim e(B-A)
dim i as long
for i=0 to B-A-1
e(i)=c(A+i)
next
……
dim e(B-A)
dim i as long
for i=0 to B-A-1
e(i)=c(A+i)
next
northwolves 2003-05-27
- 打赏
- 举报
用集合更好些。
