La calculatrice

dim nombre1
dim nombre2
dim signe
dim answer
dim menu
dim menujeu
dim answerjeu
dim tour
dim nbrpoints
dim reponsejoueur

do

menu = inputbox ("Bonjour, le programme que vous venez d'ouvrir est une calculatrice faisant aussi office de jeu."_
+ chr(13) _
+ "Souhaitez vous:" _
+ chr(13) _
+ chr(13) _
+ "'calculer' ?" _
+ chr(13) _
+ "'jouer' ? " _
+ chr(13) _
+ "'quitter' ?" , , "entrer le mot de la partie choisie pour y accéder")

if (menu = "calculer") then
nombre1 = cint (inputbox ("Veuillez insérer un premier nombre entier positif compris entre 0 et 10 (10 compris)."))

if (nombre1>10) then
msgbox "Attention, ce nombre est plus grand que 10" , vbcritical , ""
Wscript.quit
else
end if

if (nombre1<0) then
msgbox "Attention, ce nombre est plus petit que 0" , vbcritical , ""
Wscript.quit
else
end if

signe = inputbox ("Quelle opération souhaitez vous effectuer ?"_
+ chr(13) _
+ chr(13) _
+ "' + ' pour une addition" _
+ chr(13) _
+ "' - ' pour une soustraction" _
+ chr(13) _
+ "' * ' pour une multiplication")

nombre2 = cint (inputbox ("Veuillez insérer un deuxième nombre entier positif compris entre 0 et 10 (10 compris)."))
end if

if (nombre2>10) then
msgbox "Attention, ce nombre est plus grand que 10" , vbcritical , ""
Wscript.quit
else
end if

if (nombre2<0) then
msgbox "Attention, ce nombre est plus petit que 0" , vbcritical , ""
Wscript.quit
else
end if

if (nombre1 = "0") and (nombre2 = "0") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 0")
Wscript.quit
else
end if

if (nombre1 = "0") and (nombre2 = "1") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 1")
Wscript.quit
else
end if

if (nombre1 = "0") and (nombre2 = "2") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 2")
Wscript.quit
else
end if

if (nombre1 = "0") and (nombre2 = "3") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 3")
Wscript.quit
else
end if

if (nombre1 = "0") and (nombre2 = "4") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 4")
Wscript.quit
else
end if

if (nombre1 = "0") and (nombre2 = "5") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 5")
Wscript.quit
else
end if

if (nombre1 = "0") and (nombre2 = "6") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 6")
Wscript.quit
else
end if

if (nombre1 = "0") and (nombre2 = "7") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 7")
Wscript.quit
else
end if

if (nombre1 = "0") and (nombre2 = "8") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 8")
Wscript.quit
else
end if

if (nombre1 = "0") and (nombre2 = "9") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 9")
Wscript.quit
else
end if

if (nombre1 = "0") and (nombre2 = "10") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 10")
Wscript.quit
else
end if

if (nombre1 = "1") and (nombre2 = "0") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 1")
Wscript.quit
else
end if

if (nombre1 = "0") and (nombre2 = "1") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 1")
Wscript.quit
else
end if

if (nombre1 = "1") and (nombre2 = "1") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 2")
Wscript.quit
else
end if

if (nombre1 = "1") and (nombre2 = "2") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 3")
Wscript.quit
else
end if

if (nombre1 = "1") and (nombre2 = "3") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 4")
Wscript.quit
else
end if

if (nombre1 = "1") and (nombre2 = "4") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 5")
Wscript.quit
else
end if

if (nombre1 = "1") and (nombre2 = "5") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 6")
Wscript.quit
else
end if

if (nombre1 = "1") and (nombre2 = "6") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 7")
Wscript.quit
else
end if

if (nombre1 = "1") and (nombre2 = "7") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 8")
Wscript.quit
else
end if

if (nombre1 = "1") and (nombre2 = "8") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 9")
Wscript.quit
else
end if

if (nombre1 = "1") and (nombre2 = "9") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 10")
Wscript.quit
else
end if

if (nombre1 = "1") and (nombre2 = "10") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 11")
Wscript.quit
else
end if

if (nombre1 = "2") and (nombre2 = "0") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 2")
Wscript.quit
else
end if

if (nombre1 = "2") and (nombre2 = "1") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 3")
Wscript.quit
else
end if

if (nombre1 = "2") and (nombre2 = "2") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 4")
Wscript.quit
else
end if

if (nombre1 = "2") and (nombre2 = "3") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 5")
Wscript.quit
else
end if

if (nombre1 = "2") and (nombre2 = "4") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 6")
Wscript.quit
else
end if

if (nombre1 = "2") and (nombre2 = "5") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 7")
Wscript.quit
else
end if

if (nombre1 = "2") and (nombre2 = "6") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 8")
Wscript.quit
else
end if

if (nombre1 = "2") and (nombre2 = "7") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 9")
Wscript.quit
else
end if

if (nombre1 = "2") and (nombre2 = "8") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 10")
Wscript.quit
else
end if

if (nombre1 = "2") and (nombre2 = "9") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 11")
Wscript.quit
else
end if

if (nombre1 = "2") and (nombre2 = "10") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 12")
Wscript.quit
else
end if

if (nombre1 = "3") and (nombre2 = "0") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 3")
Wscript.quit
else
end if

