Создание пользовательской формы

[dreik92]

Вот заданьице: Создайте пользовательскую форму, с помощью которой можно вычислить значение функции пользователя (задание 2) и массив данных (задание 3) в соответствии с вариантом задания. В качестве элементов управления используйте кнопки.

Добавьте в форму кнопку Отмена для завершения работы с пользовательской формой.
Предусмотреть различные варианты ввода исходных данных для массивов:
– ввод с помощью оператора ввода InputBox,
– ввод из ячеек рабочего листа MS Excel,
– ввод в соответствующие поля пользовательской формы.
Предусмотреть различные варианты вывода данных:
– вывод с помощью оператора MsgBox,
– вывод в ячейки рабочего листа,
– вывод в соответствующие поля пользовательской формы.

В форме необходимо использовать максимально возможное число разных элементов управления. Присвоить всем элементам управления, а также пользовательской форме уникальные имена. Ко всем элементам управления добавить всплывающие подсказки, установив значения соответствующих свойств этих элементов управления в окне свойств.


Вот коды 2-го и 3-го задания.. кто может, помогите плз...
На баттоны желательно код хотя бы написать, а остальное - если будет фантазия

2-ое:

Function Z_func(x,y,t) As Variant
Z_func = 1/x^2 - 1/y^2 + 1/2^(x*y)*t
End Function

Function Y_func(x) As Variant
Const Pi = 3.1415926
Y_func = cos(Pi*x)*sin(Pi*x)/(1+cos(Pi*x))+2*cos(5*Pi*x)
End Function

Function G_func(x) As Variant
	If x<=0 Then
		G_func = Abs(x-5)
	Else
	G_func = x^2 + x + 1
	End if
End function

3-ье задание:

Public Function Zamena(A) As Variant
Dim I As Integer, J As Integer 'объявление пременных, необходимых для индексации элкментов матрицы В
Dim B() As Double 'объявления выходной матрицы
Dim Min As Double 'объявление переменной, необходимой для определения минимального элемента матрицы А
Dim Max As Double 'объявление переменной, необходимой для определения максимального элемента матрицы В
ReDim B(1 To A.Rows.Count, 1 To A.Columns.Count) 'определение размерности выходной матрицы
Min = A(1, 1) 'присваивание первому элементу матрицы А минимального значения
For I = 1 To A.Rows.Count
For J = 1 To A.Columns.Count
If A(I, J) < Min Then Min = A(I, J) 'поиск минимального элемента матрицы А
Next J
Next I
Max = A(1, 1)
For I = 1 To A.Rows.Count
For J = 1 To A.Columns.Count
If A(I, J) > Max Then Max = A(I, J) 'поиск максимального элемента матрицы А
Next J
Next I
For I = 1 To A.Rows.Count
For J = 1 To A.Columns.Count
        Select Case A(I, J)
            Case Min: B(I, J) = Max
            Case Max: B(I, J) = Min
            Case Else: B(I, J) = A(I, J)
        End Select
Next J
Next I
Zamena = B 'вывод матрицы
End Function