Решение квадратного уравнения (хочу чтоб кто то проверил) - VB

Узнай цену своей работы

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

Всё нормально?

Решение задачи: «Решение квадратного уравнения (хочу чтоб кто то проверил)»

textual
Листинг программы
Private Sub Command1_Click()
Dim a, b, c As Integer
Dim d as single
dim x1,x2,x as string
a = val(Text1.Text)
b = val(Text2.Text)
c = val(Text3.Text)
d = (b ^ 2) - (4 * a * c)
Text4.Text = d
If d < 0 Then
MsgBox ("Нет корней")
Else
If d > 0 Then
x1 = (-b + Sqr(d)) / 2 * a
x2 = (-b - Sqr(d)) / 2 * a
Text5.Text = x1
Text6.Text = x2
else
if d = 0 then
x = (-b)/2*a
text7.text = x
End If
End If
End if
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 4.667 из 5
Похожие ответы