Question

vb中如何把一个二维数组赋给另外一个二维数组

Answer 1

Dim a(10,20),b(10,20)
'对数组a赋值
for i=0 to 10
for j=0 to 20
b(i,j)=a(i,j)
next
next

Answer 2

Private Sub Command1_Click()
Dim i, j, m, n As Integer
Dim a(7, 8), b(7, 8) As Integer
i = 0
j = 0
Print "给第一个数组赋初始值"
For i = 0 To 6
For j = 0 To 7
a(i, j) = i + j
If j = 7 Then
Print "a[" & i; "," & j & "]="; a(i, j) & vbCrLf
Else
Print "a[" & i; "," & j & "]="; a(i, j);
End If
Next j
Next i
Print "把第一个数组的值，给第二个数组"
For i = 0 To 6
For j = 0 To 7
b(i, j) = a(i, j)
If j = 7 Then
Print "b[" & i; "," & j & "]="; a(i, j) & vbCrLf
Else
Print "b[" & i; "," & j & "]="; a(i, j);
End If
Next j
Next i
End Sub

Answer 3

源数组为a（假设为long型），目标数组为b：
Dim b() As Long 'b定义为动态数组
b = a

Answer 4

<script language="vbscript">
dim a,b
a=Array(1,2,3)
b=a
document.write(b(0))
</script>