用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文件中的设置信息并据以处理。一旦程序的运行环境需要变更,则可以通过直接修改INI文件，或在程序中提供专门的界面间接地修改INI文件来保证程序的可用性。
源程序及注释如下：
'窗体源程序
OptionExplicit
Dimm_strNameArray()AsMyName
Dimm_bIsStartAsBoolean
Dimm_nNameIndexAsInteger
DimMAX_INDEXAsInteger
Dimm_nSelectNumAsInteger
'被选定数
DimnScrollStepAsInteger
DimnScrollWidthAsInteger
DimbScrollStateAsBoolean
DimnEnableSecondAsInteger
Dimm_strTitleAsString
Dimm_strAppTitleAsString
Dimm_strScrollTitleLeftAsString
Dimm_strScrollTitleRightAsString
Ifm_bIsStart=TrueThen
'按停止钮
m_bIsStart=False
“开始"
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
DimTempAsMyName
Temp=
m_strNameArray(MAX_INDEX)
m_strNameArray(MAX－INDEX)=m_strNameArray(m_nNameIndex)m_strNameArray(m_nNameIndex)=
Temp
MAX_INDEX=MAX_INDEX－1
IfMAX_INDEX=0Then
MsgBox“非常感谢您使用本软件"
EndIf
array在vb什么意思啊
Else'按开始钮
m_bIsStart=True
Timer_ScrollName.Enabled=True
Timer_FlashName.Enabled=False
Label_FlashName.Caption=“"
EndIf
EndSub
PrivateSubForm_Load()
Form_Bouns.ScaleMode=3
m_nNameIndex=0
m_bIsStart=False

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。