home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2003 February / PCWELT_02_2003.ISO / pcwsoft / Script-Tut.exe / scripts / auswahl.vbs next >
Encoding:
Text File  |  2001-01-22  |  431 b   |  17 lines
  1. Option Explicit
  2. Dim MyNumber, Ausgabe
  3.  
  4. MyNumber = InputBox("Bitte geben Sie als Auswahl die Zahl 1, 2 oder 3 ein")
  5.  
  6. if IsNumeric(MyNumber) then
  7.     Select Case MyNumber
  8.     Case 1 Ausgabe = "die Zahl Eins"
  9.     Case 2 Ausgabe = "die Zahl Zwei"
  10.     Case 3 Ausgabe = "die Zahl Drei"
  11.     Case Else Ausgabe = "keine der vorgegebenen Zahlen"
  12.     End Select
  13. else
  14.     Ausgabe = "gar keine Zahl"
  15. end if
  16.  
  17. MsgBox "Sie wΣhlten " & Ausgabe & chr(46)