VBS（VBScript）による乱数を返す方法を紹介
乱数を返す（Randomizeがないと毎回同じ値になる）
サンプルソース
0〜1の間の値の乱数を返す
（入力）
Dim val1
Randomize
val1 = rnd
wscript.echo val1
（出力）
0.5247003
サンプルソース
100〜200までの値の乱数返す
（入力）
Dim val1
Randomize
val1 = Int((200 - 100 + 1) * rnd + 100)
wscript.echo val1
（出力）
151