2012年光棍节彩蛋

完整成品地址：http://download.csdn.net/detail/lanyuanershe/4756605

Private Sub Command1_Click()

EndCount = EndCount + 1

'special end
If EndCount = 8 Then
MsgBox "连续8次都抽不中，进入  “特别end”，给您一首《神威鬼鸣》，很带感的歌曲，稍等片刻，music 响起！"
WindowsMediaPlayer1.URL = "end.mp3"
WindowsMediaPlayer1.Controls.play
Command1.Visible = False
TempMess = 1
End If


TempMess = 0
'生成随机数
Randomize
RandNum = Int(Rnd * (UBound(AllNum) - 1)) + 1

'good end
If AllNum(RandNum) = 11 Then
MsgBox "恭喜猜中终极大奖！等待片刻，music 响起！"
Picture1.Picture = LoadPicture("1.jpg")
WindowsMediaPlayer1.URL = "win.mp3" 'C:\Users\chen\Desktop\
WindowsMediaPlayer1.Controls.play
Command1.Visible = False
TempMess = 1

'Unload Form1
End If


If AllNum(RandNum) = 15 Then
MsgBox "您的人品爆发了 !给您换个图，加油！↖(^ω^)↗"

Set Picture1.Picture = LoadPicture("2.jpg")
TempMess = 1

End If

'bad end
If AllNum(RandNum) = 27 Then
MsgBox "您已经被集体灭灯了，( ⊙ o ⊙ )！music 响起！"
Set Picture1.Picture = LoadPicture("4.jpg")
WindowsMediaPlayer1.URL = "bad.mp3"
WindowsMediaPlayer1.Controls.play
Command1.Visible = False
TempMess = 1
End If

'没中奖的提示
If TempMess = 0 Then
MsgBox "来年还过光棍节 ！~~~~(>_<)~~~~  抽中数字：" & AllNum(RandNum)
End If

'将剩余的数字用Preserve重新缩进，去掉抽中的数字
Temp = UBound(AllNum) - 1
If RandNum = UBound(AllNum) Then
    ReDim Preserve AllNum(1 To Temp)
    
    
Else
    For i = RandNum To UBound(AllNum) - 1
        AllNum(i) = AllNum(i + 1)
        Next
    ReDim Preserve AllNum(1 To Temp)
    
End If




End Sub




Private Sub Command2_Click()


End Sub

==========模块内的内容======

Public EndCount As Integer
Public TempMess As Integer
Public Temp As Integer
Public RandNum As Integer
Public LeftNum() As Integer
Public RightNum() As Integer
Public AllNum() As Integer




Sub Main()
'初始化全局变量，数组1~100

ReDim AllNum(1 To 30)
      For i = 1 To 30
        AllNum(i) = i
        Next i
Form1.Show
End Sub