задание на процедуры и функции VB 6.0

помогите пожалуйста с задач.
или скажите, что нужно исправить.
Задача 1
А. Составить процедуру нахождения максимального (первого, если их несколько) значения эле-мента массива В (К) и его номера (К - заданное число).
В. Используя процедуру найти максимальные значения и их номера во 2-ой и 4-й строках массива Y (6,8).
Задача 2
А. Составить функцию для вычисления
Y = 1 + 1/Зх + 2/Зх2 + 1/5х3 + 4/5х4 + 1/7х5 + 6/7х6 + ...
принимая модуль X больше 1. Суммирование продолжать, пока модуль разности между после-дующим и предыдущим слагаемыми больше малой заданной величины.
В. Напечатать таблицу значений функции У для аргумента X, изменяющегося от заданного началь-ного значения до заданного конечного c заданным шагом.


я составила пока код только для второй строки.

Dim b() As Single
Private Sub Command1_Click()
Const b1 = 2
Const b2 = 4
Dim a() As Single
Dim i As Byte, j As Byte
Dim n As Byte
Dim m As Single
ReDim a(1 To 6, 1 To 8) As Single
Call Vvod(a())
ReDim b(1 To 8) As Single
For i = 1 To 8
b(i) = a(2, i)
Next i
Call Maximum(b(), n, m)
Picture1.Visible = True
Picture1.Print "Максимальный элемент 2ой строки №" & Str(n) & "=" & Str(m1) "
End Sub

Public Sub Maximum(y() As Single, nom As Byte, max As Single)
Dim i As Byte
max = y(1)
For i = 2 To 8
If y(i) > max Then max = y(i): i = nom
Next i
End Sub

Public Sub Vvod(mas() As Single)
Dim i As Byte, j As Byte
For i = 1 To 6
For j = 1 To 8
mas(i, j) = InputBox("Введите значение элемента с координатами " & i & " " & j)
Next j, i
End Sub

Private Sub Command3_Click()
End
End Sub


во втором я написала код, но не знаю, что неправильно.
Option Explicit
Private Sub Command1_Click()
Dim x As Single
Dim tv As Single
x = CSng(Val(Text1.Text))
If Abs(x) <= 1 Then MsgBox "Ошибка ввода | X | > 1", _
vbInformation, "Остановка": Text1.SetFocus: Exit Sub
tv = CSng(Val(Text2.Text))
Text3.Text = Format(Y(x, tv), "#0.000")
End Sub

Function Y(ByVal x As Single, ByRef tv As Single) As Single
Dim pr!, sl!, s!
Dim i As Integer
Dim a() As Single
Const n = 100
s = 1: pr = 0: sl = 1
Do While Abs(pr - sl) > tv
pr = sl
For i = 1 To n
If (i Mod 2) = 0 Then
sl = 1 / (i + 1) * x ^ (i - 1)
If (i Mod 2) <> 0 Then
sl = (i - 1) / i * x ^ (i - 1)
End If
s = s + sl
Next i
Loop
Y = s
End Function

Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
Load Form2
Form2.Show
End Sub

заранее спасибо)))

0