一，界面设计
nSecond，属性设置
n对label3控制数组中的所有元素使用相同的设置。
n第三，代码写
n这个过程的实现原理是：当用户点击启动按钮时，打开定时器，使用定时器控制产生两个随机数sj1，sj2，sj1范围为1?32，sj2范围为0?49。当sj1 = 24时，用sj2和上一代的中奖号进行比较，如果以前的奖与同样，则退出过程;如果先前的获胜号码不同，则将随机数字作为获胜号码。当产生7个获胜号码时，定时器控制被关闭，并且随机数被停止。 n功能简介中使用的程序：
n（1）randomize：初始化随机数的个数。
n（2）int（）：返回在非整数后舍入的整数。
n（3）rnd：产生0和1（大于或等于0，但小于1）之间的随机数。
n（4）qbcolor（）：返回相应的颜色（0?15）。
n（5）val：将字符变形为数字变量。
n（6）格式：格式化表达式。
n以下是程序的完整代码：
nDim sy为整数
n命令按钮1点击事件
n清除label3控制数组的内容
nFor i = 0至6
nLabel3（i）.caption ='
下一步
nTimer1.enabled = true'打开计时器
nSy = -1'索引值初始化为-1
nEnd sub
n点击事件的命令按钮2
nUnload我'卸载窗体
nEnd sub
n'Timer 1的定时事件
nPrivate sub timer1_timer（）
nDim sj1，sj2，ys为整数
nRandomize'初始化随机数
nSj1 = int（rnd * 32）1
nSJ2 = int（rnd * 50）
nLabel1.caption = sj1'设置标签1的内容
nYs = int（rnd * 6）9
nLabel1.forecolor = qbcolor（ys）
nIf sj2 = 24 then'如果sj2等于24
nSy = sy 1'索引值加1
nFor a = o to sy
nIf sj1 = val（label3（a）.caption）then
nSy = sy-1
nExit子
nEnd if
www.99jianzhu.com/包含内容：建筑图纸、PDF/word/ppt 流程，表格，案例，最新,免费下载,施工方案、工程书籍、建筑论文、合同表格、标准规范、CAD图纸等内容。