Проект «Решение квадратного урвнения» Visual Basic
Вычисление дискреминанта Dim a, b, c, d, x1, x2 As Double Private Sub Command1_Click() a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) d = b ^ 2 - (4 * a * c) Text4.Text = d End Sub
Вычисление корней уравнения Private Sub Command2_Click() If d >= 0 Then x1 = (-b + Sqr(d)) / (2 * a) Text5.Text = x1 x2 = (-b - Sqr(d)) / (2 * a) Text6.Text = x2 Else x1 = "нет корней" Text5.Text = x1 Text6.Text = x1 End If End Sub
Очистка текстовых окон Private Sub Command3_Click() Text1.Text = del Text2.Text = del Text3.Text = del Text4.Text = del Text5.Text = del Text6.Text = del End Sub