Randomize '时间随机数 function RandShu() as Singer RandShu=CSinger( (2.5- 1.5+ 1) * Rnd + 1.5)end functoin