if (nombre1 = "3") and (nombre2 = "1") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 4")
Wscript.quit
else
end if

if (nombre1 = "3") and (nombre2 = "2") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 5")
Wscript.quit
else
end if

if (nombre1 = "3") and (nombre2 = "3") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 6")
Wscript.quit
else
end if

if (nombre1 = "3") and (nombre2 = "4") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 7")
Wscript.quit
else
end if

if (nombre1 = "3") and (nombre2 = "5") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 8")
Wscript.quit
else
end if
if (nombre1 = "3") and (nombre2 = "6") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 9")
Wscript.quit
else
end if

if (nombre1 = "3") and (nombre2 = "7") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 10")
Wscript.quit
else
end if

if (nombre1 = "3") and (nombre2 = "8") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 11")
Wscript.quit
else
end if

if (nombre1 = "3") and (nombre2 = "9") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 12")
Wscript.quit
else
end if

if (nombre1 = "3") and (nombre2 = "10") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 13")
Wscript.quit
else
end if

if (nombre1 = "4") and (nombre2 = "0") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 4")
Wscript.quit
else
end if

if (nombre1 = "4") and (nombre2 = "1") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 5")
Wscript.quit
else
end if

if (nombre1 = "4") and (nombre2 = "2") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 6")
Wscript.quit
else
end if

if (nombre1 = "4") and (nombre2 = "3") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 7")
Wscript.quit
else
end if
if (nombre1 = "4") and (nombre2 = "4") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 8")
Wscript.quit
else
end if

if (nombre1 = "4") and (nombre2 = "5") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 9")
Wscript.quit
else
end if

if (nombre1 = "4") and (nombre2 = "6") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 10")
Wscript.quit
else
end if

if (nombre1 = "4") and (nombre2 = "7") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 11")
Wscript.quit
else
end if

if (nombre1 = "4") and (nombre2 = "8") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 12")
Wscript.quit
else
end if

if (nombre1 = "4") and (nombre2 = "9") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 13")
Wscript.quit
else
end if

if (nombre1 = "4") and (nombre2 = "10") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 14")
Wscript.quit
else
end if

if (nombre1 = "5") and (nombre2 = "0") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 5")
Wscript.quit
else
end if

if (nombre1 = "5") and (nombre2 = "1") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 6")
Wscript.quit
else
end if

if (nombre1 = "5") and (nombre2 = "2") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 7")
Wscript.quit
else
end if

if (nombre1 = "5") and (nombre2 = "3") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 8")
Wscript.quit
else
end if

if (nombre1 = "5") and (nombre2 = "4") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 9")
Wscript.quit
else
end if

if (nombre1 = "5") and (nombre2 = "5") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 10")
Wscript.quit
else
end if

if (nombre1 = "5") and (nombre2 = "6") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 11")
Wscript.quit
else
end if

if (nombre1 = "5") and (nombre2 = "7") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 12")
Wscript.quit
else
end if

if (nombre1 = "5") and (nombre2 = "8") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 13")
Wscript.quit
else
end if

if (nombre1 = "5") and (nombre2 = "9") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 14")
Wscript.quit
else
end if

if (nombre1 = "5") and (nombre2 = "10") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 15")
Wscript.quit
else
end if

if (nombre1 = "6") and (nombre2 = "0") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 6")
Wscript.quit
else
end if


if (nombre1 = "6") and (nombre2 = "1") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 7")
Wscript.quit
else
end if


if (nombre1 = "6") and (nombre2 = "2") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 8")
Wscript.quit
else
end if


if (nombre1 = "6") and (nombre2 = "3") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 9")
Wscript.quit
else
end if


if (nombre1 = "6") and (nombre2 = "4") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 10")
Wscript.quit
else
end if

if (nombre1 = "6") and (nombre2 = "5") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 11")
Wscript.quit
else
end if

if (nombre1 = "6") and (nombre2 = "6") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 12")
Wscript.quit
else
end if

if (nombre1 = "6") and (nombre2 = "7") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 13")
Wscript.quit
else
end if

if (nombre1 = "6") and (nombre2 = "8") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 14")
Wscript.quit
else
end if

if (nombre1 = "6") and (nombre2 = "9") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 15")
Wscript.quit
else
end if

if (nombre1 = "6") and (nombre2 = "10") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 16")
Wscript.quit
else
end if

if (nombre1 = "7") and (nombre2 = "0") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 7")
Wscript.quit
else
end if

if (nombre1 = "7") and (nombre2 = "1") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 8")
Wscript.quit
else
end if

if (nombre1 = "7") and (nombre2 = "2") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 9")
Wscript.quit
else
end if

if (nombre1 = "7") and (nombre2 = "3") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 10")
Wscript.quit
else
end if

if (nombre1 = "7") and (nombre2 = "4") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 11")
Wscript.quit
else
end if

if (nombre1 = "7") and (nombre2 = "5") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 12")
Wscript.quit
else
end if

if (nombre1 = "7") and (nombre2 = "6") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 13")
Wscript.quit
else
end if

if (nombre1 = "7") and (nombre2 = "7") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 14")
Wscript.quit
else
end if

if (nombre1 = "7") and (nombre2 = "8") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 15")
Wscript.quit
else
end if

if (nombre1 = "7") and (nombre2 = "9") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 16")
Wscript.quit
else
end if

