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

[guest]

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

[klem4]

Код

<script language="VBScript">
Randomize
</script>

меньше никак ... пойдет ?

ps google не работает ?

Сообщение отредактировано: klem4 - 20.11.2007 23:06

[guest]

а можно конкретный пример, допустим, выводу случайнх чисел от 1 до 10.
VBScript не для HTML нужен, а просто вот тот, какоторый файлом сохраняешь

[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

[guest]

да., спасибо за понимание