////////////////////////////////随机秒(随机分)函数封装/////////////////////////////////////////////////////
Function 随机秒() Dim 随机 Randomize 随机 = Int((1000-300 + 1) * Rnd() + 300)' Int((大 - 小 + 1) * rnd() + 小) Delay 随机 End Function //--------------随机秒数 Function 随机秒数(小,大) dim a Randomize '这个单词,每次需要用随机数,都要调用一次,以前调用过,不算数 a=Int((大 - 小 + 1) * rnd() + 小) ' Int((大 - 小 + 1) * rnd() + 小) Delay a End Function '作业 '随机秒数(5000, 8000) Function 随机分数(小,大) dim a Randomize '这个单词,每次需要用随机数,都要调用一次,以前调用过,不算数 a=Int((大 - 小 + 1) * rnd() + 小) ' Int((大 - 小 + 1) * rnd() + 小) Delay a*1000*60 TracePrint a & "循环中.." End Function '作业 '随机分数(1,5)