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