Здесь почему-то возникает ошибка при использовании функции Str()
Задача: создать проект для решения квадратного уравнения при различных коэффициентах, которые вводятся с клавиатуры
Вот код:
Dim x1, x2, d, a, b, c As Double
Dim g, e, f As String
Private Sub CommandButton1_Click()
a = Val(g)
b = Val(e)
c = Val(f)
d = b ^ 2 - 4 * a * c
x1 = ((-b) + Sqr(d)) / (2 * a)
x2 = ((-b) - Sqr(d)) / (2 * a)
Text2.Text = x1
Text3.Text = x2
End Sub

Private Sub CommandButton2_Click()
End
End Sub

Private Sub CommandButton3_Click()
g = InputBox("Введиде коэффициент при Х^2", "A")
e = InputBox("Введите коэфициент при X", "Â")
f = InputBox("Введите коэфициент С", "С")
Text1.Text = g + "*X^2+" + e + "*X+" + f + " = 0 "
End Sub

Какая именно ошибка? При каких значениях входных параметров?

Необходима проверка:



Это сообщение отредактировал(а) FallFan - 23.10.2009, 08:42

Спасибо за помощь   , я понял, там значит без проверки не обойтись, вот и была ошибка

Это сообщение отредактировал(а) ProgrammistRoman - 23.10.2009, 20:16