Salut à Tous
Suivez les instructions dans le script, et le numéro Magique 1089 apparaîtra !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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