Ничего не понимаю!!!

[sermog]

Всем привет. Помогите несведущему пожалуйста. Вам ведь, профессионалам это 5 минут работы, пустяки, а мне это попросту не нужно, а сдавать надо.
1. Написать программу вычисления величины
1*2 + 1*2*3 + 1*2*3*4 + . . . + n(n+1) . . . +2n.
2. Напечатать числа в виде следующей таблицы:

0 0 0 0 0
1 0 0 0 0
2 1 0 0 0
3 2 1 0 0
4 3 2 1 0

Буду премного благодарен. Язык VisualBasic for Application

[Zer0]

по первой задаче

Sub Prog1()
Dim N, Res, t As Integer
N = InputBox("Введите N")
Res = 0
t = 1
For i = 2 To 2 * N
 t = t * i
 Res = Res + t
Next i
MsgBox ("Ответ: " & Res)
End Sub

[Zer0]

а вторую нужно просто массив заполнить или в Excel-таблице?

[sermog]

В методичке вроде массив в примерах. Про эксель ни слова...

[Zer0]

тогда вот код для второй

Sub Prog2()
Dim Res As String
Dim A(1 To 5, 1 To 5) As Integer
Res = ""
For i = 1 To 5
 For j = 1 To 5
  If i > j Then
   A(i, j) = i - j
  Else
   A(i, j) = 0
  End If
  Res = Res & A(i, j) & " "
 Next j
 Res = Res & vbCrLf
Next i
MsgBox (Res)
End Sub

[sermog]

Знакомый посоветовал по таким мелочам на форум к ВАМ. СПАСИБО большое Zer0! Вставил - работает!

[Zer0]

если не сложно жамкай мне на весы слева)

[sermog]

Не проблема))) Еще раз спасибо.

[Вадим Мошев]

Сообщение от sermog

Знакомый посоветовал по таким мелочам на форум к ВАМ. СПАСИБО большое Zer0! Вставил - работает!

Только вы имейте в виду, что у нас халяву не очень-то поощряют....

[sermog]

Понимаю.... Только одно не ясно, причем тут халява... Я попросил о помощи - Вы мне ее предоставили. Сказал спасибо. Через пол года опять дадут пару задач. Опять обращусь. Мне же не нужно решать какие-то супер задачи...