Как генерировать функций и графически отображать их во временной и спектральной области - VB

Формулировка задачи:

Парни, кому не сложно, срочна нужна программа генерации функций и их графическое отображение во временной и спектральной области. Используя Visual Basic 6.0. прошу помощи опытных программистов, заранее спасибо!

Решение задачи: «Как генерировать функций и графически отображать их во временной и спектральной области»

textual
                            Листинг программы 
                        

                            Option Explicit
Function y(x As Double) As Single
Randomize
Dim i As Integer
Dim y1 As Double
i = Rnd(3)
Select Case i
Case 1: y1 = Log(x)
Case 2: y1 = x ^ 7 - 8
Case 3: y1 = x - 2
End Select
i = Rnd(5)
Select Case i
Case 1: y1 = (y1) ^ 4 - Rnd(Fix(x))
Case 2: y1 = (y1 - 789) ^ (Rnd(25))
Case 3: y1 = Log(y1) - 1
Case 4: y1 = x ^ Rnd(100) - y1
Case 5: y1 = y1 ^ 2 - y1
End Select
y = y1
End Function
 
Private Sub Form_Load()
Dim x As Double
x = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ x")
MsgBox y(x)
End Sub
                        