VBS中数组的动态改变、赋值、清除

ReDim varArrary(2,3) '2代表列，3代表行Dim strArraryDim lngCol '列Dim lngRow '行'↑:上述变量的声明均采用匈牙利命名法strArrary=""For lngRow=0 to 3For lngCol=0 to 2If lngCol=0 thenvarArrary(lngCol,lngRow)=InputBox("请输入第"&lngRow+1&"个人的姓氏：")Elseif lngCol=1 thenvarArrary(lngCol,lngRow)=InputBox("请输入第"&lngRow+1&"个人的名字：")Else varArrary(lngCol,lngRow)=InputBox("请输入第"&lngRow+1&"个人的电话号码：")End ifNextNextReDim PreServe varArrary(2,4)'↑:用ReDim关键字改变数组大小，并用PreServe关键字保留数组内原有的数据varArrary(0,4)="Shorter"varArrary(1,4)="Wayne"varArrary(2,4)="853-555-0060"For lngRow=0 to 4for lngCol=0 to 2If lngCol<=1 thenstrArrary=strArrary&varArrary(lngCol,lngRow)&", "ElsestrArrary=strArrary&varArrary(lngCol,lngRow)&vbNewLineEnd ifNextNextMsgBox strArraryErase varArrary'↑:清除数组'---------------------------------------------------'012'0WilliamsTony404-555-6328'1CarterRon305-555-2514'2DavisMiles212-555-5314'3HancockHerbie616-555-6943'4ShorterWayne853-555-0060