Private Sub Command1_Click()
    Dim a(1, 15) As Integer, i As Integer, j As Integer, t As Integer, n As Integer
    For i = 0 To 1
        For j = 0 To 10
            a(i, j) = Int(Rnd * 10) + 10
            Print a(i, j);
        Next j
        Print
    Next i
    For i = 0 To 1
        For j = 0 To 10
            a(i, j) = a(i, j + 5)
            Print a(i, j + 5);
        Next j
        Print
    Next i
End Sub

这是什么程序啊，怎么操作，能具体一点吗？

再次求助！