用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
-
[高一信息技术必修一试题]信息技术必修试题详细阅读
一、单选题(每小题3分，共30)1、 从信息不能独立存在的角度考虑来说明信息特征的是（ ）。a 时效性 b 共享性 c 价值性 d 载体的依附性2、 下列属于应用软件的是（ ）。a dos b windows c access...
- 详细阅读
-
新兴信息技术构建的师生教学系统包括|信息技术教学成为师生生命的体验详细阅读
普通高中信息技术课程的总目标是提升学生的信息素养。信息素养具体表现为三个层面：知识与技能、过程与方法、情感与价值观，三个层面的目标相互渗透、有机联系，共同构成高中信息技术课程的培养目标。网络教学单元是省编高一《信息技术》第四章因特网应用的教学内容，是高一信息技术教学的重点，也是教学难点，是培养学生信...
-
linux操作系统基础试题_操作系统基础练习试题详细阅读
一、判断题1 计算机中的资源不仅就是cpu，存储器，i o设备等硬件资源2 没有安装操作系统的计算机与安装有操作系统的计算机一样方便，有效(错)3 操作系统是用户与计算机系统之间的接口，因此它是一种硬件(错)4 操作系统是计算机中最重要的软件5 windows不是唯一的操作系统6 windows就是...
-
1.2日新月异的信息技术教案_1.2日新月异的信息技术详细阅读
1 2 日新月异的信息技术一、 教学目标分析：“信息与信息技术”是教育科学出版社出版的《信息技术基础》模块第一章内容。作为本书的第一章，在学生已有知识的基础上，对信息和信息技术做进一步的提高，目的是使学生能从宏观上把握信息和信息技术，并形成整体认识，为后面的学习提供必要的准备。通...
-
【信息技术培训心得5篇】信息技术学习指导详细阅读
（一）教学要求1．能列举信息技术的应用实例。2．了解信息技术的历史和发展趋势。（二）教学设计建议本节安排一个课时，教材上安排了“信息技术及其应用”、“信息技术的发展历程”和“信息技术展望”三部分内容。“信息技术的发展...
-
由崎司|诱其思，导其程，究其能，乐其中详细阅读
——新教学模式在新课程中的初探 浙江瑞安安阳实验中学 朱曼 [内容摘要]本文探讨了现行课堂教学面临的疑惑，大胆地提出了新型教学模式——诱加导，促究，得乐的教学模式。将这种教学模式应用于信息技术课堂，结合具体教学案例，目的是求证这种新型教学模式的可操作性，让“活”、“新”、“试”、“敢”、...
-
利用数据库管理大量信息教案_利用数据库管理大量信息详细阅读
【第七章 第三节 】教案【学生分析】高一年级的学生已经具备了一定的计算机使用经验，但主要是常用工具软件以及网络应用方面的，对于数据库的使用还不太了解。因此在教学中要降低起点，注重启蒙以及兴趣的培养。【教材分析】沿着技术发展趋势，信息技术必然涉及信息资源管理。数据库及其管理应用系统是信息资源管理的一种...
-
如何将计算机接入因特网教案_《如何将计算机接入因特网》(说课)——设置IP地址和子网掩码详细阅读
《如何将计算机接入因特网》说课稿——设置ip地址和子网掩码儋州市那大中学 黄学鸿【教材分析】 如何将计算机接入因特网是教育科学出版社出版的普通高中实验教材《网络技术应用》第二章第三节的内容，本节内容主要包括“因特网服务组织”、“设置ip地址和子网掩码”、“设置网关和代理服务器”、“设置dns服务器...
-
【网络基础及其应用单元测试】网络基础及应用练习试题详细阅读
1 关于计算机通信，下列说法中正确的是________。a 计算机网络通信协议就是在计算机进行通信时双方规定使用英文还是使用中文b 电话是一种通信介质c 网卡是一种通信介质d 计算机之间可以进行无线通信2 在internet上使用的基本通信协议是________。a ipx spxb n...