yUkyiNG417 : 個人主頁 - 相簿 - 訂閱  [ QOOZA - 論壇 - 登入 ]
«‹ July 2026 ›»
SMTWTFS
1234
567891011
12131415161718
19202122232425
262728293031
yUkyiNG417
暱稱： yUkyiNG
性別： 女
國家： 香港
地區： 元朗區
每月文章
日誌統計
文章總數： 356
留言總數： 65
今日人氣： 36
累積人氣： 10130
站內搜尋
RSS 訂閱
RSS Feed
2007 年 5 月 4 日  星期五   晴天


5月4日 分類: 未分類

放住先....等我深思下

Private Sub Cmdreset_Click()
PicZero.Visible = False
PicFive.Visible = False
PicTen.Visible = False
PicZeroi.Visible = False
PicFivei.Visible = False
PicTeni.Visible = False
Label3.Caption = "Start"
Label3.ForeColor = &H800080
Yourc.Caption = "Your choice"
Yourc.ForeColor = &H0&
movingMC.Visible = False
tear.Visible = False
MCsleep.Visible = True
End Sub

Private Sub CmdZero_Click()
PicZero.Visible = True
PicFive.Visible = False
PicTen.Visible = False
End Sub
Private Sub CmdFive_Click()
PicZero.Visible = False
PicFive.Visible = True
PicTen.Visible = False
End Sub
Private Sub CmdTen_Click()
PicZero.Visible = False
PicFive.Visible = False
PicTen.Visible = True
End Sub

Private Sub No0_Click()
Yourc.Caption = "Your choice 0"
Yourc.ForeColor = &HC0C0FF
MCsleep.Visible = False

If Label3.Caption = "You Win!" Then
Yourc.ForeColor = &HFF&
movingMC.Visible = True
Else
movingMC.Visible = False
End If

If Label3.Caption = "You Loss!" Then
tear.Visible = True
                    Label3.ForeColor = &HFFFF00
Else
tear.Visible = False
End If

Randomize
choice = Int(3 * Rnd + 1)

If choice = 1 Then
PicZeroi.Visible = True
PicFivei.Visible = False
PicTeni.Visible = False
   If PicZero.Visible = True Then
    Label3.Caption = "You Win!"
   End If
      If PicFive.Visible = True Then
       Label3.Caption = "You Loss!"
      End If
                If PicTen.Visible = True Then
                 Label3.Caption = "You Loss!"
          End If
End If

If choice = 2 Then
PicZeroi.Visible = False
PicFivei.Visible = True
PicTeni.Visible = False
   If PicZero.Visible = True Then
    Label3.Caption = "You Loss!"
   End If
         If PicFive.Visible = True Then
       Label3.Caption = "You Loss!"
      End If
             If PicTen.Visible = True Then
                 Label3.Caption = "You Loss!"
          End If
End If

If choice = 3 Then
PicZeroi.Visible = False
PicFivei.Visible = False
PicTeni.Visible = True
   If PicZero.Visible = True Then
    Label3.Caption = "You Loss!"
   End If
         If PicFive.Visible = True Then
       Label3.Caption = "You Loss!"
      End If
                If PicTen.Visible = True Then
                 Label3.Caption = "You Loss!"
          End If
End If

End Sub

Private Sub No10_Click()
Yourc.Caption = "Your choice 10"
Yourc.ForeColor = &HC0FFC0
MCsleep.Visible = False

If Label3.Caption = "You Win!" Then
movingMC.Visible = True
       Label3.ForeColor = &HFF&
Else
movingMC.Visible = False
End If

If Label3.Caption = "You Loss!" Then
tear.Visible = True
                    Label3.ForeColor = &HFFFF00
Else
tear.Visible = False
End If

Randomize
choice = Int(3 * Rnd + 1)

If choice = 1 Then
PicZeroi.Visible = True
PicFivei.Visible = False
PicTeni.Visible = False
   If PicZero.Visible = True Then
    Label3.Caption = "You Loss!"
   End If
      If PicFive.Visible = True Then
       Label3.Caption = "You Loss!"
      End If
                If PicTen.Visible = True Then
                 Label3.Caption = "You Win!"
          End If
End If

If choice = 2 Then
PicZeroi.Visible = False
PicFivei.Visible = True
PicTeni.Visible = False
   If PicZero.Visible = True Then
    Label3.Caption = "You Loss!"
   End If
         If PicFive.Visible = True Then
       Label3.Caption = "You Win!"
      End If
             If PicTen.Visible = True Then
                 Label3.Caption = "You Loss!"
          End If
End If

If choice = 3 Then
PicZeroi.Visible = False
PicFivei.Visible = False
PicTeni.Visible = True
   If PicZero.Visible = True Then
    Label3.Caption = "You Win!"
   End If
         If PicFive.Visible = True Then
       Label3.Caption = "You Loss!"
      End If
                If PicTen.Visible = True Then
                 Label3.Caption = "You Loss!"
          End If
End If
End Sub

Private Sub No15_Click()
Yourc.Caption = "Your choice 15"
Yourc.ForeColor = &HFFC0C0
MCsleep.Visible = False

If Label3.Caption = "You Win!" Then
movingMC.Visible = True
Label3.ForeColor = &HFF&
Else
movingMC.Visible = False
End If

If Label3.Caption = "You Loss!" Then
tear.Visible = True
Label3.ForeColor = &HFFFF00
Else
tear.Visible = False
End If

Randomize
choice = Int(3 * Rnd + 1)

