Среднее арифметическое и заполнение прогрессбара по рассчетам

Уважаемые програмисты помогите, с такой задачей:
Дополнить форму задания 1 элементами управления и кодами для реализации следующих альтернативных вычислений. Создать элементы управления и написать код, которые, дополнительно к функциям задания 1, реализуют вычисления либо суммы значений функции с двумя аргументами задания 1 на некотором множестве аргументов либо среднего арифметического значений функции на том же множестве аргументов. Множество аргументов функции задается минимальным и максимальным значением аргумента x, y и шагом изменения каждого аргумента shx, shy. Программа должна осуществить вычисления для всех сочетаний значений аргументов. Должны быть вычислены и просуммированы (либо найдено среднее арифметическое) для значения функции аргументов x+I*shx, y+J*shy, где I и J пробегают все значения, при которых аргументы остаются в области допустимых значений. Исходными данными для этой части программы является шестерка чисел, которые определяют нижнюю (два числа) и верхнюю границу (два числа) изменения каждой переменной и шаг изменения каждой переменной в заданном диапазоне (два числа).
Форма этого задания должна в зависимости от значения группы элементов управления – переключателей (OptionButton) реализовать три варианта вычислений:
1-вычисления лабораторной работы 1.
2 – вычисления суммы значений функции в заданном оператором диапазоне.
3– вычисления среднего набора значений функций в заданном оператором диапазоне.
В заданной области каждый из аргументов изменяется с шагом, значение которого может быть задано с помощью ЭУ SkrollBar. Дискретное изменение параметров shx, shy, которое задает этот элемент управления также должно задаваться отдельным параметром.
Ненужные для реализации данного варианта вычислений (выбранного с помощью OptionButton) элементы управления делать невидимыми. Например, для реализации вычислений 1- й лабораторной работы нет необходимости в окнах для задания диапазона и шага. Эти поля должны быть скрыты. При каждом выборе режима вычислений должны также изменяться поясняющие надписи.
Использовать ProgressBar для иллюстрации процесса вычислений.
У меня есть каккие-то наметки, можете помочь?????Пожлуйста????Спасите, студента????:'(:'(:


Dim pr%, xmin#, xmax#, ymin#, ymax#, stepx#, step#

Private Sub Command1_Click()
Dim i As Single
Dim a As Single

a = CSng(Text1.Text)
i = CSng(Text2.Text)
Dim z As Single
z = 2 * (a - 1) ^ 2 + 0 * (a - 1) * Sin(a - 1) + 1 * (Sin(a - 1)) ^ 2 + 9 * (i - 6) ^ 2 + 0 * (Sin(0 * i - 0)) ^ 2
Label3.Caption = Str(z)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then Exit Sub
If KeyAscii < Asc(0) Or KeyAscii > Asc(9) Then KeyAscii = 0
End Sub
Private Sub Text2_Validate(Cancel As Boolean)
On Error GoTo M1
a = CInt(Text1.Text)
Exit Sub
M1:
MsgBox (Error)
Cancel = True
End Sub

Function f(X As Double, Y As Double)
f = 1
End Function
Private Sub Command2_Click()
pr = 0
For X = xmin To xmax Step stepx
ProgressBar1.Value = X
For Y = ymin To ymax Step stepy
Sum = Sum + f(CDbl(X), CDbl(Y))
For z = 1 To 100
DoEvents
If pr = 1 Then If MsgBox("i?a?aaou au?eneaiey", vbYesNo) = vbYes Then Exit Sub
pr = 0
Next
Next
Next
End Sub

Private Sub Command3_Click()
pr = 1
End Sub

Private Sub Form_Load()
xmax = 1000
ymax = 100
End Sub

0