Помогите! Нужно написать программу. Дана линейная функция y=kx+b…

На Visual Basic. Делаешь 4 текстовых поля под a, b, x, yDim a As Double, b As Double, x As Double, y As Doublea=Text1.Text: b=Text2.Text: x=Text3. Texty=a*x+bText4.Text=yEnd SubВот и все. Независимо от положительных и отрицательных а и b, получаешь ответ. Если же надо просчитать при разных х от х 1 до х 2, то 5 полейDim a As Double, b As Double, i As IntegerDim x1 As Integer, x2 As Integer, y As DoubleText5.MultiLine=Truea=Text1.Text: b=Text2.Text: x1=Text3. Text, x2=Text4.TextText5.Text="For i=x1 To x2y=a*i+bText5.Text=Text5.Text & Str (y) & vbCrLfNext iEnd Sub