4 задачи на циклы - VB

Формулировка задачи:

Привет всем) вот возникли траблы на пути моего покорения ВБ) Если кому не впадло, а может даже и интересно посмотрите на задачи. 1. Составить программу табуляции значений функции у = Сos(x) для аргумента х, который изменяется от 0 до 1800 зс шагом 50. 2. Найти сумму цифр в числе N. 3. Найти сумму членов ряда s=1+x/5+x/7+x/9+ ….. 4.Вычислить значение суммы бесконечного ряда с заданой точностью (10-5) S= (-2x)^2/2 + (2x)^4/24 - (2x)^6/720 +... ; x = 0.2 Спасибо за внимание))

Решение задачи: «4 задачи на циклы»

textual
                            Листинг программы 
                        

                            N = Round(inputbox("N"))
Dim letters As Byte
For i = 1 To Len(stra)
Dim char As String
char = Mid(N, i, 1)
If (char >= "0") And (char <= "9") Then
letters = letters + char
End If
Next i
MsgBox (letters)
Exit Sub
                        