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

用VB编写抽奖程序教学设计 用VB编了一个小程序来实现电脑抽奖的小功能，其原理如下： 主要利用VB中的Rnd函数，来实现随机查找和打乱排序的功能，从而实现随机抽奖的目的。Rnd函数的语法结构是Rnd(number)，可选的number参数是 single或任何有效的数值表达式。Rnd函数返回小于1但大于或等于0的值。number 的值决定了 Rnd 生成随机数的方式。为了生成某个范围内的随机整数，可使用以下公式： Int(upperbound lowerbound 1) Rnd lowerbound) 这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。 另外，程序中还使用了INI文件，Windows INI文件,可解释为Windows初始化文件。它是一种专门用来保存应用程序初始化信息和运行环境信息的文本文件。ini文件是一种文本文件,它可以通过Notepad等文本器进行。ini文件具有特定的格式。一个INI文件是由若干个段(section)组成的,每个段中包含若干关键字(key)及相应的值(value)。创建应用程序自己的INI文件,通过INI文件保存应用程序的一些运行环境信息,然后在程序中读取INI文件中的设置信息并据以处理。一旦程序的运行环境需要变更,则可以通过直接修改INI文件，或在程序中提供专门的界面间接地修改INI文件来保证程序的可用性。 源程序及注释如下： 窗体源程序 Option Explicit Dim m_strNameArray() As MyName Dim m_bIsStart As Boolean Dim m_nNameIndex As Integer Dim MAX_INDEX As Integer Dim m_nSelectNum As Integer 被选定数 Dim nScrollStep As Integer Dim nScrollWidth As Integer Dim bScrollState As Boolean Dim nEnableSecond As Integer Dim m_strTitle As String Dim m_strAppTitle As String Dim m_strScrollTitleLeft As String Dim m_strScrollTitleRight As String Private Sub Command_Start_Stop_Click() If m_bIsStart = True Then 按停止钮 m_bIsStart = False Command_Start_Stop.Caption = “开始 Label_FlashName.Visible = True Timer_FlashName.Enabled = True Timer_ScrollName.Enabled = False Label_FlashName = m_strNameArray（m_nNameIndex).strName “中奖了！m_strNameArray(m_nNameIndex).bIsSelect = True m_nSelectNum = m_nSelectNum 1 Dim Temp As MyName Temp = m_strNameArray(MAX_INDEX) m_str Name Array(MAXINDEX) = m_strNameArray(m_nNameIndex)m_strNameArray(m_nNameIndex) = Temp MAX_INDEX = MAX_INDEX 1 If MAX_INDEX = 0 Then MsgBox “非常感谢您使用本软件 End If Else 按开始钮 m_bIsStart = True Command_Start_Stop.Caption = “停止 Command_Start_Stop.Enabled = False Timer_ScrollName.Enabled = True Timer_FlashName.Enabled = False Label_FlashName.Caption = “ End If End Sub Private Sub Form_Load() Form_Bouns.ScaleMode = 3 m_nNameIndex = 0 m_bIsStart = False Timer_ScrollName.Enabled = True Timer_ScrollTitle.Enabled = True Label_FlashName.Visible = False Label_ScrollName.Caption = “ nEnableSecond = 0 定义起始秒数 ReDimNameArray 获得文本中的名字和打乱名字顺序 nScrollStep = 5 设定滚动字的步长 nScrollWidth = Label_Congruation.Left 设定title的移动宽度 bScrollState = False 设定缺省的开始滚动方向为向左 m_nSelectNum = 0 初始化被选定数为0 Init 初始化本程序的界面 End Sub Private Sub Timer_FlashName_Timer() 闪动中奖者姓名If Label_FlashName.Visible = True Then Label_FlashName.Visible = False Else Label_FlashName.Visible = True End If End Sub Private Sub Timer_ScrollName_Timer() 滚动出现名字If m_bIsStart = True Then If m_nNameIndex = MAX_INDEX Then m_nNameIndex = 0 End If m_nNameIndex = m_nNameIndex 1 If m_strNameArray(m_nNameIndex).bIsSelect = True ThenIf m_nNameIndex 0 Then nScrollWidth = nScrollWidth nScrollStep Else bScrollState = True End If Else 向右滚 nScrollStep = 10 趣味抽奖 教学目标： 【知识目标】 1. 通过抽奖程序的，初步掌握Scratch中随机数模块的应用。 2. 通过抽奖程序的设计，初步掌握Scratch广播模块的应用。 3.通过抽奖程序的设计，了解用角色造型存储图片数据。 4.通过抽奖程序的设计，了解Scratch中用变量模块实现随机数据的存储。 【能力目标】 1通过抽奖程序的设计，让学生进一步了解随机数据的获取、存储和表达的过程。 2通过抽奖程序设计的活动，引导学生思考生活中那些地方应用了抽奖程序这样类似问题，启发学生设计不同的抽奖方案。 【情感目标】 1. 主动邀请他人分享成果，表达自己的设计思路，愿意合作交流。 教学重难点： 重点：抽奖程序的设计，让学生了解随机数据的获取、存储和表达的过程。 难点：启发学生用不同方法实现抽奖程序。 教学课时： 一课时 教学准备：范例、图片 教学过程： 一、 创设情境，提出主题 师：元旦即将来临，班上将举行元旦庆祝活动，班主任老师，请我给班上设计一个电子抽奖的程序，下面，我想请同学们来试一试，请你用鼠标点击奖项（一等奖、二等奖、三等奖）开始抽奖。 生：学生操作 师：好。老师再请一位同学前来尝试。 生：操作 师：今天我们这节课请同学们也来设计一个趣味抽奖的游戏。你可以自己设计抽奖规则，创作不同的趣味抽奖游戏。我们比一比，看谁设计的最合理。 二、自主学习，研习范例 1、师：请同学打开老师的范例，看一看，探究以下问题： 1）设计抽奖游戏前，你准备设计一个什么样的趣味抽奖活动方案？ 2）如何产生一组随机中奖号码？ 3）如何实现开奖和抽奖过程？ 4）抽奖的呈现的画面； 5）围绕主题，收集图片素材； 2、 思考：回忆数据的获取和存储，如何创建 “变量”？如何实现用变量存数一组随机数？ 参考其他范例： 求用vb编一个抽奖软件的源代码 悬赏分：20 - 解决时间：xx-4-15 22:47 要求：1.点击开始从text或excel文件中依次调用每一行的电话号码，滚动显示在界面上，点击停止 则停在某一个电话上即可 2.请带一些语句说明最好 问题补充：这位前辈是不是将input 写成了 inpue ， while not(eof(#1)总是提示错误 我是个vb小白，能 _明白点,需要几个控键 分别叫啥名字，语句能不能更完整些，谢谢 开始 和 停止为同一个键也可以 提问者： qvxiaogang - 试用期 一级 最佳 dim i 窗口启动： i=0 Open App.Path & 电话号码.txt For Input As #1 while eof(1)=false Line Input #1,a List1.AddItem a wend close #1 按开始： timer1.Interval=50 按结束： timer1.Interval=0 timer的事件： i=i+1 if i=List1.ListCount then i=0 Label1.Caption = List1.List(i) 不好意思啊，由于没有注意，所以先前的答案有两个小错误，现在已修正了 所需控件： 两个按钮，一个开始，一个结束；一个时钟控件 一个列表框；一个标签控件 用VB 6.0编写电脑抽奖程序 近年来在娱乐节目之中常常见到利用电脑来抽奖，笔者对其发生了兴趣遂自己动手用VB编了一个小程序来实现电脑抽奖的小功能，其原理如下： 主要利用VB中的Rnd函数，来实现随机查找和打乱排序的功能，从而实现随机抽奖的目的。Rnd函数的语法结构是Rnd(number)，可选的number参数是 single或任何有效的数值表达式。Rnd函数返回小于1但大于或等于0的值。number 的值决定了 Rnd 生成随机数的方式。为了生成某个范围内的随机整数，可使用以下公式： Int(upperbound lowerbound 1) Rnd lowerbound) 这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。 另外，程序中还使用了INI文件，Windows INI文件,可解释为Windows初始化文件。它是一种专门用来保存应用程序初始化信息和运行环境信息的文本文件。ini文件是一种文本文件,它可以通过Notepad等文本器进行。ini文件具有特定的格式。一个INI文件是由若干个段(section)组成的,每个段中包含若干关键字(key)及相应的值(value)。创建应用程序自己的INI文件,通过INI文件保存应用程序的一些运行环境信息,然后在程序中读取INI文件中的设置信息并据以处理。一旦程序的运行环境需要变更,则可以通过直接修改INI文件，或在程序中提供专门的界面间接地修改INI文件来保证程序的可用性。 源程序及注释如下： 窗体源程序 Option Explicit Dim m_strNameArray() As MyName Dim m_bIsStart As Boolean Dim m_nNameIndex As Integer Dim MAX_INDEX As Integer Dim m_nSelectNum As Integer 被选定数 Dim nScrollStep As Integer Dim nScrollWidth As Integer Dim bScrollState As Boolean Dim nEnableSecond As Integer Dim m_strTitle As String Dim m_strAppTitle As String Dim m_strScrollTitleLeft As String Dim m_strScrollTitleRight As String Private Sub Command_Start_Stop_Click() If m_bIsStart = True Then 按停止钮 m_bIsStart = False Command_Start_Stop.Caption = “开始 Label_FlashName.Visible = True Timer_FlashName.Enabled = True Timer_ScrollName.Enabled = False Label_FlashName = m_strNameArray（m_nNameIndex).strName “中奖了！ m_strNameArray(m_nNameIndex).bIsSelect = True m_nSelectNum = m_nSelectNum 1 Dim Temp As MyName Temp =m_strNameArray(MAX_INDEX) m_str Name Array(MAXINDEX) = m_strNameArray(m_nNameIndex) m_strNameArray(m_nNameIndex) =Temp MAX_INDEX = MAX_INDEX 1 If MAX_INDEX = 0 Then MsgBox “非常感谢您使用本软件 End If Else 按开始钮 m_bIsStart = True Command_Start_Stop.Caption = “停止 Command_Start_Stop.Enabled = False Timer_ScrollName.Enabled = True Timer_FlashName.Enabled = False Label_FlashName.Caption = “ End Sub Private Sub Form_Load() Form_Bouns.ScaleMode = 3 m_nNameIndex = 0 m_bIsStart = False Timer_ScrollName.Enabled = True Timer_ScrollTitle.Enabled = True Label_FlashName.Visible = False Label_ScrollName.Caption = “ nEnab