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