用vb编写一个抽奖程序|用VB编写抽奖程序教学设计
【jiaoan.jxxyjl.com--高中信息技术教案】
一、界面设计
新建一个标准的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个数字的中奖号码（与前面的不相同）。
<本文来源：https://jiaoan.jxxyjl.com/gaozhongxinxijishujiaoan/31975.html
-
用vb编写一个抽奖程序|用VB编写抽奖程序教学设计详细阅读
一、界面设计新建一个标准的exe工程。在form1窗体中放置一个定时器（timer1）、两个文本框（label1，label2）、两个命令按钮（command1，command2）和包含7个元素的控件数组（label3（0）—label3（6））。二、属性设置label3控件数组中的所有...
-
[2020-2021学年第一学期工作计划]学年第一学期信息技术工作计划详细阅读
一、指导思想：推广先进教育技术及理念；应用先进的先进理念及先进设备；服务教育教学；推进校园文化建设及自身技能与修养。二、任务与目标：1、保证西教学楼多媒体平台正常、安全、平稳、运行。每月全面排查一次西教学楼多媒体平台。快速、及时、高质量的解决教师反映及排查中的问题。采取措施减少、杜绝学生课间私自使用...
-
【陕西二套好管家】邮件好管家（第二课时）详细阅读
课题（教学内容）第8课 邮件好管家（第二课时）总 课时第 9课时教学目标重点难点教法教具板书设计教学过程备注主要通过练习复习上节课的内容，同时进行多用户多账号实践活动。 【教师】上节课后布置的作业大家完成的怎么样啦？没有条件的同学现在可以继续抓紧时间完成。其他完成同学可以先自己复习一...
-
【excel函数公式运用技巧】《EXCEL中函数公式的运用》教学设计详细阅读
张宝玉[课 题] 《excel中函数公式的运用》[教 材] 海南出版社、三环出版社出版的《信息技术》七年级下册第二章第四节中第三个知识点的内容[课 型] 新授课[课 时] 1课时[教材分析]本节课的内容是函数和公式在excel中的使用，教材从实际生活中遇到的问题、需要入...
-
[搜集素材的网站]为网站搜集素材详细阅读
课题（教学内容）第13课为网站搜集素材总 课时第13 课时教学目标知识：让学生巩固搜索、整理、归纳、积累素材的方法技能：1、让学生学会高效率搜索网上及现成素材库2、让学生学会建立自己的专用素材文件（夹）情感：培养学生踏实的实践风格，克服建站前浮躁的心理,为成功建站奠定重点建立分类素材文件夹并...
-
【儒家关注()的和谐】盼和谐，关注农村“守望”群体详细阅读
授课对象：高一学生教材：浙江教育出版社《信息技术基础》第六章“网页的设计与制作”一、教学分析内容标准选修模块三“网络技术应用”之（4）通过开发实践，学会规划、设计、制作、发布与管理简单网站的基本方法。（5）能够根据网站主题要求设计评价指标，对常见网站的建设质量与运行状况进行评价。教材分析本节课是学生...
-
, 初三微机课教学计划详细阅读
初中三年级微机课教学计划本册教材的特点：为了迎接信息时代的挑战，适应信息化社会的要求，我国高中信息技术课程改革正在轰轰烈烈的开展，新的高中信息技术课程标准也已经出台。在这种情况下，以往的初中信息技术教材已不能适应时代对学生的要求，初中教材改革势在必行，这套教材正是这种改革的一种尝试。它吸取以往教材的...
-
[因特网探源教学设计]因特网探源详细阅读
课题（教学内容）第4课 总 课时第 课时教学目标知识目标：1 了解因特网的发展历程。技能目标：1 继续熟练掌握利用关键字搜索。2 复习巩固保存搜索到的网页、网页中的文字。3 继续熟练运用搜索引擎的高级搜索情感目标：通过利用计算机和网络去搜索信息、筛选信息，培养他们获取信息、辨别有用...
-
【统计图表的应用】题：图表的应用详细阅读
【适用教材】全日制普通高级中学教材·信息技术第一册（北京教育出版社）【适用单元】第四章 表格数据的处理与分析（第五节 使用图表）授课教师邢波授课时间xx年12月授课年级高一科目信息技术课题图表的应用教学目标知识目标：认识图表的作用，学会用图表分析数据。技能目标：1． 根据需要制作不同类型的图表；2...
-
解一元二次方程程序设计_程序设计方法课标解读详细阅读
“算法”是关于解决问题的计算过程的描述，即解决问题的方法和步骤的描述；“程序设计”是使用计算机可理解的语言表达算法的过程。本模块反映了计算机解决结构化应用问题的基本方法，为选修模块。通过本模块的学习，学生应该体验算法思维，掌握几种基本算法；能设计简单应...