Bonsoir à tous,

Alors voilà, actuellement en 1ere année de licence info je dois créer un petit programme pour résoudre les équations du second degré.

J'ai çà:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Public Class Form1
Dim a, b, c As Integer
Dim dt, x0, x1, x2 As String
a = InputBox ( " Valeur de a ? " )
b = InputBox ( " Valeur de b ? " )
c = InputBox ( " Valeur de c ? " )
dt = b^2-(4*a*c)
If (dt>0) Then
x1 = (-b+dt^(1/2))/(2*a)
x2 = (-b-dt^(1/2))/(2*a)
MsgBox( " Les solutions sont " & x1 & x2 )
Else
If (dt=0) Then
x0 = -b/(2*a)
MsgBox ( " La solution est " & x0 )
Else
MsgBox ( " Pas de solution " )
EndIf
EndIf
 
End Class
Mais j'ai 16 erreurs... Sans savoir d'où çà peut venir.

J'utilise VB express 2008.
Les erreurs apparaissent quand je tentent un debugage.