Syntaxe If Then Else Visual basic Résolu/Fermé

Question

Bonjour, 
je debute en visual basic et ai un probleme de syntaxe.
Voila mon code.

        If    x < 3                Then               pm = 45 And mr = 1.2
        If    3 <= x < 6        Then               pm = 43 And mr = 1.125
        If    6 <= x < 9        Then               pm = 40 And mr = 1.125
        If    9 <= x < 12      Then               pm = 38 And mr = 1.125
        If    12 <= x < 15    Then               pm = 35 And mr = 1.125
        If    15 <= x < 20    Then               pm = 34 And mr = 1.125
        If    20 <= x < 30    Then               pm = 33 And mr = 1.125
        If    30 <= x < 40    Then               pm = 32 And mr = 1.125
        If    40 <= x < 50    Then               pm = 31 And mr = 1.125
        If    50 <= x < 60    Then               pm = 30 And mr = 1.125
        If    x >= 60            Then               pm = 29 And mr = 1.05

Configuration: Windows XP / Firefox 5.0

chossette9 · Accepted Answer

Bonjour, 

en utilisant If, Then et Else : If x < 3 Then
    pm = 45
    mr = 1.2
Else If x < 6 Then
    pm = 43
    mr = 1.125
Else IF x < 9 Then
...
Else 
    pm = 29
    mr = 1.05
End If

En utilisant le Select case : Select Case x
    Case < 3
        pm = 45
        mr = 1.2
    Case < 6
        pm = 43
        mr = 1.125
    Case < 9
...
    Case < 60
        pm = 30
        mr = 1.125
    Case Else 
        pm = 29
        mr = 1.05
End Select


Cordialement.

gloutonbargeot · Answer

Bonjour,

Tu ne peux pas faire un encadrement en programmation. De plus les instructions à exécuter ne peuvent contenir "AND":
if 3 <= x < 6 Then pm = 43 And mr = 1.125 est incorrect

tu dois écrire:
IF x <= 3 AND x < 6 then
     pm = 43
     mr = 1.125
EndIF

J'espère que ca t'aide

Glouton.

maxsky · Answer

Glouton et chousette, je vous remercie de votre aide qui m'a etait precieux mon programme marche a merveille maintenant .
Bonne continuation et merci encore !!!

Syntaxe If Then Else Visual basic

3 réponses

Discussions similaires