Нуждаюсь в консультации

[Anti123]

Для ввода/вывода использовать пользовательскую форму) описать все используемые элементы управления)
Даны a, b, c, y, t, w вычислить:

z = (a * y / (a + b) + c / a * x ^ 2 + b * x) ^ 3 + sinw * t

Ну вобщем у меня получилось как-то так....

Private Sub CheckBox1_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox7.Visible = False
TextBox1.SetFocus
CheckBox1.Value = False
End Sub


Private Sub CommandButton1_Click()
Dim a As Single
Dim b As Single
Dim c As Single
Dim y As Single
Dim t As Single
Dim w As Single
Dim z As Single
a = CInt(TextBox1.Text)
b = CInt(TextBox2.Text)
c = CInt(TextBox3.Text)
y = CInt(TextBox4.Text)
t = CInt(TextBox5.Text)
w = CInt(TextBox6.Text)
z = (a * y / (a + b) + c / a * x ^ 2 + b * x) ^ 3 + sinw * t
MsgBox "результат смотри в TextBox7"
TextBox7.Visible = True
TextBox7.Text = z
End Sub

Спасибо!

[motorway]

В чём, собственно, вопрос?

[Anti123]

Вопрос в том: правильно ли я сделал?

[doober]

Не правильно

[B] + sinw * t'Это не правильно
 +  sin(8* Math.Atn(1)*w/360 ) * t

2Pi=8 * Math.Atn(1)=6.28318530717959