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

@Locki · Регистрация: 09.06.2011

Author24 — интернет-сервис помощи студентам

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

VB.NET

        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

@~~Апострофф~~ · 08.12.2011, 20:42

Locki, определись уже!
VB6 или Visual Basic .NET тебе больше нравится?

@Locki · 08.12.2011, 20:45 **[ТС]**

vb6 а что не верно?

@~~Апострофф~~ · 08.12.2011, 20:53

Сообщение от Locki

Dim a As Integer = TextBox1.Text

В VB6 это выглядит так

Visual Basic

1 2	Dim a As Integer a = TextBox1.Text 'а правильнее так a = cint(TextBox1.Text)

Памирыч · 08.12.2011, 20:53

Сообщение от Locki

vb6 а что не верно

что-то синтаксис не шестого, так TextBox-ов вроде нет, хотя при желании можно самому так назвать, ну и объявление НЕТовское.
Теги переправил.

@~~Апострофф~~ Заблокирован
	08.12.2011, 20:42	2
	Locki, определись уже! VB6 или Visual Basic .NET тебе больше нравится? 0

@Locki 32 / 0 / 0 Регистрация: 09.06.2011 Сообщений: 70
	08.12.2011, 20:45 [ТС]	3
	vb6 а что не верно? 0

Памирыч Почетный модератор 21413 / 9147 / 1083 Регистрация: 11.04.2010 Сообщений: 11,014
	08.12.2011, 20:53	5
	Сообщение от Locki vb6 а что не верно что-то синтаксис не шестого, так TextBox-ов вроде нет, хотя при желании можно самому так назвать, ну и объявление НЕТовское. Теги переправил. 0