日期:2014-05-16  浏览次数:20894 次

asp 如何将一个数组复制给另一个数组
有个arr1和arr2两个数组,两个数组都有不同的长度和值,怎么将arr1复制到arr2并替换掉arr2的长度和值,急求高手赐教

------解决方案--------------------
arr=split(join(arr1,",") & "," &join (arr2,","),",")
------解决方案--------------------
相关知识:单个数组元素可以像简单变量一样从一个数组复制到另一个数组。想要将一个数组赋值个另外一个数组,必须使用For语句将一个数组的元素逐个赋值给另一个数组的元素。InputBox()为输入函数。

例题介绍:编程实现矩阵的转置。

例题界面:



            (a)

代码如下:

Option Base 1

Static Sub Form_Click()

    Dim Arr(3, 4), Tarr(4, 3)

    Dim k As Integer

    k=1

    For i = 1 To 3                                '数组赋值

        For j = 1 To 4

            Arr(i, j) = k

            k=k+1

        Next j

    Next i

    Print "转置前矩阵为:"

    For i = 1 To 3                                 ’转置前矩阵输出

        For j = 1 To 4

            Print Arr(i, j); " ";

        Next j

        Print

    Next i

    Print "转置后矩阵为:"

    For i = 1 To 4                                 ' 数组间数据的复制

       For j = 1 To 3

            Tarr(i, j) = Arr(j, i)

            Print Tarr(i, j); " ";

        Next j

        Print

    Next i

End Sub
------解决方案--------------------
arr1  1 2 3 4 5
arr2  9 8 7 6 

你想得到什么结果?
1 2 3 4 5 6 9 8 7 6
1 2 3 4 5
1 2 3 4
9 8 7 6 1 2