if (nombre1 = "7") and (nombre2 = "10") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 17")
Wscript.quit
else
end if

if (nombre1 = "8") and (nombre2 = "0") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 8")
Wscript.quit
else
end if

if (nombre1 = "8") and (nombre2 = "1") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 9")
Wscript.quit
else
end if

if (nombre1 = "8") and (nombre2 = "2") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 10")
Wscript.quit
else
end if

if (nombre1 = "8") and (nombre2 = "3") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 11")
Wscript.quit
else
end if

if (nombre1 = "8") and (nombre2 = "4") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 12")
Wscript.quit
else
end if

if (nombre1 = "8") and (nombre2 = "5") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 13")
Wscript.quit
else
end if

if (nombre1 = "8") and (nombre2 = "6") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 14")
Wscript.quit
else
end if

if (nombre1 = "8") and (nombre2 = "7") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 15")
Wscript.quit
else
end if

if (nombre1 = "8") and (nombre2 = "8") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 16")
Wscript.quit
else
end if

if (nombre1 = "8") and (nombre2 = "9") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 17")
Wscript.quit
else
end if

if (nombre1 = "8") and (nombre2 = "10") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 18")
Wscript.quit
else
end if

if (nombre1 = "9") and (nombre2 = "0") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 9")
Wscript.quit
else
end if

if (nombre1 = "9") and (nombre2 = "1") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 10")
Wscript.quit
else
end if

if (nombre1 = "9") and (nombre2 = "2") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 11")
Wscript.quit
else
end if

if (nombre1 = "9") and (nombre2 = "3") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 12")
Wscript.quit
else
end if

if (nombre1 = "9") and (nombre2 = "4") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 13")
Wscript.quit
else
end if

if (nombre1 = "9") and (nombre2 = "5") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 14")
Wscript.quit
else
end if

if (nombre1 = "9") and (nombre2 = "6") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 15")
Wscript.quit
else
end if

if (nombre1 = "9") and (nombre2 = "7") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 16")
Wscript.quit
else
end if

if (nombre1 = "9") and (nombre2 = "8") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 17")
Wscript.quit
else
end if

if (nombre1 = "9") and (nombre2 = "9") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 18")
Wscript.quit
else
end if

if (nombre1 = "9") and (nombre2 = "10") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 19")
Wscript.quit
else
end if

if (nombre1 = "10") and (nombre2 = "0") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 10")
Wscript.quit
else
end if

if (nombre1 = "10") and (nombre2 = "1") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 11")
Wscript.quit
else
end if

if (nombre1 = "10") and (nombre2 = "2") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 12")
Wscript.quit
else
end if

if (nombre1 = "10") and (nombre2 = "3") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 13")
Wscript.quit
else
end if

if (nombre1 = "10") and (nombre2 = "4") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 14")
Wscript.quit
else
end if

if (nombre1 = "10") and (nombre2 = "5") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 15")
Wscript.quit
else
end if

if (nombre1 = "10") and (nombre2 = "6") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 16")
Wscript.quit
else
end if

if (nombre1 = "10") and (nombre2 = "7") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 17")
Wscript.quit
else
end if

if (nombre1 = "10") and (nombre2 = "8") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 18")
Wscript.quit
else
end if

if (nombre1 = "10") and (nombre2 = "9") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 19")
Wscript.quit
else
end if

if (nombre1 = "10") and (nombre2 = "10") and (signe = "+") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 20")
Wscript.quit
else
end if

if (nombre1 = "0") and (nombre2 = "1") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 0")
Wscript.quit
else
end if

if (nombre1 = "0") and (nombre2 = "2") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 0")
Wscript.quit
else
end if

if (nombre1 = "0") and (nombre2 = "3") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 0")
Wscript.quit
else
end if

if (nombre1 = "0") and (nombre2 = "4") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 0")
Wscript.quit
else
end if

if (nombre1 = "0") and (nombre2 = "5") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 0")
Wscript.quit
else
end if

if (nombre1 = "0") and (nombre2 = "6") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 0")
Wscript.quit
else
end if

if (nombre1 = "0") and (nombre2 = "7") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 0")
Wscript.quit
else
end if

if (nombre1 = "0") and (nombre2 = "8") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 0")
Wscript.quit
else
end if

if (nombre1 = "0") and (nombre2 = "9") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 0")
Wscript.quit
else
end if

if (nombre1 = "0") and (nombre2 = "10") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 0")
Wscript.quit
else
end if

if (nombre1 = "1") and (nombre2 = "0") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 0")
Wscript.quit
else
end if

if (nombre1 = "1") and (nombre2 = "1") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 1")
Wscript.quit
else
end if

if (nombre1 = "1") and (nombre2 = "2") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 2")
Wscript.quit
else
end if

if (nombre1 = "1") and (nombre2 = "3") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 3")
Wscript.quit
else
end if

if (nombre1 = "1") and (nombre2 = "4") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 4")
Wscript.quit
else
end if

if (nombre1 = "1") and (nombre2 = "5") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 5")
Wscript.quit
else
end if

if (nombre1 = "1") and (nombre2 = "6") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 6")
Wscript.quit
else
end if

if (nombre1 = "1") and (nombre2 = "7") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 7")
Wscript.quit
else
end if

if (nombre1 = "1") and (nombre2 = "8") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 8")
Wscript.quit
else
end if

