用VB编了一个小程序来实现电脑抽奖的小功能

用

VB

编了一个小程序来实现电脑抽奖的小功能 ，其原理如下：

主要利用

VB

中的

Rnd

函数，来实现随机查找和打乱排序的功能，从而实现随机抽奖的目的。

Rnd

函数的语法结构是

Rnd[(number)]

，

可选的

number

参数是

single

或任何有效的数值表达式。

函数返回小于

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

文件，或在程序中提供专门的界面间接地修改< /p>

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_n =

“开始

Label_e = True

Timer_d = True

Timer_d = False

Label_FlashName =

m_strNameArray< /p>

（

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(MAX

－

INDEX) = 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_n =

“停止

Command_Start_d = False

Timer_d = True

Timer_d = False

Label_n =

“

End If

End Sub

Private Sub Form_Load()

Form_ode = 3

m_nNameIndex = 0

m_bIsStart = False

Timer_d = True

Timer_d = True

Label_e = False

Label_n =

“

nEnableSecond = 0

'

定义起始秒数

ReDimNameArray

'

获得文本中的名字和打乱名字顺序

nScrollStep = 5 '

设定滚动字的步长

nScrollWidth = Label_

'

设定< /p>

title

的移动宽度

bScrollState = False

'

设定缺省的开始滚动方向为向左

m_nSelectNum = 0

'

初始化被选定数为

0

Init

'

初始化本程序的界面

End Sub

Private Sub Timer_FlashName_Timer() '

闪动中奖者姓名

If Label_e = True Then

Label_e = False

Else

Label_e = 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 Then

If m_nNameIndex <

MAX

－

INDEX Then

m_nNameIndex =

m_nNameIndex

＋

1

Else

m_nNameIndex = 0

End If

End If

Label_n = m_str

NameArray(m_nNameIndex).strName

'End If

End If

End Sub

Private Sub Timer_ScrollTitle_Timer() '

滚动“恭喜发财