用VB编写抽奖程序教学设计.docVIP

用VB编写抽奖程序教学设计 山课件 m一、界面设计 EXE工程。在Form1窗体中放置一个定时器（Timer1）、两个文本框（Label1，Label2）、两个命令按钮（command1，command2）和包含7个元素的控件数组（Label3（0）mdash;Label3（6））。 Label3控件数组中的所有元素皆采用相同设置。 本程序的实现原理是：当用户单击ldquo;戥开始rdquo;按钮时，打开定时器，利搞用定时器控件同时产生两个随机数sj1、s茯j2，sj1的范围是1～32，sj2的范高围是0～49。当sj1=24的时侯，用s瞽j2与前面产生的中奖号码作比较，若与前面篇的中奖相同，则退出本过程；若与前面的中奖趴号码不同，则将此随机数作为中奖号码。当产生了7个中奖号码时，关闭定时器控件，停止泻产生随机数。 (津1)Randomize：初始化随机数的种筮子数。 (2)Int（）：返回一个非整形韪数字取整后的整数。 (3)Rnd：产生一跛个0～1之间的随机数（大于等于0，但小于蟹1）。 (4)Qbcolor（）：返回参硷数（0～15）对应的颜色。 (5)Val薇：将一个字符形变量转化为一个数值型变量。痱 (6)Format：格式化一个表达式。 DimsyAsI莒nteger prime;命令按钮1的阝单击事件 PrivateSubcomma坭nd1_click（） prime;清睇除Label3控件数组的内容 Fori=0To6 Label3（i）.caption=Prime;Prime; Ne逾xt =Trueprime;打开定时器为 =Falseprime;使开始按钮失楹效 sy=－1prime;索引值初始化妗为－1 EndSub prime;命令儇按钮2的单击事件 PrivateSubc撇ommand2_click（） Unloadmeprime;卸载本窗体 End溯Sub prime;定时器1的定时事件 PrivateSubTimer1_Timer（） Dimsj1,sj2,ysAs杭Integer Randomizeprime;初始化随机数 sj1=Int（R诿nd＊32）＋1 sj2=Int（Rnd豁＊50） =sj1prime;设置标签才1的内容 ys=Int（Rnd＊6）＋9鱿 =QBcolor（ys） Ifsj2=24Thenprime;如果sj2等于饪24 sy=sy＋1prime;索引值瀑加1 Fora=oTosy Ifsj1=陔Val（Label3（a）.captio葆n）Then sy=sy－1 ExitS蹉ub EndIf Next Label3（sy）.caption=Format（喷sj1,Prime;00Prime;噘） Label3（sy）.Forecol刀or=QBcolor（ys） EndIf Ifsy=6Thenprime;如果索ノ引值等于6 =Falseprime;关挟闭定时器 =Trueprime;使命令枚按钮有效（即可重新开始抽奖） EndIf EndSub ldquo｀;启动rdquo;按钮，启动抽奖程序。醚单击ldquo;开始rdquo;按钮涉，Label1控件将用五彩缤纷的颜色快速娓显示1～32之间的数字，并在Label3屙控件数组中产生一组7个数字的中奖号码。再沃次单击ldquo;开始rdquo;按┏钮，程序将自动清除Label3控件数组中ナ的内容，并重新产生一组7个数字的中奖号码陕（与前面的不相同）。 莲 m create a good atmosphere for education, and to promote the all-round development of students, to establish a scientific moral education full of vigor the For long-term mechanism.Two, the goal of moral education:To guide the students to form the correct world outlook, outlook on life, values, to cultivate students unity and mutual assistance, honest and trustworthy, law-abiding, good quality, hard work, set a good XX students ideological quality, psychological quality and image quality. The formation of excellent moral education cur