Systematisk Buzz frasen Generator.vbs (4 / 6 steg)
Steg 4: Koden
Klicka på Start = > program = > tillbehör = > Klicka på anteckningar
Or
Klicka på Start = > klicka kör = > typ anteckningar i kör rutan sedan klicka OK.
2) kopiera koden under raden apostrof och asterisker sedan klistra in den i anteckningar.
' *********************************************
Dim varsel
Dim meddelande
Dim Message1
Dim Message2
Dim Message3
"Felhantering
På fel återupptas nästa
Meddelande = "Boughton systematiska Buzz fras"
Meddelande = "Välj ett 3 siffrigt nummer från 000 till 999?"
Fråga = InputBox(message,Notice)
' Kontrollera om Null eller tomma inputbox sedan avbryter
OM IsEmpty(Question) sedan
WScript.quit()
ELSEIF Len(Question) = 0 då
WScript.quit()
Slut om
message1 = Left(Question,1) ' 1 nummer
message2 = Mid(Question,2,1) ' 2: a numret
message4 = Right(Question,1) ' 3: e nummer
"Kolumn 1
Om Message1 = 0 då meddelande = "Integrerat"
Om Message1 = 1 då meddelande = "Totalt"
Om Message1 = 2 sedan meddelande = "Systematiseras"
Om Message1 = 3 då meddelande = "Parallella"
Om Message1 = 4 då meddelande = "Funktionella"
Om Message1 = 5 sedan meddelande = "Mottaglig"
Om Message1 = 6 sedan meddelande = "Optimal"
Om Message1 = 7 sedan meddelande = "Synkronisera"
Om Message1 = 8 sedan meddelande = "Kompatibel"
Om Message1 = 9 sedan meddelande = "Balanserad"
"Kolumn 2
Om Message2 = 0 då Message3 = "Management"
Om Message2 = 1 då Message3 = "Organisatoriska"
Om Message2 = 2 då Message3 = "Övervakas"
Om Message2 = 3 då Message3 = "Ömsesidigt"
Om Message2 = 4 då Message3 = "Digital"
Om Message2 = 5 då Message3 = "Logistik"
Om Message2 = 6 då Message3 = "Övergångsbestämmelser"
Om Message2 = 7 då Message3 = "Stegvis"
Om Message2 = 8 då Message3 = "Tredje generationens"
Om Message2 = 9 då Message3 = "Politik"
"Kolumn 3
Om Message4 = 0 då Message5 = "Alternativ"
Om Message4 = 1 då Message5 = "Flexibilitet"
Om Message4 = 2 då Message5 = "Förmåga"
Om Message4 = 3 då Message5 = "Rörlighet"
Om Message4 = 4 då Message5 = "Programmering"
Om Message4 = 5 då Message5 = "Koncept"
Om Message4 = 6 då Message5 = "Tid-fasen"
Om Message4 = 7 då Message5 = "Projektion"
Om Message4 = 8 då Message5 = "Maskinvara"
Om Message4 = 9 då Message5 = "Oförutsedda"
"Felhantering meddelande
OM Err.Number <> 0 sedan
MsgBox "du angett något felaktigt. Försök igen. ", vbOKOnly + 16," Ooopps... "
WScript.quit()
SLUT OM
"Final resultat
MsgBox meddelande & "" & Message3 & "" & Message5, vbInformation, varsel