关于取范围语句

Question

已经知道上限的时候，没必要重复地 Redim:
ReDim Preserve y1(7)
For j = 0 To 7      
    y1(j) = 10 * j - 10              
Next jReDim Preserve y1(55 To 65)
For j = 55 To 65      
    y1(j) = 10 * j - 10              
Next j

Answer 1

不好意思of123，可能我没有把问题说清楚。谢谢您的回复。
上面是数据库中的数据项，从0到数值50之间都是以10为差值增加的，但是50到70之间都是以差值5增加的，70到110又是以差值10增加的，我的代码中只能够得到0到50之间的，但是50到70之间都是以5增加的，如何写呢？谢谢。