BitterSweetLife
Messages postés7Date d'inscriptionmercredi 23 mars 2011StatutMembreDernière intervention23 mars 2011
-
23 mars 2011 à 17:04
BitterSweetLife
Messages postés7Date d'inscriptionmercredi 23 mars 2011StatutMembreDernière intervention23 mars 2011
-
23 mars 2011 à 17:31
j'ai fais un erreur mais j'arrive pas à la corriger
Sub jeu()
Dim x As Integer
Dim y As String
Dim s As Integer
x = Int(Rnd() * 0) + 2
s = InputBox("entre votre choix entre 0 et 2")
If x 0 And s 1 Then
MsgBox ("vous avez perdu")
Else
If x 0 And s 2 Then
MsgBox ("vous avez gagné")
Else
If x 0 And s 0 Then
MsgBox ("Match nul")
Else '0 symbolisera la pierre, 1 la feuille et 2 les ciseaux.
If x 1 And s 0 Then
MsgBox ("Vous avez perdu")
Else
If x 1 And s 1 Then
MsgBox ("Match nul")
Else
If x 1 And s 2 Then
MsgBox (" vous avez gagné")
Else
If x 2 And s 0 Then
MsgBox ("Vous avez gagné")
Else
If x 2 And s 1 Then
MsgBox ("vous avez perdu")
Else
If x 2 And s 2 Then
MsgBox ("Match nul")
End If
End Sub
il me demande mettre end if mais ça marche toujours pas :(