if (nombre1 = "1") and (nombre2 = "9") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 9")
Wscript.quit
else
end if

if (nombre1 = "1") and (nombre2 = "10") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 10")
Wscript.quit
else
end if

if (nombre1 = "2") and (nombre2 = "0") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 0")
Wscript.quit
else
end if

if (nombre1 = "2") and (nombre2 = "1") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 2")
Wscript.quit
else
end if

if (nombre1 = "2") and (nombre2 = "2") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 4")
Wscript.quit
else
end if

if (nombre1 = "2") and (nombre2 = "3") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 6")
Wscript.quit
else
end if

if (nombre1 = "2") and (nombre2 = "4") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 8")
Wscript.quit
else
end if

if (nombre1 = "2") and (nombre2 = "5") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 10")
Wscript.quit
else
end if

if (nombre1 = "2") and (nombre2 = "6") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 12")
Wscript.quit
else
end if

if (nombre1 = "2") and (nombre2 = "7") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 14")
Wscript.quit
else
end if

if (nombre1 = "2") and (nombre2 = "8") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 16")
Wscript.quit
else
end if

if (nombre1 = "2") and (nombre2 = "9") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 18")
Wscript.quit
else
end if

if (nombre1 = "2") and (nombre2 = "10") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 20")
Wscript.quit
else
end if

if (nombre1 = "3") and (nombre2 = "0") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 0")
Wscript.quit
else
end if

if (nombre1 = "3") and (nombre2 = "1") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 3")
Wscript.quit
else
end if

if (nombre1 = "3") and (nombre2 = "2") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 6")
Wscript.quit
else
end if

if (nombre1 = "3") and (nombre2 = "3") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 9")
Wscript.quit
else
end if

if (nombre1 = "3") and (nombre2 = "4") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 12")
Wscript.quit
else
end if

if (nombre1 = "3") and (nombre2 = "5") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 15")
Wscript.quit
else
end if

if (nombre1 = "3") and (nombre2 = "6") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 18")
Wscript.quit
else
end if

if (nombre1 = "3") and (nombre2 = "7") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 21")
Wscript.quit
else
end if

if (nombre1 = "3") and (nombre2 = "8") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 24")
Wscript.quit
else
end if

if (nombre1 = "3") and (nombre2 = "9") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 27")
Wscript.quit
else
end if

if (nombre1 = "3") and (nombre2 = "10") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 30")
Wscript.quit
else
end if

if (nombre1 = "4") and (nombre2 = "0") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 0")
Wscript.quit
else
end if

if (nombre1 = "4") and (nombre2 = "1") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 4")
Wscript.quit
else
end if

if (nombre1 = "4") and (nombre2 = "2") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 8")
Wscript.quit
else
end if

if (nombre1 = "4") and (nombre2 = "3") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 12")
Wscript.quit
else
end if

if (nombre1 = "4") and (nombre2 = "4") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 16")
Wscript.quit
else
end if

if (nombre1 = "4") and (nombre2 = "5") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 20")
Wscript.quit
else
end if

if (nombre1 = "4") and (nombre2 = "6") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 24")
Wscript.quit
else
end if

if (nombre1 = "4") and (nombre2 = "7") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 28")
Wscript.quit
else
end if

if (nombre1 = "4") and (nombre2 = "8") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 32")
Wscript.quit
else
end if

if (nombre1 = "4") and (nombre2 = "9") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 36")
Wscript.quit
else
end if

if (nombre1 = "4") and (nombre2 = "10") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 40")
Wscript.quit
else
end if

if (nombre1 = "5") and (nombre2 = "0") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 0")
Wscript.quit
else
end if

if (nombre1 = "5") and (nombre2 = "1") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 5")
Wscript.quit
else
end if

if (nombre1 = "5") and (nombre2 = "2") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 10")
Wscript.quit
else
end if

if (nombre1 = "5") and (nombre2 = "3") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 15")
Wscript.quit
else
end if

if (nombre1 = "5") and (nombre2 = "4") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 20")
Wscript.quit
else
end if

if (nombre1 = "5") and (nombre2 = "5") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 25")
Wscript.quit
else
end if

if (nombre1 = "5") and (nombre2 = "6") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 30")
Wscript.quit
else
end if

if (nombre1 = "5") and (nombre2 = "7") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 35")
Wscript.quit
else
end if

if (nombre1 = "5") and (nombre2 = "8") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 40")
Wscript.quit
else
end if

if (nombre1 = "5") and (nombre2 = "9") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 45")
Wscript.quit
else
end if

if (nombre1 = "5") and (nombre2 = "10") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 50")
Wscript.quit
else
end if

if (nombre1 = "6") and (nombre2 = "0") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 0")
Wscript.quit
else
end if

if (nombre1 = "6") and (nombre2 = "1") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 6")
Wscript.quit
else
end if

if (nombre1 = "6") and (nombre2 = "2") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 12")
Wscript.quit
else
end if

if (nombre1 = "6") and (nombre2 = "3") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 18")
Wscript.quit
else
end if

if (nombre1 = "6") and (nombre2 = "4") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 24")
Wscript.quit
else
end if

if (nombre1 = "6") and (nombre2 = "5") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 30")
Wscript.quit
else
end if

if (nombre1 = "6") and (nombre2 = "6") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 36")
Wscript.quit
else
end if

if (nombre1 = "6") and (nombre2 = "7") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 42")
Wscript.quit
else
end if

