ReDim varArrary(2,3) '2代表列,3代表行 Dim strArrary Dim lngCol '列 Dim lngRow '行 '↑:上述变量的声明均采用匈牙利命名法 strArrary="" For lngRow=0 to 3 For lngCol=0 to 2 If lngCol=0 then varArrary(lngCol,lngRow)=InputBox("请输入第"&lngRow+1&"个人的姓氏:") Elseif lngCol=1 then varArrary(lngCol,lngRow)=InputBox("请输入第"&lngRow+1&"个人的名字:") Else varArrary(lngCol,lngRow)=InputBox("请输入第"&lngRow+1&"个人的电话号码:") End if Next Next ReDim PreServe varArrary(2,4) '↑:用ReDim关键字改变数组大小,并用PreServe关键字保留数组内原有的数据 varArrary(0,4)="Shorter" varArrary(1,4)="Wayne" varArrary(2,4)="853-555-0060" For lngRow=0 to 4 for lngCol=0 to 2 If lngCol<=1 then strArrary=strArrary&varArrary(lngCol,lngRow)&", " Else strArrary=strArrary&varArrary(lngCol,lngRow)&vbNewLine End if Next Next MsgBox strArrary Erase varArrary '↑:清除数组 '--------------------------------------------------- ' 0 1 2 '0 Williams Tony 404-555-6328 '1 Carter Ron 305-555-2514 '2 Davis Miles 212-555-5314 '3 Hancock Herbie 616-555-6943 '4 Shorter Wayne 853-555-0060