Как вычислить линейное уравнение в VB6 - VB

Формулировка задачи:

Доброго времени суток, у меня небольшая беда, запутался в написании программы для вычисления линейного уравнения в VB6. Суть в том, что вне зависимости от ввода переменных все время получается -0,3333333333, не пойму,либо я где-то ошибся,либо в корне неправильно написал программу, дело в том,что я 22 дня пролежал в больнице и естественно много пропустил, теперь все нужно отработать, а знаний материала толком нет ( я студент 1 курса, только только начали изучать программирование). помогите разобраться.
Private Sub Form_Load()
Dim A As Double
Dim B As Double
Dim C As Double
Dim D As Double
InputBox (A), "Введите переменную  А"
InputBox (B), "Введите переменную  B"
C = (A * B ^ 2 - B * (Sqr(A)) + Sin(A) ^ 2 + 3 * Cos(B) ^ 2 + 2) / (2 * Sin(A) ^ 2 + 2 * (Sqr(A * B)) - 4 * A ^ 3 + 2 * B - 15)
MsgBox "C=" & C, , "Результат"
Unload Form1
End Sub

Код к задаче: «Как вычислить линейное уравнение в VB6 - VB»

textual
Private Sub Form_Load()
Dim A As Double
Dim B As Double
Dim C As Double
Dim D As Double
A = InputBox("Введите переменную  А", "Исходные данные", "0")
B = InputBox("Введите переменную  B", "Исходные данные", "0")
C = (A * B ^ 2 - B * (Sqr(A)) + Sin(A) ^ 2 + 3 * Cos(B) ^ 2 + 2) / (2 * Sin(A) ^ 2 + 2 * (Sqr(A * B)) - 4 * A ^ 3 + 2 * B - 15)
MsgBox "C=" & C, , "Результат"
Unload Form1
End Sub

10   голосов, оценка 3.800 из 5


СОХРАНИТЬ ССЫЛКУ