Programacion con visual basic

¿Programación con visual basic! Ejercisio de una ecuación de segundo grado? 

Veran llegue tarde a la clase y el profesor como que no estaba de humor y no quiso explicarme el y a los compañeros que le pregunto están peor que yo... esto es lo que he puesto pero introduzco cualquier numero y me dice resultado imaginario, así yo sepa que si tiene solución... esto es lo que he hecho: 
Dim A, B, C 

Private Sub Command1_Click() 
A = InputBox("Ingresar Valor de A") 
B = InputBox("Ingrersar Valor de B") 
C = InputBox("Ingresar Valor de C") 
End Sub 

Private Sub Command2_Click() 
D = ((B) ^ 2) - ((4 * A) * (C)) 
If D >= 0 Then 
label1.Caption = ((-B) + (D ^ (1 / 2))) / (2 * A) 
label2.Caption = ((-B) - (D ^ (1 / 2))) / (2 * A) 
End If 
If D < 0 Then 
MsgBox ("Resultado Imaginario") 
End If 
End Sub 

Private Sub Command3_Click() 
label1.Caption 
label2.Caption

Actualización : el error que tenia era que me faltaba crear los label1 y label2 pero como hago un boton llamado borrar para que se borren los resultados y pueda ingresar otros nbumero y el boton de cerrar

Private Sub Command3_Click() 
label1.Caption="" 
label2.Caption="" 
end sub 

Private Sub Command4_Click() 'para cerrar 
End 
end sub

Nelson F.I respondido hace 3 años

en la imagen siguiente el Discriminante menor a 0 indica que la parábola no corta al eje de las abscisas: X , por lo tanto no tiene soluccón real 

http://upload.wikimedia.org/wikipedia/co... 

el codigo está correcto as la prueba ingresando los valores a=2 B=-7 C=3 y verás que si te mostrará resultados 
suerte!!

weno pues e exo 1 trabajo de vb6.0 ke es 1 programa que calcula ecuaciones de segundo grado,el problema que a la hora de ejectuarlo me da 1 error en las raices...Si alguien sabe cual es mi problema,por favor que me responda..tengo ke entregar el trabajo esta tarde[pic 1]

Aqui os dejo el script

pd:si veis otros errores,porfa aregladmelos tmbn...(se que esto es muy facil para vostros)

Gracias

Private Sub Command1_Click()
Dim a, b, c, r As Single
Dim calcul1, calcul2, calcul3 As Integer

a = Val(Text1.Text) 'definim a com a val
b = Val(Text2.Text) 'definim b com a val
c = Val(Text3.Text) 'definim c com a val

If a = 0 Then
divisio = c / b
rplus = divisio * 1
rest = divisio * -1
MsgBox " Aixo es una equació de primer grau", vbInformation 'missatge informatiu,es una equació de primer grau

Else:
If b > 0 Then
calcul1 = b ^ 2 - 4 * a * c
arrel = calcul1 ^ (1 / 2)'ERROR RAIZ
rest = -b + arrel / (2 * a) * -1
rplus = -b + arrel / (2 * a) * 1
'crec que hi ha un error a l'arrel,no la calcula

Else

If b < 0 Then
calcul2 = -4 * a * c
calcul3 = calcul2 ^ (1 / 2)'ERROR RAIZ
rplus = calcul3 / 2 * a
rest = calcul3 / 2 * a * -1

End If
End If
End If


If a = 0 Then
If b = 0 Then
MsgBox " Això no és una equació de segon grau", vbCritical 'missatge,no es 1 equació de segon grau


End If
End If





End Sub

Private Sub Command2_Click()
End
End Sub

...