Sub Ex25()
Dim i As Integer, n As Integer
Dim h As Double, s As Double, a As Double, b As Double, x As Double, Pi As Double
Pi = 4 * Atn(1)
a = 0
b = Pi / 3
h = Pi / 30
n = (b - a) / h + 1 'Количество повторений цикла
With Sheets("Лист1")
.Cells(1, 1).Value = "x"
.Cells(1, 2).Value = "sin(x)"
.Cells(1, 3).Value = "cos(x)"
.Cells(1, 4).Value = "tg(x)"
For i = 1 To n
x = a + (i - 1) * h
.Cells(i + 1, 1).Value = x
.Cells(i + 1, 2).Value = Sin(x)
.Cells(i + 1, 3).Value = Cos(x)
.Cells(i + 1, 4).Value = Tan(x)
Next i
End With
End Sub