Можете мне показать как дальше нужно сделать формулу и график? - VB

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

Как мне написать формулу следующею и как мне нарисовать график? Первая формула К и Вторая формула B решается. Другие 2 формулы нужна поставить и чтоб они тоже решались! И ка мне нужна составить график??? Я уже не успеваю мне нужно успеть закончить работу в 1 сентября!!!!!! РЕАЛЬНАЯ П-О-М-О-Ш-Ь!!!

Решение задачи: «Можете мне показать как дальше нужно сделать формулу и график?»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
'-тут надо как то ввести значение
' для которого будет считаться s , g  (третья и 4-я формулы)
Y0 = 5 ' Val(InputBox("Y-?", , 5))
For i = 1 To k
sumx = sumx + x(i)
sumy = sumy + y(i)
sumxy = sumxy + (x(i) * y(i))
sum2x = sum2x + (x(i) * x(i))
sumY0 = sumY0 + (Y0 - y(i)) ^ 2
Next i
sumxsumy = sumx * sumy
sumx2 = sumx ^ 2
If k > 1 Then
s = (sumY0 / (k - 1)) ^ (1 / 2)
Text3.Text = s 'Text3 - добавить на форму
 
g = 1.96 * s / k ^ (1 / 2)
Text4.Text = g 'Text4 - добавить на форму
 
Text3.Text = s 'Text3 - добавить на форму
If (sumx2 - k * sum2x) <> 0 Then
kr = (sumx * sumy - k * sumxy) / (sumx2 - k * sum2x)
br = (1 / k) * (sumy - kr * sumx)
 
Text1.Text = kr
Text2.Text = br
 
Else
MsgBox "/0!"
Exit Sub
End If
Else
MsgBox "k>1!"
Exit Sub
End If
End Sub