Dim A() As Single
Dim i As Integer, j As Integer
Dim max As Single
Randomize
ReDim A(1 To 4, 1 To 2)
For i = 1 To 4
For j = 1 To 2
A(i, j) = Int(91 * Rnd - 67)
Label1.Caption = Label1.Caption & A(i, j) & vbTab
Next j
Label1.Caption = Label1.Caption & vbNewLine
Next i