VBScript の関数、Rnd
'Randomize MsgBox Rnd(1) MsgBox Rnd(10) MsgBox Rnd(0) MsgBox Rnd(0) upperbound = 10 lowerbound = 2 MsgBox Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
'Randomize MsgBox Rnd(1) MsgBox Rnd(10) MsgBox Rnd(0) MsgBox Rnd(0) upperbound = 10 lowerbound = 2 MsgBox Int((upperbound - lowerbound + 1) * Rnd + lowerbound)