В EXCEL е запусти
Sub PTab()
For i = 1 To 10
For j = 2 To 10
ActiveSheet.Cells(j, i).Value = CStr(i) + "*" + CStr(j) + "=" + Str(i * j)
Next j
Next i
End Sub


Sub Mass()
Dim Plus As Integer
Dim Otr As Integer
Plus = 0
Otr = 0
Dim MyArray(3, 4) As Double
For r = 0 To 3
For c = 0 To 4
MyArray(r, c) = InputBox("Введите элемент массива(" + CStr(r) + "," + CStr(c) + ")")
If MyArray(r, c) > 0 Then
Plus = Plus + 1
ElseIf MyArray(r, c) < 0 Then
Otr = Otr + 1
End If
Next c
Next r
MsgBox ("Отрицательных элементов массива: " + CStr(Otr))
MsgBox ("Положительных элементов массива: " + CStr(Plus))
End Sub

Открыть книгу Excel, запустить макросы по ALT+F8