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

精编WORD文档下载可编缉打印下载文档，远离加班熬夜用VB编写抽奖程序教学设计篇一：用VB编了一个小程序来实现电脑抽奖的小功能用VB编了一个小程序来实现电脑抽奖的小功能，其原理如下：主要利用VB中的Rnd函数，来实现随机查找和打乱排序的功能，从而实现随机抽奖的目的。Rnd函数的语法结构是Rnd[(number)]，可选的number参数是single或任何有效的数值表达式。Rnd函数返回小于1但大于或等于0的值。number的值决定了Rnd生成随机数的方式。为了生成某个范围内的随机整数，可使用以下公式：Int((upperbound－lowerbound＋1)×Rnd＋lowerbound)这里，upperbound是随机数范围的上限，而lowerbound则是随机数范围的下限。另外，程序中还使用了INI文件，WindowsINI文件,可解释为Windows初始化文件。它是一种专门用来保存应用程序初始化信息和运行环境信息的文本文件。ini文件是一种文本文件,它可以通过Notepad等文本编辑器进行编辑。ini文件具有特定的格式。一个INI文件是由若干个段(section)组成的,每个段中包含若干关键字(key)及相应的值(value)。创建应用程序自己的INI文件,通过INI文件保存应用程序的一些运行环境信息,然后在程序中读取INI文件中的设置信息并据以处理。精编WORD文档下载可编缉打印下载文档，远离加班熬夜一旦程序的运行环境需要变更,则可以通过直接修改INI文件，或在程序中提供专门的界面间接地修改INI文件来保证程序的可用性。源程序及注释如下：'窗体源程序OptionExplicitDimm_strNameArray()AsMyNameDimm_bIsStartAsBooleanDimm_nNameIndexAsIntegerDimMAX_INDEXAsIntegerDimm_nSelectNumAsInteger'被选定数DimnScrollStepAsIntegerDimnScrollWidthAsIntegerDimbScrollStateAsBooleanDimnEnableSecondAsIntegerDimm_strTitleAsStringDimm_strAppTitleAsStringDimm_strScrollTitleLeftAsStringDimm_strScrollTitleRightAsStringPrivateSubCommand_Start_Stop_Click()Ifm_bIsStart=TrueThen精编WORD文档下载可编缉打印下载文档，远离加班熬夜'按停止钮m_bIsStart=FalseCommand_Start_Stop.Caption=“开始Label_FlashName.Visible=TrueTimer_FlashName.Enabled=TrueTimer_ScrollName.Enabled=FalseLabel_FlashName=m_strNameArray（m_nNameIndex).strName＋“中奖了！m_strNameArray(m_nNameIndex).bIsSelect=Truem_nSelectNum=m_nSelectNum＋1DimTempAsMyNameTemp=m_strNameArray(MAX_INDEX)m_strNameArray(MAX－INDEX)=m_strNameArray(m_nNameIndex)m_strNameArray(m_nNameIndex)=TempMAX_INDEX=MAX_INDEX－1IfMAX_INDEX=0ThenMsgBox“非常感谢您使用本软件EndIf精编WORD文档下载可编缉打印下载文档，远离加班熬夜Else'按开始钮m_bIsStart=TrueCommand_Start_Stop.Caption=“停止Command_Start_Stop.Enabled=FalseTimer_ScrollName.Enabled=TrueTimer_FlashName.Enabled=FalseLabel_FlashName.Caption=“EndIfEndSubPrivateSubForm_Load()Form_Bouns.ScaleMode=3m_nNameIndex=0m_bIsStart=FalseTimer_ScrollName.Enabled=TrueTimer_ScrollTitle.Enabled=TrueLabel_FlashName.Visible=FalseLabel_ScrollName.Caption=“nEnableSecond=0'定义起始秒数ReDimNameArray'获得文本中的名字和打乱名字顺序nScrollStep=5'设定滚动字的步长精编WORD文档下载可编缉打印下载文档，远离加班熬夜nScrollWidth=Label_Congruation.Left'设定title的移动宽度bScrollState=False'设定缺省的开始滚动方向为向左m_nSelectNum=0'初始化被选定数为0Init'初始化本程序的界面EndSubPrivateSubTimer_FlashName_Timer()'闪动中奖者姓名IfLabel_FlashName.Visible=TrueThenLabel_FlashName.Visible=FalseElseLabel_FlashName.Visible=TrueEndIfEndSubPrivateSubTimer_ScrollName_Timer()'滚动出现名字Ifm_bIsStart=TrueThenIfm_nNameIndex>=MAX_INDEXThenm_nNameIndex=0EndIfm_nNameIndex=精编WORD文档下载可编缉打印下载文档，远离加班熬夜m_nNameIndex＋1Ifm_strNameArray(m_nNameIndex).bIsSelect=TrueThenIfm_nNameIndex<MAX－INDEXThenm_nNameIndex=m_nNameIndex＋1Elsem_nNameIndex=0EndIfEndIfLabel_ScrollName.Caption=m_strNameArray(m_nNameIndex).strName'EndIfEndIfEndSubPrivateSubTimer_ScrollTitle_Timer()'滚动“恭喜发财字样IfbScrollState=FalseThen'向左滚nScrollStep=10Label_Congruation.Caption=m_strScrollTitleLeftIfnScrollWidth>0ThennScrollWidth=nScrollWidth－nScrollStep精编WORD文档下载可编缉打印下载文档，远离加班熬夜ElsebScrollState=TrueEndIfElse'向右滚nScrollStep=－10篇二：scratch范例教学-趣味抽奖趣味抽奖教学目标：【知识目标】1.通过抽奖程序的设计，初步掌握Scratch中随机数模块的应用。2.通过抽奖程序的设计，初步掌握Scratch广播模块的应用。3.通过抽奖程序的设计，了解用角色造型存储图片数据。4.通过抽奖程序的设计，了解Scratch中用变量模块实现随机数据的存储。【能力目标】1．通过抽奖程序的设计，让学生进一步了解随机数据的获取、存储和表达的过程。2．通过抽奖程序设计的活动，引导学生思考生活中那些地方应用了抽奖程序这样类似问题，启发学生设计不同的抽奖方案。【情感目标】1.主动邀请他人分享成果，表达自己的设计思路，愿意合作精编WORD文档下载可编缉打印下载文档，远离加班熬夜交流。教学重难点：重点：抽奖程序的设计，让学生了解随机数据的获取、存储和表达的过程。难点：启发学生用不同方法实现抽奖程序。教学课时：一课时教学准备：范例、图片教学过程：一、创设情境，提出主题师：元旦即将来临，班上将举行元旦庆祝活动，班主任老师，请我给班上设计一个电子抽奖的程序，下面，我想请同学们来试一试，请你用鼠标点击奖项（一等奖、二等奖、三等奖）开始抽奖。生：学生操作师：好。老师再请一位同学前来尝试。生：操作师：今天我们这节课请同学们也来设计一个趣味抽奖的游戏。你可以自己设计抽奖规则，创作不同的趣味抽奖游戏。我们比一比，看谁设计的最合理。二、自主学习，研习范例1、师：请同学打开老师的范例，看一看，探究以下问题：精编WORD文档下载可编缉打印下载文档，远离加班熬夜1）设计抽奖游戏前，你准备设计一个什么样的趣味抽奖活动方案？2）如何产生一组随机中奖号码？3）如何实现开奖和抽奖过程？4）抽奖的呈现的画面；5）围绕主题，收集图片素材；2、思考：回忆数据的获取和存储，如何创建“变量”？如何实现用变量存数一组随机数？参考其他范例：篇三：用vb编一个抽奖软件的源代码求用vb编一个抽奖软件的源代码悬赏分：20-解决时间：2008-4-1522:47要求：1.点击‘开始’从text或excel文件中依次调用每一行的电话号码，滚动显示在界面上，点击‘停止‘则停在某一个电话上即可2.请带一些语句说明最好问题补充：这位前辈是不是将input写成了inpue，whilenot(eof(#1))总是提示错误我是个vb小白，能不能说明白点,需要几个控键分别叫啥名字，语句能不能更完整些，谢谢开始和停止为同一个键也可以提问者：qvxiaogang-试用期一级最佳答案精编WORD文档下载可编缉打印下载文档，远离加班熬夜dimi窗口启动：i=0OpenApp.Path&\电话号码.txtForInputAs#1whileeof(1)=falseLineInput#1,aList1.AddItemawendclose#1按开始：timer1.Interval=50按结束：timer1.Interval=0timer的事件：i=i+1ifi=List1.ListCounttheni=0Label1.Caption=List1.List(i)不好意思啊，由于没有注意，所以先前的答案有两个小错误，现在已修正了所需控件：两个按钮，一个开始，一个结束；一个时钟控件一个列表框；一个标签控件精编WORD文档下载可编缉打印下载文档，远离加班熬夜用VB6.0编写电脑抽奖程序近年来在娱乐节目之中常常见到利用电脑来抽奖，笔者对其发生了兴趣遂自己动手用VB编了一个小程序来实现电脑抽奖的小功能，其原理如下：主要利用VB中的Rnd函数，来实现随机查找和打乱排序的功能，从而实现随机抽奖的目的。Rnd函数的语法结构是Rnd[(number)]，可选的number参数是single或任何有效的数值表达式。Rnd函数返回小于1但大于或等于0的值。number的值决定了Rnd生成随机数的方式。为了生成某个范围内的随机整数，可使用以下公式：Int((upperbound－lowerbound＋1)×Rnd＋lowerbound)这里，upperbound是随机数范围的上限，而lowerbound则是随机数范围的下限。另外，程序中还使用了INI文件，WindowsINI文件,可解释为Windows初始化文件。它是一种专门用来保存应用程序初始化信息和运行环境信息的文本文件。ini文件是一种文本文件,它可以通过Notepad等文本编辑器进行编辑。ini文件具有特定的格式。一个INI文件是由若干个段(section)组成的,每个段中包含若干关键字(key)及相应的值(value)。创建应用程序自己的INI文件,通过INI文件保存应用程序的一些运行环境信息,然后在程序中读取INI