Разработать две "программы" с использованием VBA. Начальный уровень.

[cadeau]

Здравствуйте.
Есть следующее:

Вступление: Разработать схемы алгоритмов для решения задач и программы с использованием Visual Basic for Applications Microsoft Excel.

1) Ввести n вещественных чисел и определить,, что больше: их сумма или произведение, n вводится и должно быть больше 0.

2) Найти сумму цифр целого числа n, n должно быть больше 0 (проверить). Ввод и вывод данных организовать с использованием окон ввода InputBox и окон вывода MsgBox.

Прошу помочь решить задачи. Готов учиться по вашим решениям.
Схемы алгоритмов буду пробовать создать сам.

[gsg]

2).

Sub SummaN()

Dim n As Integer
Dim Сумма As Integer
Dim КолЦифр As String


n = InputBox("Введите целое число")
If n <= 0 Then
    MsgBox "Число должно быть больше 0"
    Exit Sub
End If

КолЦифр = Trim(Str(n))

For i = 1 To Len(КолЦифр)
     Сумма = Сумма + Val(Mid(КолЦифр, i, 1))
Next i

MsgBox "Сумма цифр = " & Сумма

End Sub

[cadeau]

gsg Спасибо большое! Шикарно =) А главное работает. Буду разбираться в коде, чтобы понять суть.

Кто бы ещё с 1 помог.

[.rina.]

А как разработать к ним схему?

[С.М.С]

какую, блок схему?