用VB编写双色球随机开奖号