当前位置：首页 -> 技术开发 -> 程序开发 -> 用VB编写抽奖程序

用VB编写抽奖程序

时间： 2021-07-31 作者：daque

一、界面安排　　兴建一个规范的exe工程。在form1窗体中安置一个准时器（timer1）、两个文本框（label1，label2）、两个吩咐按钮（command1，command2）和包括7个元素的控件数组（label3（0）-label3（6））。二、属性树立　　label3控件数组中的一切元素皆沿用沟通树立。三、代码编写　　本步调的实行道理是：当用户单击"发端"按钮时，翻开准时器，运用准时器控件同声爆发两个随机数sj1、sj2，sj1的范畴是1～32，sj2的范畴是0～49。当sj1=24的时侯，用sj2与前方爆发的中奖号子作比拟，若与前方的中奖沟通，则退出本进程；若与前方的中奖号子各别，则将此随机数动作中奖号子。当爆发了7其中奖号子时，封闭准时器控件，遏止爆发随机数。　　本步调用到的因变量简介：　　(1)randomize：初始化随机数的健将数。　　(2)int（）：归来一个非整形数字取整后的平头。　　(3)rnd：爆发一个0～1之间的随机数（大于即是0，但小于1）。　　(4)qbcolor（）：归来参数（0～15）对应的脸色。　　(5)val：将一个字符形变量变化为一个数值型变量。　　(6)format：方法化一个表白式。　　以次是步调的完备代码：　　dim sy as integer　　′吩咐按钮1的单击事变　　private sub command1_click（）　　′废除label3控件数组的实质　　for i=0 to 6　　label3（i）.caption=″″　　next　　timer1.enabled=true′翻开准时器　　command1.enabled=false′使发端按钮作废　　sy=－1′索引值初始化为－1　　end sub　　′吩咐按钮2的单击事变　　private sub command2_click（）　　unload me ′卸载本窗体　　end sub　　′准时器1的定时势件　　private sub timer1_timer（）　　dim sj1,sj2,ys as integer　　randomize′初始化随机数　　sj1=int（rnd＊32）＋1　　sj2=int（rnd＊50）　　label1.caption=sj1′树立标签1的实质　　ys=int（rnd＊6）＋9　　label1.forecolor=qbcolor（ys）　　if sj2=24 then′即使sj2即是24　　sy=sy＋1′索引值加1　　for a=o to sy　　if sj1=val（label3（a）.caption） then　　sy=sy － 1　　exit sub　　end if　　next　　label3（sy）.caption=format（sj1, ″00″）　　label3（sy）.forecolor=qbcolor（ys）　　end if　　if sy=6 then′即使索引值即是6　　timer1.enabled=false ′封闭准时器　　command1.enabled=true ′使吩咐按钮灵验（即可从新发端抽奖）　　end if　　end sub　　单击东西栏上的"启用"按钮，启用抽奖步调。单击"发端"按钮，label1控件将用姹紫嫣红的脸色赶快表露1～32之间的数字，并在label3控件数组中爆发一组7个数字的中奖号子。再次单击"发端"按钮，步调将机动废除label3控件数组中的实质，并从新爆发一组7个数字的中奖号子（与前方的不沟通）。

用VB编写抽奖程序

相关推荐

推荐下载

热门阅览

最新排行