说明：  主要利用VB中的Rnd函数,来实现随机查找和打乱排序的功能,从而实现随机抽奖的目的,Rnd函数的语法结构是Rnd[(num
(The Rnd function in VB is mainly used to realize the function of random searching and scrambling sorting, so as to realize the purpose of random draw. The syntax structure of Rnd function is Rnd [(num))