Проблема_в_VBA

[Мариночка=)!]

Умоляю нада решить пару задачик в VISUAL BASIC for Application (VBA).

1)Реализовать проект подсчета количества отрицательных чисел среди заданных a, b, c.
пример:Private Sub (ByVal x As Integer)
Select Case x
Case 0
MsgBox “Ноль”
Case 1,3,5
MsgBox “Нечет”
Case 2,4,6
MsgBox “Чет”
Case Else
MsgBox “В списках констант нет такого числа.”
+ Chr(13)
“Смотри подсказку для ввода”
End Select
End Sub
Private Sub CmdРешение_Click()
Dim Числа As Integer
Числа = CInt(Text1.Text)
Анализ Числа
End Sub
2)Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый следующий день он увеличивал дневную норму пробега на 10% от нормы предыдущего дня.
В документе «Пробег дня 20 км» реализовать проект (сконструировать форму и набрать программу), в котором определить, через сколько дней спортсмен будет пробегать в день больше 20 км.
Рекомендации.
1. Имена переменных, используемых в программе, на-значать русскими словами, а не абстрактными латин-скими буквами.
2. Переменная, обозначающая счетчик дней, должна быть целого типа (Integer); другие переменные – вещественного типа одинарной точности (Single).
3)Вычислить сумму http://programmersforum.ru/attachmen...1&d=1274383761

Пример для 2и3:Function F (ByVal x As Single) As Single
F=(x–1)^2–1
End Function
Private Sub Расчёт (ByVal xn As Single, ByVal xk As Single, └
ByVal e As Single, ByRef x As Variant)
Dim N As Integer, c As Single ‘Объявление локальных переменных___
Dim mas () ‘Объявление динамического массива
If F(xn)*F(xk)>0 Then
X=”?”
MsgBox ”На данном интервале корня нет или четное кол-во корней.”
+ Chr(13)
”Задайте интервал, содержащий один корень”
Exit Sub
End If
N=0
c=(xn+xk)/2
Do While xk-xn>℮ And Abs(F(c))> ℮
c=(xn+xk)/2
N=N+1
ReDim Preserve mas (1 Tо N)
mas (N) =C
If F(xn)*F(c)>0 Then xn=c Else xk=c
Loop
x=c
If N=0 Then
ReDim Preserve mas(1 To 1)
mas (1)=x
End If
List1∙List=mas
End Sub
Private Sub Cmd Решение _Click( )
Dim a As Single, b As Single, eps As Single,
Корень As Variant
a=CSng(Text1.Text)
b=CSng(Text2.Text)
eps=CSng(Text3.Text)
Расчёт a, b, eps, корень
Text4.Text = корень
End Sub
Private Sub List1_Click()
Text5.Text=F(CSng(List1))
End Sub

4)Ввести координаты х1, у1 и х2, у2 левой верхней и правой нижней вершин прямоугольника, а также координаты х, у произвольной точки. Проверить правильность ввода координат прямоугольника. При неверном вводе этих координат вывести сообщение, а при верном – определить принадлежность точки данному прямоугольнику.