说明：  主要利用VB中的Rnd函数，来实现随机查找和打乱排序的功能，从而实现随机抽奖的目的。Rnd函数的语法结构是Rnd[(number)]，可选的number参数是 single或任何有效的数值表达式。Rnd函数返回小于1但大于或等于0的值。number 的值决定了 Rnd 生成随机数的方式。
(mainly use VB breaking the function to achieve random search and sort functions disrupted, thus achieving the purpose of random draw. Breaking function syntax structure is breaking [(number)], the number of optional parameters are single or any effective numerical expression. Breaking function returns but less than one greater than or equal to the value 0. The value of number of breaking decision generated random manner.)