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 iEnd Sub。