randomize в VBScript, нужен маленький исходник на VBScript Опции

[guest]

дайте исходный код VBScript с функцией randomize

[volvo]

Выводу куда? Вот так, если хочешь выводить в MsgBox-е:

The following example illustrates use of the Randomize statement:

Dim MyValue, Response
Randomize			' Initialize random-number generator.

Do Until Response = vbNo
   MyValue = Int((6 * Rnd) + 1)	' Generate random value between 1 and 6.
   MsgBox MyValue
   Response = MsgBox ("Roll again? ", vbYesNo)
Loop