Discussion :

[jm41320]

bonjour j'ai écrit ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[MABROUKI]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...