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

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

2024-11-29 12:56:31

推荐回答（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