if (nombre1 = "6") and (nombre2 = "8") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 48")
Wscript.quit
else
end if

if (nombre1 = "6") and (nombre2 = "9") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 54")
Wscript.quit
else
end if

if (nombre1 = "6") and (nombre2 = "10") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 60")
Wscript.quit
else
end if

if (nombre1 = "7") and (nombre2 = "0") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 0")
Wscript.quit
else
end if

if (nombre1 = "7") and (nombre2 = "1") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 7")
Wscript.quit
else
end if

if (nombre1 = "7") and (nombre2 = "2") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 14")
Wscript.quit
else
end if

if (nombre1 = "7") and (nombre2 = "3") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 21")
Wscript.quit
else
end if

if (nombre1 = "7") and (nombre2 = "4") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 28")
Wscript.quit
else
end if

if (nombre1 = "7") and (nombre2 = "5") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 35")
Wscript.quit
else
end if

if (nombre1 = "7") and (nombre2 = "6") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 42")
Wscript.quit
else
end if

if (nombre1 = "7") and (nombre2 = "7") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 49")
Wscript.quit
else
end if

if (nombre1 = "7") and (nombre2 = "8") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 56")
Wscript.quit
else
end if

if (nombre1 = "7") and (nombre2 = "9") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 63")
Wscript.quit
else
end if

if (nombre1 = "8") and (nombre2 = "0") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 0")
Wscript.quit
else
end if

if (nombre1 = "8") and (nombre2 = "1") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 8")
Wscript.quit
else
end if

if (nombre1 = "8") and (nombre2 = "2") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 16")
Wscript.quit
else
end if

if (nombre1 = "8") and (nombre2 = "3") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 24")
Wscript.quit
else
end if

if (nombre1 = "8") and (nombre2 = "4") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 32")
Wscript.quit
else
end if

if (nombre1 = "8") and (nombre2 = "5") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 40")
Wscript.quit
else
end if

if (nombre1 = "8") and (nombre2 = "6") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 48")
Wscript.quit
else
end if

if (nombre1 = "8") and (nombre2 = "7") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 56")
Wscript.quit
else
end if

if (nombre1 = "8") and (nombre2 = "8") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 64")
Wscript.quit
else
end if

if (nombre1 = "8") and (nombre2 = "9") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 72")
Wscript.quit
else
end if

if (nombre1 = "8") and (nombre2 = "10") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 80")
Wscript.quit
else
end if

if (nombre1 = "9") and (nombre2 = "0") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 0")
Wscript.quit
else
end if

if (nombre1 = "9") and (nombre2 = "1") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 9")
Wscript.quit
else
end if

if (nombre1 = "9") and (nombre2 = "2") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 18")
Wscript.quit
else
end if

if (nombre1 = "9") and (nombre2 = "3") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 27")
Wscript.quit
else
end if

if (nombre1 = "9") and (nombre2 = "4") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 36")
Wscript.quit
else
end if

if (nombre1 = "9") and (nombre2 = "5") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 45")
Wscript.quit
else
end if

if (nombre1 = "9") and (nombre2 = "6") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 54")
Wscript.quit
else
end if

if (nombre1 = "9") and (nombre2 = "7") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 63")
Wscript.quit
else
end if

if (nombre1 = "9") and (nombre2 = "8") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 72")
Wscript.quit
else
end if

if (nombre1 = "9") and (nombre2 = "9") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 81")
Wscript.quit
else
end if

if (nombre1 = "9") and (nombre2 = "10") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 90")
Wscript.quit
else
end if

if (nombre1 = "10") and (nombre2 = "0") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 0")
Wscript.quit
else
end if

if (nombre1 = "10") and (nombre2 = "1") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 10")
Wscript.quit
else
end if

if (nombre1 = "10") and (nombre2 = "2") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 20")
Wscript.quit
else
end if

if (nombre1 = "10") and (nombre2 = "3") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 30")
Wscript.quit
else
end if

if (nombre1 = "10") and (nombre2 = "4") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 40")
Wscript.quit
else
end if

if (nombre1 = "10") and (nombre2 = "5") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 50")
Wscript.quit
else
end if

if (nombre1 = "10") and (nombre2 = "6") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 60")
Wscript.quit
else
end if

if (nombre1 = "10") and (nombre2 = "7") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 70")
Wscript.quit
else
end if

if (nombre1 = "10") and (nombre2 = "8") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 80")
Wscript.quit
else
end if

if (nombre1 = "10") and (nombre2 = "9") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 90")
Wscript.quit
else
end if

if (nombre1 = "10") and (nombre2 = "10") and (signe = "*") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 100")
Wscript.quit
else
end if

if (nombre1 = "0") and (nombre2 = "0") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 0")
Wscript.quit
else
end if

if (nombre1 = "0") and (nombre2 = "1") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -1")
Wscript.quit
else
end if


if (nombre1 = "0") and (nombre2 = "2") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -2")
Wscript.quit
else
end if


if (nombre1 = "0") and (nombre2 = "3") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -3")
Wscript.quit
else
end if


if (nombre1 = "0") and (nombre2 = "4") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -4")
Wscript.quit
else
end if


if (nombre1 = "0") and (nombre2 = "5") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -5")
Wscript.quit
else
end if


if (nombre1 = "0") and (nombre2 = "6") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -6")
Wscript.quit
else
end if


