主题：[求助][讨论]多个数组合并疑难

Dim sj() As String = {"A","B","C","D"}     '数组1
Dim xm() As String = {"姓名","组别"}    '数组2
Dim all(sj.length-1+sj.length-1+xm.length-1) As String
For i As Integer = 0 To sj.length-1
    all(i*2) = sj(i)
    all(i*2+1) = sj(i) & "队"
Next
Dim idx = (sj.length-1)*2
For i As Integer = 0 To xm.length-1
    all(idx+i) = xm(i)
Next

msgbox(string.join(",", all))