Заполнение массива

[Nazarey]

Кирпич программы,в котором в зависимости от результата проверки условия заполняется один
из двух массивов:
либо таблица сложения,либо таблица умножения чисел от 1 до 10.

Код: Выделить всё

Dim intI As Integer, intJ As Integer
        Dim intX As Integer
        Dim intAdd(1 To 10, 1 To 10) As Integer
        Dim intMult(1 To 5, 1 To 5) As Integer
        .
        .
        .
        If intX = 0 Then
        For intI = 1 To 10
        For intJ 1 to 10
        intAdd(intI, intJ) = intI + intJ
        Next intJ, intI
        Else
        For intI = 1 To 5
        For intJ = 1 To 5
        intMult(intI, intJ) = intI * intJ
        Next intJ, intI
        End If


[Хакер]

Это не кирпич. Ты видимо не понимаешь, что такое кирпич.