首先准备工作如下:
在Excel文件里进行一些简单设置,用于临时显示程序算出来的号码,和保存算出来的号码,见下图:
打开VBA编辑器设计彩票号码选号器窗体界面,如下图所示:

运行设计的选号器窗体,并对窗体内控件的值进行设置,这里演示一下双色球的开奖号码,效果如下:
点击生成号码按钮,开始进行随机号码的选号,这里算出来的号码仅是随机数,并无任何根据,因此只能用来玩玩,不能拿来实战参考,运行过程如下图:
号码选出来后,会在选号界面显示,这里为了简化让号码在工作表里显示:
在最终显示上面那个界面前,还有一个提示,让用户选择是否对号码进行保存,这里演示保存:
保存后,将会调到保存的界面,也是为了简化,在工作表里面显示,见下图:
通过上面是操作,就简单的示范了一下用这个设计的彩票号码选号器进行双色球开奖号码的模拟,这里可以在生成前选定要指定出现的号和指定不出现的号,至于是否允许重复和进行排序功能,后面将会进一步完善起来,以达到更加能适应实际出现的多种情况的要求,这期的逻辑思考能力的练习与展示就到这里,谢谢各位的关注和支持!