Private Sub CommandButton1_Click(). xn = InputBox("Xn = ", &quo

Dim i As Integer

Dim j As Integer

Dim x As Single

Dim xn As Single

Dim xk As Single

Dim dx As Single

e = 0.001

xn = InputBox("Xn = ", "Ввод начального значения x", -1, 8000, 2000)

xk = InputBox("Xk = ", "Ввод конечного значения x", 0.3, 8000, 1000)

dx = InputBox("dX = ", "Ввод значения шага x", 0.05, 8000, 2000)

i = InputBox("i = ", "Ввод значения начала таблицы, строка i", 5, 8000, 1000)

j = InputBox("j = ", "Ввод значения начала таблицы, столбец j", 4, 8000, 2000)

x = xn: Cells(i, j) = "X(vba)": Cells(i, j + 1) = "V(vba)": Cells(i, j + 2) = "W(vba)"

10 Cells(i + 1, j) = x

v = Sin(x ^ 2) + Cos(Application.WorksheetFunction.Pi * x) ^ 3

Cells(i + 1, j + 1) = v

w = Cos(x ^ 3) ^ 2 - Sin(Application.WorksheetFunction.Pi * x ^ 2)

Cells(i + 1, j + 2) = w

x = x + dx

i = i + 1

If x <= xk + e Then GoTo 10