radice3

soluzione equazione 2 grado completa, spuria, pura
variante di radice2.htm (che usa formule semplificate per pura e spuria)
inserire coefficienti della equazione:viene analizzzato il discriminante e
risolta la equazione nei tre casi: discriminante positivo,nullo,negativo

Private Sub CommandButton2_Click()
rem inserimento coefficiente da tastiera
a = TextBox1.Text
b = TextBox2.Text
c = TextBox3.Text
d = b * b - 4 * a * c
If d > 0 Then
x1 = (-b + Sqr(b * b - 4 * a * c)) / (2 * a)
x2 = (-b - Sqr(b * b - 4 * a * c)) / (2 * a)
ListBox1.AddItem ("due radici reali e distinte")
End If
If d = 0 Then
x1 = (-b + Sqr(b * b - 4 * a * c)) / (2 * a)
x2 = (-b - Sqr(b * b - 4 * a * c)) / (2 * a)
ListBox1.AddItem ("due radici reali coincidenti")
End If
If d < 0 Then
ListBox1.AddItem ("due radici complesse")
x1 = "complessa"
x2 = "complessa"
End If
ListBox1.AddItem (a & "x^2 + " & b & "x + " & c & " = 0 ")
ListBox1.AddItem ("x1 = " & x1)
ListBox1.AddItem ("x2 = " & x2)
ListBox1.AddItem ("-------------------")
End Sub


Private Sub CommandButton3_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
End Sub

Private Sub CommandButton4_Click()
ListBox1.Clear
End Sub

Private Sub CommandButton5_Click()
Label3.Visible = True
End Sub

Private Sub CommandButton6_Click()
Label3.Visible = False
End Sub

Private Sub CommandButton7_Click()
Rem soluzione con dati prefissati e chiamata di procedura
Call calcola(1, 7, 12)
MsgBox ("clicca per altro esempio")
Call calcola(-12, 3, 0)
MsgBox ("clicca per altro esempio")
Call calcola(1, 0, -16)
MsgBox ("clicca per altro esempio")
Call calcola(1, 0, 16)
End Sub

Private Sub calcola(a As Integer, b As Integer, c As Integer)
d = b * b - 4 * a * c
If d > 0 Then
x1 = (-b + Sqr(b * b - 4 * a * c)) / (2 * a)
x2 = (-b - Sqr(b * b - 4 * a * c)) / (2 * a)
ListBox1.AddItem ("due radici reali e distinte")
End If
If d = 0 Then
x1 = (-b + Sqr(b * b - 4 * a * c)) / (2 * a)
x2 = (-b - Sqr(b * b - 4 * a * c)) / (2 * a)
End If
If d < 0 Then
x1 = "radice complessa"
x2 = "radice complessa"
End If
ListBox1.AddItem (a & "x^2 + " & b & "x + " & c & " = 0 ")
ListBox1.AddItem ("x1 = " & x1)
ListBox1.AddItem ("x2 = " & x2)
ListBox1.AddItem ("-------------------")
End Sub

vedi radice3.ppt