Question

VB，从二维数组a中取出其第一行（i=1），如何把这取出的新数组赋给一维数组

Answer 1

试下这个,只需改动 b(i)=a(i\10+1,i mod 10)换成b(i) = a((i - 1) \ 10 + 1, (i - 1) Mod 10 + 1)
如下：
Private Sub form_click()
Dim a(1 To 10, 1 To 10) As String, b(1 To 100) As String
For i = 1 To 10
For j = 1 To 10
a(i, j) = i * j
Next j
Next i
For i = 1 To 100
b(i) = a((i - 1) \ 10 + 1, (i - 1) Mod 10 + 1)
Print b(i);
Next i
End Sub

Answer 2

若每一行有N列,a数组的第一行为a(1,1)~a(1,N)
则以下的循环可以实现这一功能：
For i=1 to N
b(i)=a(1,i)
Next i