Question

定义一个包含4行5列的二维数组并用[60,100]的随机整数对数组进行赋值,然后将

Answer 1

您好，您试试：
Private Sub Command1_Click()
Dim a(20) As Integer, b(4, 5) As Integer
Randomize
For i = 1 To 20
a(i) = Int(Rnd * 91) + 10
Print a(i);
If i Mod 5 = 0 Then Print
Next
Print
For i = 1 To 4
For j = 1 To 5
b(i, j) = a(j + (i - 1) * 5)
Print b(i, j);
Next
Print
Next
End Sub