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

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

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