Sub arr(). Dim arr1(), arr2(). Dim i As Integer. ReDim Preserve arr1(1 To 20, 1 To 3), arr2(1 To 20). For i = 1 To 20. arr1(i, 1) = "張三" & i.
確定! 回上一頁