Sub z3()
Dim a, b, h, x, f As Single
a = 1
b = 100
h = 4
With Worksheets(1)
.cell(1, 1).Value = "x"
.cell(1, 2).Value = "f(x)"
For x = a To b Step h
i = i + 1
f = x - Cos(Abs(x ^ 1 / 2))
.cell(i + 1, 1).Value = x
.cell(i + 1, 2).Value = f(x)
Next x
End With
End Sub