if (nombre1 = "0") and (nombre2 = "7") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -7")
Wscript.quit
else
end if


if (nombre1 = "0") and (nombre2 = "8") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -8")
Wscript.quit
else
end if


if (nombre1 = "0") and (nombre2 = "9") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -9")
Wscript.quit
else
end if


if (nombre1 = "0") and (nombre2 = "10") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -10")
Wscript.quit
else
end if


if (nombre1 = "1") and (nombre2 = "0") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 1")
Wscript.quit
else
end if

if (nombre1 = "1") and (nombre2 = "1") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 0")
Wscript.quit
else
end if

if (nombre1 = "1") and (nombre2 = "2") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -1")
Wscript.quit
else
end if

if (nombre1 = "1") and (nombre2 = "3") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -2")
Wscript.quit
else
end if

if (nombre1 = "1") and (nombre2 = "4") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -3")
Wscript.quit
else
end if

if (nombre1 = "1") and (nombre2 = "5") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -4")
Wscript.quit
else
end if

if (nombre1 = "1") and (nombre2 = "6") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -5")
Wscript.quit
else
end if

if (nombre1 = "1") and (nombre2 = "7") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -6")
Wscript.quit
else
end if

if (nombre1 = "1") and (nombre2 = "8") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -7")
Wscript.quit
else
end if

if (nombre1 = "1") and (nombre2 = "9") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -8")
Wscript.quit
else
end if

if (nombre1 = "1") and (nombre2 = "10") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -9")
Wscript.quit
else
end if

if (nombre1 = "2") and (nombre2 = "0") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 2")
Wscript.quit
else
end if

if (nombre1 = "2") and (nombre2 = "1") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 1")
Wscript.quit
else
end if

if (nombre1 = "2") and (nombre2 = "2") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 0")
Wscript.quit
else
end if

if (nombre1 = "2") and (nombre2 = "3") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -1")
Wscript.quit
else
end if

if (nombre1 = "2") and (nombre2 = "4") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -2")
Wscript.quit
else
end if

if (nombre1 = "2") and (nombre2 = "5") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -3")
Wscript.quit
else
end if

if (nombre1 = "2") and (nombre2 = "6") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -4")
Wscript.quit
else
end if

if (nombre1 = "2") and (nombre2 = "7") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -5")
Wscript.quit
else
end if

if (nombre1 = "2") and (nombre2 = "8") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -6")
Wscript.quit
else
end if

if (nombre1 = "2") and (nombre2 = "9") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -7")
Wscript.quit
else
end if

if (nombre1 = "2") and (nombre2 = "10") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -8")
Wscript.quit
else
end if

if (nombre1 = "3") and (nombre2 = "0") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 3")
Wscript.quit
else
end if

if (nombre1 = "3") and (nombre2 = "1") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 2")
Wscript.quit
else
end if

if (nombre1 = "3") and (nombre2 = "2") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 1")
Wscript.quit
else
end if

if (nombre1 = "3") and (nombre2 = "3") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 0")
Wscript.quit
else
end if

if (nombre1 = "3") and (nombre2 = "4") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -1")
Wscript.quit
else
end if

if (nombre1 = "3") and (nombre2 = "5") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -2")
Wscript.quit
else
end if

if (nombre1 = "3") and (nombre2 = "6") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -3")
Wscript.quit
else
end if

if (nombre1 = "3") and (nombre2 = "7") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -4")
Wscript.quit
else
end if

if (nombre1 = "3") and (nombre2 = "8") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -5")
Wscript.quit
else
end if

if (nombre1 = "3") and (nombre2 = "9") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -6")
Wscript.quit
else
end if

if (nombre1 = "3") and (nombre2 = "10") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -7")
Wscript.quit
else
end if

if (nombre1 = "4") and (nombre2 = "0") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 4")
Wscript.quit
else
end if

if (nombre1 = "4") and (nombre2 = "1") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 3")
Wscript.quit
else
end if

if (nombre1 = "4") and (nombre2 = "2") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 2")
Wscript.quit
else
end if

if (nombre1 = "4") and (nombre2 = "3") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 1")
Wscript.quit
else
end if

if (nombre1 = "4") and (nombre2 = "4") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 0")
Wscript.quit
else
end if

if (nombre1 = "4") and (nombre2 = "5") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -1")
Wscript.quit
else
end if

if (nombre1 = "4") and (nombre2 = "6") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -2")
Wscript.quit
else
end if

if (nombre1 = "4") and (nombre2 = "7") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -3")
Wscript.quit
else
end if

if (nombre1 = "4") and (nombre2 = "8") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -4")
Wscript.quit
else
end if

if (nombre1 = "4") and (nombre2 = "9") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -5")
Wscript.quit
else
end if

if (nombre1 = "4") and (nombre2 = "10") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -6")
Wscript.quit
else
end if

if (nombre1 = "5") and (nombre2 = "0") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 5")
Wscript.quit
else
end if

if (nombre1 = "5") and (nombre2 = "1") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 4")
Wscript.quit
else
end if

if (nombre1 = "5") and (nombre2 = "2") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 3")
Wscript.quit
else
end if

if (nombre1 = "5") and (nombre2 = "3") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 2")
Wscript.quit
else
end if

if (nombre1 = "5") and (nombre2 = "4") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 1")
Wscript.quit
else
end if

