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

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

2024年11月29日 12:56

有1个网友回答

网友（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