probleme d'utilisation de inputbox

bonjour j'ai écrit ce code

Code:

---

1 2 3 4 5 6 7 8 9 10

Module Module1   Sub Main() Dim a, b, c As Single a = InputBox("ax2+bx+c, valeur de a") b = InputBox(a & "x2+bx+c, valeur de b") c = InputBox(a & "x2" & b & "x+c, valeur de c") End Sub   End Module

---

j'entre a=3 ça affiche 3x2 + bx +c
j'entre b=2 ça affiche 3x2+22x+c
pourquoi
merci

bonjour

d'abord la boite de message IputBox () renvoie un string ,non un Single ...il faudra faire la conversion en Single dans une autre étape de calcul...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Main() Dim a, b, c As String   a = InputBox("ax2+bx+c, valeur de a") b = InputBox(a & "x2+bx+c", "valeur de b") c = InputBox(a & "x2+" & b & "x+c", "valeur de c") 'cet input a pour but l'affichage . InputBox(a & "x2+" & b & "x+" + c, "résultat")   End Sub

---

bon code...