Private Sub CommandButton2_Click()

Dim i As Integer

Dim il As Integer

Dim j As Inteder

Dim j As Integer

Dim x, y, x0, xk, dx As Double

X0=InputBox(“x0=”,”Введите начальное значение диапазона x”, -2)

Xk=InputBox(“xk=”,”Введите конечное значение диапазона x”,2)

Dx=InputBox(“dx=”,”Введите шаг изменения переменной x”,0.5)

I=InputBox(“i=”,”Введите начало таблицы, строкуЭб1)

J=InputBox(“j=”,”Введите начало таблицы, столбец”,1)

Cells(i,j)=”X”

I1=i

Cells(I,j+1)=”Y”

I=i+1

X=x0

Do While x <=xk

Y=ff(x)

Cells(I,j)=Format(x,”0.0#”)

Cells (I,j+1)=Format(y,”#0.0##”)

X=x+dx:i=i+1

Loop

Range(Cells(i1,j),Cells(i-1,j+1)).Select

Selection.Font.Size=16

With Selection

.Font.Bold=True

.Interior.Pattern=x1Solid

‘VerticalAligment=xlBotton

‘.WrapText=False

‘.Orientation=0

‘.AddIndent=False

‘ShrinkToFit=False

‘.MergeCells=False

End With

End Sub