Объявить 2-х мерный массив 3 ** 4, заполнить случайными целыми числами от -10 до 10, с...

Question

Объявить 2-х мерный массив 3 на 4, заполнить случайными целыми числами от -10 до 10, с помощью операторов цикла и Print вывести их на поле Form
бейсик

Answer 1

Попробуй так:

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