можете исправить ошибки

[Александр121]

программа некоректно работает,должна выводить значения как на скриншоте.но выводит только a и выжёт ошибку в этой строчке.можете исправить должно выводится как на скриншоте.и у меня не работает кнопка выход.

Label2.Caption = Label2.Caption + Str(b)

Private Sub calc_Click()
Dim x, y, z  As Double
Dim a, b, c, f  As Double
x = Val(InputBox("Введитезначение x", "Ввод данных"))
y = Val(InputBox("Введите значение y", "Ввод данных"))
z = Val(InputBox("Введитезначение z", "Ввод данных"))
a = Sqr(x) / 3 + y ^ (1 / 5) / 5
MsgBox "При x = " & x & ", y = " & y & " функция а = " & a
b = Sqr(x) / 3 + y ^ (1 / 5) / 5
 
 
MsgBox "При x = " & x & " функция b = " & b
c = (2 * x ^ 3 - 1) / (Tan(x) ^ 3 - Sin(y))
 
MsgBox "При x = " & x & ", y = " & y & " функция c = " & c
f = (2 * x ^ 3 - 1) / (Tan(x) ^ 3 - Sin(y))
 
MsgBox "При x = " & x & ", y = " & y & ", z = " & z & " функция f = " & f
 
Label1.Caption = Label1.Caption + Str(a)
 
Label2.Caption = Label2.Caption + Str(b)
 
Label3.Caption = Label3.Caption + Str(c)
 
Label4.Caption = Label4.Caption + Str(f)
 End Sub
Private Sub clean_Click()
 
Label1.Caption = "a = "
 
Label2.Caption = "b = "
 
Label3.Caption = "c = "
 
Label4.Caption = "f = "
 
End Sub
 
Private Sub exitForm_Click()
End Sub
 
End
 
End Sub
 
Private Sub UserForm_Click()
 
End Sub

[SAS888]

В Вашей форме нет "Label2".
Либо измените имя контрола "Label32" на "Label2", либо замените в коде во всех процедурах "Label2" на "Label32" и будет счастье.