1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
| 'Script by Tomriddle 2008
'Nombre Magique 1089.vbs
'Traduit en Français par Hackoo 2010 (^_^)
strNumber=inputbox("Choisissez un nombre à 3 chiffres où les premiers et derniers chiffres diffèrent par 2 ou plus...", " Nombre Magique 1089", 123)
if strNumber="" then msgbox "Quitter Le Programme", 16, "Nombre Magique 1089":wscript.quit
if IsNumeric(strNumber) then
if len(strNumber)<>3 then msgbox "nombre non à 3 chiffres", 16, "Nombre Magique 1089":wscript.quit
if instr(strNumber, ".") then msgbox "Le nombre ne doit pas contenir un décimal", 16, "Nombre Magique 1089":wscript.quit
if abs(mid(strNumber, 1, 1)-mid(strNumber, 3, 1))<2 then
msgbox "Les premiers et derniers chiffres ne diffèrent pas par 2 ou plus.", 16, "Nombre Magique 1089":wscript.quit
end if
strNumberRev=strReverse(strNumber)
msgbox "Considérons le nombre inverse, obtenu par la lecture vers l'arrière."&vbcrlf&"inverse de "&strNumber&" est "&strNumberRev, 64, "Nombre Magique 1089"
if strNumberRev>strNumber then
StrNewNumber=strNumberRev-strNumber:strFormular=strNumberRev&"-"&strNumber
else
StrNewNumber=strNumber-strNumberRev:strFormular=strNumber&"-"&strNumberRev
end if
msgbox "Soustraire la plus petite de ces deux numéros de la plus grande."&vbcrlf&strFormular&"="&StrNewNumber, 64, "Nombre Magique 1089"
StrNewNumberRev=strReverse(StrNewNumber)
msgbox "Ajouter le résultat de son propre inverse."&vbcrlf&StrNewNumber&"+"&StrNewNumberRev&"="&StrNewNumber+StrNewNumberRev, 64, "Nombre Magique 1089"
Msgbox "La réponse est toujours égale à Nombre Magique 1089.",48, "Nombre Magique 1089"
else
msgbox "Pas un numéro à 3 chiffres !", 16, "Nombre Magique 1089"
end if |
