Hallo Leute ,

ich würde gerne bei VBS eine Zufallszahl generieren lassen (zwischen 1 und 30) !

Ich habe 30 Witze parat. Die Zufallszahl soll dann einen davon auswählen!

Ich hoffe ihr findet eine Lösung. Google hat dazu nicht so viel ausgespuckt:

Dim zufallszahl As New Random

zufallszahl.NEXT (1, 31)

witznr = msgbox ("Witz Nr." & zufallszahl & "!")

If zufallszahl = 1 Then

witz0 = msgbox ("blablabla....")

If zufallszahl = 2 Then

witz1 = msgbox ("blablabla....")

...

Else

error = msgbox ("Fehler!")

Das Problem ist dass mir der PC immer eine Fehlermeldung schickt (Bild im Anhang).

Meine Frage ist deshalb ob das mit....

Dim zufallszahl As New Random

zufallszahl.NEXT (1, 31)

...stimmt!

Vielen Dank schon einmal im Voraus!

LSeven