If choice = 1 Then
PicZeroi.Visible = True
PicFivei.Visible = False
PicTeni.Visible = False
   If PicZero.Visible = True Then
    Label3.Caption = "You Loss!"
   End If
      If PicFive.Visible = True Then
       Label3.Caption = "You Loss!"
      End If
                If PicTen.Visible = True Then
                 Label3.Caption = "You Loss!"
          End If
End If

If choice = 2 Then
PicZeroi.Visible = False
PicFivei.Visible = True
PicTeni.Visible = False
   If PicZero.Visible = True Then
    Label3.Caption = "You Loss!"
   End If
         If PicFive.Visible = True Then
       Label3.Caption = "You Loss!"
      End If
             If PicTen.Visible = True Then
                 Label3.Caption = "You Win!"
          End If
End If

If choice = 3 Then
PicZeroi.Visible = False
PicFivei.Visible = False
PicTeni.Visible = True
   If PicZero.Visible = True Then
    Label3.Caption = "You Loss!"
   End If
         If PicFive.Visible = True Then
       Label3.Caption = "You Win!"
      End If
                If PicTen.Visible = True Then
                 Label3.Caption = "You Loss!"
          End If
End If
End Sub

Private Sub No20_Click()
Yourc.Caption = "Your choice 20"
Yourc.ForeColor = &HFF00FF
MCsleep.Visible = False

If Label3.Caption = "You Win!" Then
movingMC.Visible = True
Label3.ForeColor = &HFF&
Else
movingMC.Visible = False
End If

If Label3.Caption = "You Loss!" Then
tear.Visible = True
Label3.ForeColor = &HFFFF00
Else
tear.Visible = False
End If

Randomize
choice = Int(3 * Rnd + 1)

If choice = 1 Then
PicZeroi.Visible = True
PicFivei.Visible = False
PicTeni.Visible = False
  If PicZero.Visible = True Then
    Label3.Caption = "You Loss!"
   End If
      If PicFive.Visible = True Then
       Label3.Caption = "You Loss!"
                    If PicTen.Visible = True Then
                 Label3.Caption = "You Loss!"
          End If
          End If

If choice = 2 Then
PicZeroi.Visible = False
PicFivei.Visible = True
PicTeni.Visible = False
   If PicZero.Visible = True Then
    Label3.Caption = "You Loss!"
   End If
         If PicFive.Visible = True Then
       Label3.Caption = "You Loss!"
      End If
                If PicTen.Visible = True Then
                 Label3.Caption = "You Loss!"
          End If
End If

If choice = 3 Then
PicZeroi.Visible = False
PicFivei.Visible = False
PicTeni.Visible = True
   If PicZero.Visible = True Then
    Label3.Caption = "You Loss!"
   End If
         If PicFive.Visible = True Then
       Label3.Caption = "You Loss!"
      End If
                If PicTen.Visible = True Then
                 Label3.Caption = "You Win!"
          End If
End If
End If
End Sub

Private Sub No5_Click()
Yourc.Caption = "Your choice 5"
Yourc.ForeColor = &H80FFFF
MCsleep.Visible = False
If Label3.Caption = "You Win!" Then
movingMC.Visible = True
       Label3.ForeColor = &HFF&
Else
movingMC.Visible = False
End If

If Label3.Caption = "You Loss!" Then
tear.Visible = True
                    Label3.ForeColor = &HFFFF00
Else
tear.Visible = False
End If

Randomize
choice = Int(3 * Rnd + 1)

  If choice = 1 Then
PicZeroi.Visible = True
PicFivei.Visible = False
PicTeni.Visible = False
    If PicZero.Visible = True Then
    Label3.Caption = "You Loss!"
   End If
         If PicFive.Visible = True Then
       Label3.Caption = "You Win!"
      End If
                If PicTen.Visible = True Then
                 Label3.Caption = "You Loss!"
          End If
    End If
    If choice = 2 Then
PicZeroi.Visible = False
PicFivei.Visible = True
PicTeni.Visible = False
    If PicZero.Visible = True Then
    Label3.Caption = "You Win!"
   End If
       If PicFive.Visible = True Then
       Label3.Caption = "You Loss!"
      End If
      If PicTen.Visible = True Then
                 Label3.Caption = "You Loss!"
          End If
    End If
    If choice = 3 Then
PicZeroi.Visible = False
PicFivei.Visible = False
PicTeni.Visible = True
    If PicZero.Visible = True Then
    Label3.Caption = "You Loss!"
    End If
           If PicFive.Visible = True Then
       Label3.Caption = "You Loss!"
      End If
                 If PicTen.Visible = True Then
                 Label3.Caption = "You Loss!"
          End If
      End If
   
   
End Sub

 

 

 
發表時間：2007-05-04 06:40 PM  [ 訪客留言(0) ] [ 編輯日誌 ] [ 分享至FACEBOOK ]
2007 年 5 月 2 日  星期三   晴天


5月2日 分類: 未分類

今日真係好想寫丫~......
屋企個度...十座有人跳樓丫..~好似係第一次聽到呢d 野~@@""
點解唔等埋我一起跳wo~=3=
我仲見到十座樓下有個細路係度叫"令仔,,快d 跳落黎啦".....kai ge...
上cit 個時,,,當我岩岩做完ge 時候.........佢...成個變左做白色丫...
save 都未save ga....oh~
仲有呢..我隻mero ......

(閱讀全文)

 
發表時間：2007-05-02 11:44 PM  [ 訪客留言(0) ] [ 編輯日誌 ] [ 分享至FACEBOOK ]


« | 72 | 73 | 74 | 75 | 76 | 77 | 78 | 79 | 80 | 81 | ... | 178 | »