用VB编写抽奖程序教学设计课件课件.docxVIP

[ 标签 :标题 ] 篇一：用 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 文件来保证程序的可用性。 源程序及注释如下： #39; 窗体源程序 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 #39; 被选定数 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 #39; 按停止钮 m_bIsStart = False Command_Start_Stop.Caption = “开始 quot; Label_FlashName.Visible = True Timer_FlashName.Enabled = True Timer_ScrollName.Enabled = False Label_FlashName = m_strNameArray （ m_nNameIndex).strName ＋ “ 中 奖 了 ！ quot;m_strNameArray(m_nNameIndex).bIsSelect = True m_nSelectNum = m_nSelectNum ＋ 1 Dim Temp As MyName Temp = m_strNameArray(MAX_INDEX) m_str Name Array(MAX － INDEX) = m_strNameArray(m_nNameIndex)m_strNameArray(m_nNameIndex) = Temp MAX_INDEX = MAX_INDEX － 1 If MAX_INDEX = 0 Then MsgBox “非常感谢您使用本软件 quot; End If Else #39; 按开始钮 m_bIsStart = True Command_Start_Stop.Caption = “停止 quot; Command_Start_Stop.Enabled = False Timer_ScrollName.Enabled = True Timer_FlashName.Enabled = False Label_FlashName.Caption = “quot; End If End Sub Private Sub Form_Load() For