该程序实现36选7的开奖过程，每次从1到36的数中生成一个随机数，并且要使1到36中的每一个数被取到的概率完全相等。循环进行7次，同时要保证每个都不相同且不为0.

VB仿真的彩票开奖程序，模拟随机投注，模拟开奖，包括有随机选号程序，随机生成号码，包括36选7和22选5算法。具体定义：Dim intBasicNum As Integer, intSelNum As Integer, lngNumber As Long 基本号码个数,每注选几个号,机选注数 　　Dim PCNum(7) As Integer 电脑开奖数字 　　Dim RandNum() As Integer 用户机选,生成的号码数组 　　暂时设定,不分基础号码和特别号码，按照广东体育彩

随机数产生与仿真36选7的开奖过程 （汇编语言程序设计）