Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Dim X As Integer
Dim M0 As Integer
Dim J As Integer
Dim M1 As Integer
Dim M2 As Integer
Dim M3 As 拦丛Integer
Dim M4 As Integer
Dim M5 As Integer
Dim M6 As Integer
Dim M7 As Integer
Dim M8 As Integer
Dim R As Integer
Dim JB As Long
Dim JG As Long
Private Sub dedd_Click()
MsgBox "方法：1、2、3、4、6、7、8、9随机买5个" & vbCrLf & "分析：5几率低出外8中5，每次翻倍压比如：5、10、20、30、40" & vbCrLf & "风险：赢一场得3倍，输一场全部完蛋，一般翻倍到50就收手" & vbCrLf & "几率：75%中标" & vbCrLf & "总结：属于高风险高收入的一种，赢到500++金币就一定要收手", vbYes, "高风险-高回报-高几率"
End Sub
Private Sub dfrr4_Click()
If MsgBox("是否清空全部比赛结果？", vbYesNo, "信息") = vbYes Then
For P = 1 To 9
Label12(P).Caption = ""
Next P
End If
End Sub
Private Sub dv_Click()
MsgBox "方简亮樱法：大/小、黑/红同时各买1种" & vbCrLf & "分析：黑/红个4个，大/小各4个除了5外只有2个黑马" & vbCrLf & "风险：赢一场得1倍或者平局，输一场全部完蛋，这个方法比较耐玩" & vbCrLf & "几率：60%中标" & vbCrLf & "总结：属于几率高回报高耐玩型，赢到500++金币就一定要收手", vbYes, "低风险-高回报-高几率"
End Sub
Private Sub eee_Click()
MsgBox "开国功臣有：" & vbCrLf & "死亡治疗师" & vbCrLf & "死亡CO" & vbCrLf & "樱花刺客" & vbCrLf & "梦之幻旅" & vbCrLf & "神谷" & vbCrLf & "等等。。具体到光芒服务器上" & vbCrLf & "期待着你的加入！", vbYes, "路尼亚皇国"
End Sub
Private Sub ers_Click()
If Timer1.Interval = 0 Then
For b = 0 To 8
Picture1(b).Cls
Next
M0 = 200
M1 = 200
M2 = 200
M3 = 200
M4 = 200
M5 = 200
M6 = 200
M7 = 200
M8 = 200
For K = 0 To 8
If K = 0 Or K = 2 Or K = 6 Or K = 8 Then
Picture1(K).FillColor = vbRed
Picture1(K).FillStyle = 0
Picture1(K).Circle (200, 200), 200, vbRed
ElseIf K = 4 Then
Picture1(K).FillColor = &HC000&
Picture1(K).FillStyle = 0
Picture1(K).Circle (200, 200), 200, &HC000&
Else
Picture1(K).FillColor = &H0&
Picture1(K).FillStyle = 0
Picture1(K).Circle (200, 200), 200, &H0&
End If
Next K
Timer1.Interval = 800
Else
MsgBox "SML正在努力比赛中,你没有权利终止比赛!", vbYes, "消息"
End If
End Sub
Private Sub Form_Load()
M0 = 200
M1 = 200
M2 = 200
M3 = 200
M4 = 200
M5 = 200
M6 = 200
M7 = 200
M8 = 200
JB = 0
JG = 0
End Sub
Private Sub ggde_Click()
MsgBox "知足常乐，每天在赌场提走500++金币就好了。贪心会输大的。" & vbCrLf & "最后祝福大家把赌键团场当提款机，有更好的方法记得分享！", vbYes, "死亡CO说："
End Sub
Private Sub Label13_Click(Index As Integer)
If Timer1.Interval = 0 Then
If Label11(Index).Caption = "0" Then
On Error GoTo CD
JB = InputBox(" 请下注 ", "你选择的是 " & Label13(Index).Caption, "1")
If JB <= Int(Label10.Caption) And JB <> 0 Then
Label11(Index).Caption = JB
Label13(Index).BackColor = &HC0C0FF
Label10.Caption = Int(Label10.Caption) - JB
Text10.Text = Text10.Text & vbCrLf & "你在 " & Label13(Index).Caption & " 号下了金币 " & Label11(Index).Caption & " 个"
Else
MsgBox "你的筹码不够哦！", vbYes, "消息"
End If
Else
If MsgBox("你在 " & Label13(Index).Caption & " 下的筹码是 " & Label11(Index).Caption & " 金，是否取消下注的筹码", vbYesNo, "信息") = vbYes Then
Label13(Index).BackColor = &HC0FFFF
Label10.Caption = Int(Label10.Caption) + Int(Label11(Index).Caption)
Label11(Index).Caption = "0"
Text10.Text = Text10.Text & vbCrLf & "你取消了在 " & Label13(Index).Caption & " 号参加的金币"
End If
End If
Else
MsgBox "比赛中不可以下注", vbYes, "消息"
End If
Exit Sub
CD:
MsgBox "你输入的不是有效筹码！", vbYes, "消息"
End Sub
Private Sub ook_Click()
MsgBox "方法：观测结果连续出现同色时候，下次转色时连买那个颜色" & vbCrLf & "分析：其他区我不清楚，光芒-70线-连色有事多的离谱" & vbCrLf & "风险：纯属运气战" & vbCrLf & "几率：40%中标" & vbCrLf & "总结：运气好能捞上一大把", vbYes, "高风险-高回报-低几率"
End Sub
Private Sub qq_Click()
ShellExecute 0, "Open", "tencent://message/?uin=27485203&Site=im.qq.com&Menu=yes", "", App.Path, 0
End Sub
Private Sub rtee_Click()
e = MsgBox(" 留意以后的版本更新 ", vbYes, "此功能还没开放")
End Sub
Private Sub srb_Click()
Dim kd As Long
For w = 0 To 15
kd = kd + Int(Label11(w).Caption)
Next w
If Int(Label10.Caption) > 0 Or kd > 0 Then
MsgBox "瞎搅和啥？那么贪心，等没钱了再来点我！", vbYes, "提醒"
Else
MsgBox "天呐又输光了！？好吧，给你次机会让你翻本。", vbYes, "向上天再借1000金"
Label10.Caption = 1000
End If
End Sub
Private Sub Text10_Change()
Text10.SelStart = Len(Text10.Text)
End Sub
Private Sub Timer1_Timer()
Randomize
X = Rnd * 9
If X = 5 Then
Picture1(0).Cls
Picture1(0).FillColor = vbRed
Picture1(0).FillStyle = 0
Picture1(0).Circle (M0 + 700, 200), 200, vbRed
M0 = M0 + 700
Else
Randomize
J = Rnd * 100
M0 = M0 + 100 + J
Picture1(0).Cls
Picture1(0).FillColor = vbRed
Picture1(0).FillStyle = 0
Picture1(0).Circle (M0, 200), 200, vbRed
End If
'*********************************************************************
Randomize
X = Rnd * 9
If X = 5 Then
Picture1(1).Cls
Picture1(1).FillColor = &H0&
Picture1(1).FillStyle = 0
Picture1(1).Circle (M1 + 700, 200), 200, &H0&
M1 = M1 + 700
Else
Randomize
J = Rnd * 100
M1 = M1 + 100 + J
Picture1(1).Cls
Picture1(1).FillColor = &H0&
Picture1(1).FillStyle = 0
Picture1(1).Circle (M1, 200), 200, &H0&
End If
'*********************************************************************
Randomize
X = Rnd * 9
If X = 5 Then
Picture1(2).Cls
Picture1(2).FillColor = vbRed
Picture1(2).FillStyle = 0
Picture1(2).Circle (M2 + 700, 200), 200, vbRed
M2 = M2 + 700
Else
Randomize
J = Rnd * 100
M2 = M2 + 100 + J
Picture1(2).Cls
Picture1(2).FillColor = vbRed
Picture1(2).FillStyle = 0
Picture1(2).Circle (M2, 200), 200, vbRed
End If
'*********************************************************************
Randomize
X = Rnd * 9
If X = 5 Then
Picture1(3).Cls
Picture1(3).FillColor = &H0&
Picture1(3).FillStyle = 0
Picture1(3).Circle (M3 + 700, 200), 200, &H0&
M3 = M3 + 700
Else
Randomize
J = Rnd * 100
M3 = M3 + 100 + J
Picture1(3).Cls
Picture1(3).FillColor = &H0&
Picture1(3).FillStyle = 0
Picture1(3).Circle (M3, 200), 200, &H0&
End If
'*********************************************************************
Randomize
X = Rnd * 240
If X = 5 Then
Picture1(4).Cls
Picture1(4).FillColor = &HC000&
Picture1(4).FillStyle = 0
Picture1(4).Circle (M4 + 3200, 200), 200, &HC000&
M4 = M4 + 3200
Else
Randomize
J = Rnd * 100
M4 = M4 + 100 + J
Picture1(4).Cls
Picture1(4).FillColor = &HC000&
Picture1(4).FillStyle = 0
Picture1(4).Circle (M4, 200), 200, &HC000&
End If
'*********************************************************************
Randomize
X = Rnd * 9
If X = 5 Then
Picture1(5).Cls
Picture1(5).FillColor = &H0&
Picture1(5).FillStyle = 0
Picture1(5).Circle (M5 + 700, 200), 200, &H0&
M5 = M5 + 700
Else
Randomize
J = Rnd * 100
M5 = M5 + 100 + J
Picture1(5).Cls
Picture1(5).FillColor = &H0&
Picture1(5).FillStyle = 0
Picture1(5).Circle (M5, 200), 200, &H0&
End If
'*********************************************************************
Randomize
X = Rnd * 9
If X = 5 Then
Picture1(6).Cls
Picture1(6).FillColor = vbRed
Picture1(6).FillStyle = 0
Picture1(6).Circle (M6 + 700, 200), 200, vbRed
M6 = M6 + 700
Else
Randomize
J = Rnd * 100
M6 = M6 + 100 + J
Picture1(6).Cls
Picture1(6).FillColor = vbRed
Picture1(6).FillStyle = 0
Picture1(6).Circle (M6, 200), 200, vbRed
End If
'*********************************************************************
Randomize
X = Rnd * 9
If X = 5 Then
Picture1(7).Cls
Picture1(7).FillColor = &H0&
Picture1(7).FillStyle = 0
Picture1(7).Circle (M7 + 700, 200), 200, &H0&
M7 = M7 + 700
Else
Randomize
J = Rnd * 100
M7 = M7 + 100 + J
Picture1(7).Cls
Picture1(7).FillColor = &H0&
Picture1(7).FillStyle = 0
Picture1(7).Circle (M7, 200), 200, &H0&
End If
'*********************************************************************
Randomize
X = Rnd * 9
If X = 5 Then
Picture1(8).Cls
Picture1(8).FillColor = vbRed
Picture1(8).FillStyle = 0
Picture1(8).Circle (M8 + 700, 200), 200, vbRed
M8 = M8 + 700
Else
Randomize
J = Rnd * 100
M8 = M8 + 100 + J
Picture1(8).Cls
Picture1(8).FillColor = vbRed
Picture1(8).FillStyle = 0
Picture1(8).Circle (M8, 200), 200, vbRed
End If
If M0 >= Picture1(0).Width Then
Timer1.Interval = 0
R = 1
Label12(0).Alignment = 0
Label12(0).Caption = " 1"
Label12(0).ForeColor = vbRed
Text10.Text = Text10.Text & vbCrLf & R & " 号获得了冠军！"
GoTo RE
ElseIf M1 >= Picture1(0).Width Then
Timer1.Interval = 0
Label12(0).Alignment = 1
Label12(0).Caption = "2 "
Label12(0).ForeColor = &H0&
R = 2
Text10.Text = Text10.Text & vbCrLf & R & " 号获得了冠军！"
GoTo RE
ElseIf M2 >= Picture1(0).Width Then
Timer1.Interval = 0
Label12(0).Alignment = 0
Label12(0).Caption = " 3"
Label12(0).ForeColor = vbRed
R = 3
Text10.Text = Text10.Text & vbCrLf & R & " 号获得了冠军！"
GoTo RE
ElseIf M3 >= Picture1(0).Width Then
Timer1.Interval = 0
Label12(0).Alignment = 1
Label12(0).Caption = "4 "
Label12(0).ForeColor = &H0&
R = 4
Text10.Text = Text10.Text & vbCrLf & R & " 号获得了冠军！"
GoTo RE
ElseIf M4 >= Picture1(0).Width Then
Timer1.Interval = 0
Label12(0).Alignment = 2
Label12(0).Caption = "5"
Label12(0).ForeColor = &HC000&
R = 5
Text10.Text = Text10.Text & vbCrLf & R & " 号获得了冠军！"
GoTo RE
ElseIf M5 >= Picture1(0).Width Then
Timer1.Interval = 0
Label12(0).Alignment = 1
Label12(0).Caption = "6 "
Label12(0).ForeColor = &H0&
R = 6
Text10.Text = Text10.Text & vbCrLf & R & " 号获得了冠军！"
GoTo RE
ElseIf M6 >= Picture1(0).Width Then
Timer1.Interval = 0
Label12(0).Alignment = 0
Label12(0).Caption = " 7"
Label12(0).ForeColor = vbRed
R = 7
Text10.Text = Text10.Text & vbCrLf & R & " 号获得了冠军！"
GoTo RE
ElseIf M7 >= Picture1(0).Width Then
Timer1.Interval = 0
Label12(0).Alignment = 1
Label12(0).Caption = "8 "
Label12(0).ForeColor = &H0&
R = 8
Text10.Text = Text10.Text & vbCrLf & R & " 号获得了冠军！"
GoTo RE
ElseIf M8 >= Picture1(0).Width Then
Timer1.Interval = 0
Label12(0).Alignment = 0
Label12(0).Caption = " 9"
Label12(0).ForeColor = vbRed
R = 9
Text10.Text = Text10.Text & vbCrLf & R & " 号获得了冠军！"
GoTo RE
End If
Exit Sub
RE:
For g = 9 To 1 Step -1
Label12(g).Alignment = Label12(g - 1).Alignment
Label12(g).Caption = Label12(g - 1).Caption
Label12(g).ForeColor = Label12(g - 1).ForeColor
Next g
'================================================
If Label11(R - 1).Caption <> "0" Then
Label13(R - 1).BackColor = &H400040
Else
Label13(R - 1).BackColor = &H80FF&
End If
If R = 1 Or R = 2 Or R = 3 Or R = 4 Then
If R = 4 Then
If Label11(13).Caption <> "0" Then
Label13(13).BackColor = &H400040
Else
Label13(13).BackColor = &H80FF&
End If
Else
If Label11(13).Caption <> "0" Then
Label13(13).BackColor = &H400040
Else
Label13(13).BackColor = &H80FF&
End If
If Label11(9).Caption <> "0" Then
Label13(9).BackColor = &H400040
Else
Label13(9).BackColor = &H80FF&
End If
End If
ElseIf R = 6 Or R = 7 Or R = 8 Or R = 9 Then
If R = 6 Then
If Label11(12).Caption <> "0" Then
Label13(12).BackColor = &H400040
Else
Label13(12).BackColor = &H80FF&
End If
Else
If Label11(12).Caption <> "0" Then
Label13(12).BackColor = &H400040
Else
Label13(12).BackColor = &H80FF&
End If
If Label11(11).Caption <> "0" Then
Label13(11).BackColor = &H400040
Else
Label13(11).BackColor = &H80FF&
End If
End If
End If
If R = 4 Or R = 5 Or R = 6 Then
If Label11(10).Caption <> "0" Then
Label13(10).BackColor = &H400040
Else
Label13(10).BackColor = &H80FF&
End If
End If
If R = 1 Or R = 3 Or R = 7 Or R = 9 Then
If Label11(14).Caption <> "0" Then
Label13(14).BackColor = &H400040
Else
Label13(14).BackColor = &H80FF&
End If
ElseIf R = 2 Or R = 4 Or R = 6 Or R = 8 Then
If Label11(15).Caption <> "0" Then
Label13(15).BackColor = &H400040
Else
Label13(15).BackColor = &H80FF&
End If
Else
If Label11(4).Caption <> "0" Then
Label13(4).BackColor = &H400040
Else
Label13(4).BackColor = &H80FF&
End If
End If
For P = 0 To 15
If Label13(P).BackColor = &H400040 Then
If P = 0 Or P = 1 Or P = 2 Or P = 3 Or P = 5 Or P = 6 Or P = 7 Or P = 8 Then
JG = JG + Int(Label11(P).Caption) * 8
ElseIf P = 4 Then
JG = JG + Int(Label11(P).Caption) * 30
ElseIf P = 9 Or P = 10 Or P = 11 Then
JG = JG + Int(Label11(P).Caption) * 2.5
ElseIf P = 12 Or P = 13 Then
JG = JG + Int(Label11(P).Caption) * 2
Else
JG = JG + Int(Label11(P).Caption) * 2
End If
End If
Next P
If JG > 0 Then
MsgBox "你获得 " & JG & " 金币", vbYes, "恭喜"
Label10.Caption = Int(Label10.Caption) + JG
Else
MsgBox "你选择的SML没有获胜，因此你没有获得金币！", vbYes, "失败乃成功之母"
End If
JG = 0
For h = 0 To 15
Label13(h).BackColor = &HC0FFFF
Label11(h).Caption = "0"
Next h
If Int(Label10.Caption) > 99999999 Then
MsgBox "本届赌神由【死亡CO】亲自封上", vbYes, "获得赌神荣誉"
End If
End Sub
可以分为三步：第一步：设计程中迟罩序的界面
这是最有趣的一步，你根据你要实现的功能画出程序的界面，很有点摆积木的味道。
第二步：编写代码
最枯燥卖闹的一步，根据程序的功能，为每个控件元素编写代码，这一步是程序设计的关键所在。
第三步：发布应用程序
为你的程序创建安装项目。旦闹如果是自己使用，这一步可忽略。
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）