if (nombre1 = "5") and (nombre2 = "5") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 0")
Wscript.quit
else
end if

if (nombre1 = "5") and (nombre2 = "6") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -1")
Wscript.quit
else
end if

if (nombre1 = "5") and (nombre2 = "7") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -2")
Wscript.quit
else
end if

if (nombre1 = "5") and (nombre2 = "8") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -3")
Wscript.quit
else
end if

if (nombre1 = "5") and (nombre2 = "9") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -4")
Wscript.quit
else
end if

if (nombre1 = "5") and (nombre2 = "10") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -5")
Wscript.quit
else
end if

if (nombre1 = "6") and (nombre2 = "0") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 6")
Wscript.quit
else
end if

if (nombre1 = "6") and (nombre2 = "1") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 5")
Wscript.quit
else
end if

if (nombre1 = "6") and (nombre2 = "0") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 6")
Wscript.quit
else
end if

if (nombre1 = "6") and (nombre2 = "1") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 5")
Wscript.quit
else
end if

if (nombre1 = "6") and (nombre2 = "2") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 4")
Wscript.quit
else
end if

if (nombre1 = "6") and (nombre2 = "3") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 3")
Wscript.quit
else
end if

if (nombre1 = "6") and (nombre2 = "4") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 2")
Wscript.quit
else
end if

if (nombre1 = "6") and (nombre2 = "5") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 1")
Wscript.quit
else
end if

if (nombre1 = "6") and (nombre2 = "6") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 0")
Wscript.quit
else
end if

if (nombre1 = "6") and (nombre2 = "7") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -1")
Wscript.quit
else
end if

if (nombre1 = "6") and (nombre2 = "8") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -2")
Wscript.quit
else
end if

if (nombre1 = "6") and (nombre2 = "9") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -3")
Wscript.quit
else
end if

if (nombre1 = "6") and (nombre2 = "10") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -4")
Wscript.quit
else
end if

if (nombre1 = "6") and (nombre2 = "7") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -1")
Wscript.quit
else
end if

if (nombre1 = "7") and (nombre2 = "0") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 7")
Wscript.quit
else
end if

if (nombre1 = "7") and (nombre2 = "1") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 6")
Wscript.quit
else
end if

if (nombre1 = "7") and (nombre2 = "2") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 5")
Wscript.quit
else
end if

if (nombre1 = "7") and (nombre2 = "3") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 4")
Wscript.quit
else
end if

if (nombre1 = "7") and (nombre2 = "4") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 3")
Wscript.quit
else
end if

if (nombre1 = "7") and (nombre2 = "5") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 2")
Wscript.quit
else
end if

if (nombre1 = "7") and (nombre2 = "6") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 1")
Wscript.quit
else
end if

if (nombre1 = "7") and (nombre2 = "7") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 0")
Wscript.quit
else
end if

if (nombre1 = "7") and (nombre2 = "8") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -1")
Wscript.quit
else
end if

if (nombre1 = "7") and (nombre2 = "9") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -2")
Wscript.quit
else
end if

if (nombre1 = "7") and (nombre2 = "10") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -3")
Wscript.quit
else
end if

if (nombre1 = "8") and (nombre2 = "0") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 8")
Wscript.quit
else
end if

if (nombre1 = "8") and (nombre2 = "1") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 7")
Wscript.quit
else
end if

if (nombre1 = "8") and (nombre2 = "2") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 6")
Wscript.quit
else
end if

if (nombre1 = "8") and (nombre2 = "3") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 5")
Wscript.quit
else
end if

if (nombre1 = "8") and (nombre2 = "4") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 4")
Wscript.quit
else
end if

if (nombre1 = "8") and (nombre2 = "5") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 3")
Wscript.quit
else
end if

if (nombre1 = "8") and (nombre2 = "6") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 2")
Wscript.quit
else
end if

if (nombre1 = "8") and (nombre2 = "7") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 1")
Wscript.quit
else
end if

if (nombre1 = "8") and (nombre2 = "8") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 0")
Wscript.quit
else
end if

if (nombre1 = "8") and (nombre2 = "9") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -1")
Wscript.quit
else
end if

if (nombre1 = "8") and (nombre2 = "10") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -2")
Wscript.quit
else
end if

if (nombre1 = "9") and (nombre2 = "0") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 9")
Wscript.quit
else
end if

if (nombre1 = "9") and (nombre2 = "1") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 8")
Wscript.quit
else
end if

if (nombre1 = "9") and (nombre2 = "2") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 7")
Wscript.quit
else
end if

if (nombre1 = "9") and (nombre2 = "3") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 6")
Wscript.quit
else
end if

if (nombre1 = "9") and (nombre2 = "4") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 5")
Wscript.quit
else
end if

if (nombre1 = "9") and (nombre2 = "5") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 4")
Wscript.quit
else
end if

if (nombre1 = "9") and (nombre2 = "6") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 3")
Wscript.quit
else
end if

if (nombre1 = "9") and (nombre2 = "7") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 2")
Wscript.quit
else
end if

if (nombre1 = "9") and (nombre2 = "8") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 1")
Wscript.quit
else
end if

if (nombre1 = "9") and (nombre2 = "9") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 0")
Wscript.quit
else
end if

if (nombre1 = "9") and (nombre2 = "10") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = -1")
Wscript.quit
else
end if

