VBScript Rnd函数