主要运用VB中的Rnd函数，来实现随机查找与打乱排序的功能，从而实现随机抽奖的目的。Rnd函数的语法结构是Rnd[(number)]，可选的nuumber参数是 single或任何有效的数值表达式。Rnnd函数返回小于1但大于或等于0的值。number 的值决定了 Rnd 生成随机数的方式。

-Purpose of use VB Rnd function, to random search disrupt sort functions, in order to achieve the random draw. The Rnd function grammatical structure Rnd [(number)], optional nuumber parameter is a single or any valid numeric expression. Rnnd function returns is less than 1 but greater than or equal to a value of 0. The number' s value determines how Rnd generates a random number.