if (nombre1 = "10") and (nombre2 = "0") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 10")
Wscript.quit
else
end if

if (nombre1 = "10") and (nombre2 = "1") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 9")
Wscript.quit
else
end if

if (nombre1 = "10") and (nombre2 = "2") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 8")
Wscript.quit
else
end if

if (nombre1 = "10") and (nombre2 = "3") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 7")
Wscript.quit
else
end if

if (nombre1 = "10") and (nombre2 = "4") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 6")
Wscript.quit
else
end if

if (nombre1 = "10") and (nombre2 = "5") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 5")
Wscript.quit
else
end if

if (nombre1 = "10") and (nombre2 = "6") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 4")
Wscript.quit
else
end if

if (nombre1 = "10") and (nombre2 = "7") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 3")
Wscript.quit
else
end if

if (nombre1 = "10") and (nombre2 = "8") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 2")
Wscript.quit
else
end if

if (nombre1 = "10") and (nombre2 = "9") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 1")
Wscript.quit
else
end if

if (nombre1 = "10") and (nombre2 = "10") and (signe = "-") then
answer = msgbox (" " & nombre1 & " " & signe & " " & nombre2 & " = 0")
Wscript.quit
else
end if

if (menu = "quitter") then
Wscript.quit
else
end if

if (menu = "jouer") then
menujeu = inputbox ("Vous souhaitez faire une interrogation:" _
+ chr(13) _
+ chr(13) _
+ "d' 'additions' ?" _
+ chr(13) _
+ "de 'soustractions' ?" _
+ chr(13) _
+ "de 'multiplications' ?" , , "entrer le mot de la partie choisie pour y accéder")
end if

if (menujeu = "additions") then

tour = 0
nbrpoints = 0

do

tour = tour + 1

if (tour > 10) then
msgbox "Et voila, c'est fini, tu as " & nbrpoints & "/10"
Wscript.quit
else
end if

Randomize
nombre1 = Int((10 * Rnd) + 0)

Randomize
nombre2 = Int((10 * Rnd) + 0)

answerjeu=nombre1 + nombre2

reponsejoueur = int(inputbox (" " & nombre1 & " + " & nombre2 & " = ? "))

if (answerjeu = reponsejoueur) then
nbrpoints = nbrpoints + 1
msgbox "Bravo, tu l'as trouvé ! +1 point !" , vbExclamation , ""
else
msgbox "Mauvaise réponse ! Tu ne gagnes pas de points !" , vbCritical , ""
end if

loop

end if

if (menujeu = "soustractions") then

tour = 0
nbrpoints = 0

do

tour = tour + 1

if (tour > 10) then
msgbox "Et voila, c'est fini, tu as " & nbrpoints & "/10"
Wscript.quit
else
end if

Randomize
nombre1 = Int((10 * Rnd) + 0)

Randomize
nombre2 = Int((10 * Rnd) + 0)

answerjeu=nombre1 - nombre2

reponsejoueur = int(inputbox (" " & nombre1 & " - " & nombre2 & " = ? "))

if (answerjeu = reponsejoueur) then
nbrpoints = nbrpoints + 1
msgbox "Bravo, tu l'as trouvé ! +1 point !" , vbExclamation , ""
else
msgbox "Mauvaise réponse ! Tu ne gagnes pas de points !" , vbCritical , ""
end if

loop

end if

if (menujeu = "multiplications") then

tour = 0
nbrpoints = 0

do

tour = tour + 1

if (tour > 10) then
msgbox "Et voila, c'est fini, tu as " & nbrpoints & "/10"
Wscript.quit
else
end if

Randomize
nombre1 = Int((10 * Rnd) + 0)

Randomize
nombre2 = Int((10 * Rnd) + 0)

answerjeu=nombre1 * nombre2

reponsejoueur = int(inputbox (" " & nombre1 & " * " & nombre2 & " = ? "))

if (answerjeu = reponsejoueur) then
nbrpoints = nbrpoints + 1
msgbox "Bravo, tu l'as trouvé ! +1 point !" , vbExclamation , ""
else
msgbox "Mauvaise réponse ! Tu ne gagnes pas de points !" , vbCritical , ""
end if

loop

end if

msgbox "Erreur de syntaxe !" , vbCritical , "ERREUR!"
loop

LE "On ne touche pas a mon programme !

 

dim nom
dim code
dim humeur

nom=inputbox ("Salut quel est ton nom ?")
code=inputbox ("Quel est ton code ?")
if (code = [mettez le code que vous voulez] and nom = "[mettez ce que vous voulez comme nom]") then
msgbox "Bienvenu dans ton domaine de programmes " & nom & "!"
end if
humeur=inputbox ("" & nom & " est-ce que ça va ?")

 

 

Une sorte d'utilisateur

 

dim nom
dim code
dim humeur
dim ville
nom=inputbox ("Salut quel est ton nom ?")
ville=inputbox ("Où habites-tu ?")
code=inputbox ("Quel est ton code ?")
if (code = [code que vous voulez] and nom = "[nom que vous voulez]" and ville = [ville que vous voulez]) then
msgbox "Bienvenu dans ton domaine de programmes " & nom & "!"
humeur=inputbox ("" & nom & " est-ce que ça va ?")
end if

 

 

 

 

 

 

 

Contact

Programmes? thayodu59@gmail.com