vb编程，使用随机函数产生0~10之间的随机整数，形成一个6×6阶矩阵，将该矩阵存放到一个二维数组

Question

vb编程，使用随机函数产生0~10之间的随机整数，形成一个6×6阶矩阵，将该矩阵存放到一个二维数组中。求出该矩阵的位置矩阵并输出

Answer 1

Private Sub Command1_Click()
Dim i As Integer, j As Integer, a(6, 6) As Integer
For i = 1 To 6
    For j = 1 To 6
    Randomize
    a(i, j) = Fix(Rnd * 10)
    Print a(i, j);
    Next
    Print
Next
Print
For i = 1 To 6
    For j = 1 To 6
    Print i & j & " ";
    Next
    Print
Next
End Sub

追问

谢谢大神。。