今天心血来潮，想搞个抽奖程序玩玩，就用VB整一个。过程还挺有意思，给大伙儿分享一下。
准备工作
我打开VB，这玩意儿虽然有点老，但做些小东西还是挺顺手的。然后新建一个“Windows 窗体应用程序”，这就是咱们程序的主界面。
设计界面
界面很简单，就俩控件：
- 一个大大的Label，用来显示中奖结果，就像商场抽奖的大屏幕一样。
- 一个按钮，写上“开始抽奖”，点一下就开始抽。
我把这俩控件往窗体上一拖，再调整下大小和位置，界面就差不多。
编写代码
重头戏来，得让程序跑起来！我双击“开始抽奖”按钮，进入代码编辑界面。这里要写的就是抽奖的逻辑。
核心思路：
咱得用随机数来决定谁中奖。VB里有个叫Random的类，专门用来生成随机数。我先创建一个Random对象，然后用它生成一个随机数，这个随机数就代表中奖号码。
具体实现：
- 我在按钮的
Click事件里写代码，意思是点一下按钮，就执行这里的代码。 - 用
Dim声明一个变量，比如叫luckyNumber，用来存中奖号码。 -
用
Random对象的Next方法生成一个随机数，赋值给luckyNumber。这个Next方法可以指定随机数的范围，比如Next(1, 101)就是生成1到100之间的随机数。得看你奖池里有多少人！ - 把
luckyNumber显示在Label上，就大功告成！可以用* = luckyNumber这样的语句。
我添加Randomize()，放在 Dim 之前,要不然每次都是一样的
运行测试
代码写完，我激动地按下F5，运行程序！窗体弹出来，我点击“开始抽奖”按钮，Label上果然显示一个数字！多点几次，数字还会变！
哈哈，成功！虽然简单，但还是挺有成就感的。这下年会抽奖不用愁！
一点小改进
为让程序更像样，我还做点小改进：
- 加个
Timer控件，让中奖号码快速滚动起来，更有抽奖的氛围。 - 可以把参与抽奖的人员名单放到一个文本文件里，程序读取这个文件，然后随机抽取其中的一个。
还可以继续完善，比如设置奖品等级、中奖概率等等。不过今天就先到这里，以后有空再折腾！
免责声明：由于无法甄别是否为投稿用户创作以及文章的准确性,本站尊重并保护知识产权，根据《信息网络传播权保护条例》，如我们转载的作品侵犯了您的权利,请您通知我们，请将本侵权页面网址发送邮件到qingge@88.com，深感抱歉，我们会做删除处理。