ویژوال بیسیک _آموزش _سورس کد_دانلود

Public Sub moadeleh()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
delta = (b ^ 2) - (4 * a * c)
Select Case delta
Case Is = 0
X1 = -b / (2 * a)
Text1 = X1
Text2 = ""
Case Is > 0
X1 = (-b + Sqr(delta)) / (2 * a)
X2 = (-b - Sqr(delta)) / (2 * a)
Text4.Text = X1
Text5.Text = X2
Case Is < 0
Text4.Text = ""
Text5.Text = ""
End Select
End Sub