Попробуй так:
Sub z()
cls
Dim a(3, 4)
For i = 1 To 3
For j = 1 To 4
a(i, j) = Int(Rnd * 31) - 10
Print a(ij); " ";
Next j
Print
Next i
End Sub
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.