Программа для решения квадратных уравнений - VB

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

Изучаю VB не давно, решил составить прогу для решение кв. уравнений помогите что я не так делаю?

                    Листинг программы
                
 
                        
                          
                    
        Dim a As Integer = TextBox1.Text
        Dim b As Integer = TextBox2.Text
        Dim c As Integer = TextBox3.Text
        Dim d As Integer = b ^ 2 - 4 * a * c
        TextBox4.Text = d
        Dim x1, x2 As Integer
 
        If d > 0 Then
            x1 = (-b + Math.Sqrt(d)) / 2 * a
            x2 = (-b - Math.Sqrt(d)) / 2 * a
        Else
            TextBox5.Text = "нет корней"
        End If
        TextBox6.Text = x1
        TextBox7.Text = x2

Решение задачи: «Программа для решения квадратных уравнений»

textual
                            Листинг программы 
                        
Dim a As Integer
a = TextBox1.Text 'а правильнее так a = cint(TextBox1.Text)

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

8 голосов , оценка 3.5 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы