Програмирование в VBA

вот скрин решения:

вот чуть исправленный твой код:
Private Sub CommandButton1_Click()
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
i = Val(TextBox3.Text)
UserForm1.Label4.Caption = ""
UserForm1.Label5.Caption = ""
For x = a To b Step i
If x < -p Then
f = Tan(x) ^ 2
Else
If x >= -p And x <= 0 Then
f = x - 2 * Sin(0.5 * x)
Else
f = 2.25
End If
End If
UserForm1.Label4.Caption = UserForm1.Label4.Caption & Round(x, 2) & Chr(13)
UserForm1.Label5.Caption = UserForm1.Label5.Caption & Round(f, 4) & Chr(13)
Next x
End Sub

итак твои ошибки:
1)как тут отмечали про третье условие ты в спешке забыл
аа из-за какой у тебя не считало - не знаю, вроде все верно у тебя

+5 за правильно построенный вопрос, это тут редкость.
Число π в VB записывается как Math.PI
А какую именно ошибку пишет? (у меня VB не установлен)

отжог. афтор пеши есчо. p-это наверное пи?
p=????
If x < -p Then
f = Тan(х) ^ 2
Else
if x>=-p and x<0 then
f = x - 2 * Sin(0.5 * x)
Else
f=2.25
End if
End If

Стучи в агент.

ну ты понаписал!! ! задание сравни со своей программой, этот кусок ваще сотри на йух
If x < -p Then
f = Тan(х) ^ 2
Else
f = x - 2 * Sin(0.5 * x)
End If

я тоже не специалист хрен его знает че ты тут понаписал