computer 版 (精华区)

发信人: windoe (为中国电信做贡献), 信区: program
标  题: VB:如何在不改变数组内容的情况下重定义数组的范围？
发信站: 听涛站 (Fri Mar 10 19:09:03 2000), 转信

ReDim可以用来重新定义数组的范围，重定义后还要保留数组
的原值，可以用Preserve说明。例如：
Sub ReDim_Data()
Dim tmpdim() as Integer ’定义一个未知范围的数组
ReDim tmpdim(10) ’设定数组的范围0..9
tmpdim(0)=1
tmpdim(1)=2
ReDim Preserve tmpdim(20) ’设定数组的范围0..19，并保留数据
Debug.Print tmpdim(0), tmpdim(1),
End Sub


--By Kammi's SuperPost General Version
--

夜中不能寐，起坐弹鸣琴。
    薄帷鉴明月，清风吹我襟。
孤鸿号外野，翔鸟鸣北林。
    徘徊将何见，忧思独伤心。