VBA2

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

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

1)Вычислить сумму http://programmersforum.ru/attachmen...1&d=1274383761
Пример:
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

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