仿照街机室的水果。机写的模拟器。

帮一帮 · 发表于 2011-3-29 07:03

仿照街机室的水果。机写的模拟器吃角子模拟器

ctp_119 · 发表于 2011-3-29 07:59

哈哈，牛呀，支持一个

yaojil · 发表于 2011-3-29 08:07

支持原创，学习学习

dodo2000 · 发表于 2011-3-29 09:05

看标题没看懂，进来一看，原来如此。楼主能修改一下标题吗？

帮一帮 · 发表于 2011-3-29 09:59

Private Sub 兑奖()
Dim i As Integer
Dim x As Integer
Dim Pinyes As Boolean
Dim y, z
Pinyes = False
x = Sheets("bet").Cells(65536, 1).End(xlUp).Row
For i = 1 To x
y = Sheets("bet").Cells(i, 2)

If GvMoney = y Then
Pinyes = True
x = i
Exit For
End If
Next i
z = Sheets("bet").Cells(x, 3)
If Pinyes Then
myMoney.Caption = myMoney.Caption * z
Else
myMoney.Caption = 0
End If
End Sub

这段代码有错误。现在是正确的

qq393834117 · 发表于 2011-5-8 16:11

我看我看我看我看我看我看我看我看我看我看我看我看

yc-prc · 发表于 2011-5-9 13:44

看了，下载了，已试玩了，楼主好强大！

hwx222727 · 发表于 2011-9-25 21:05

谢谢分享，下来学习！

majiexi · 发表于 2011-9-25 21:30

我中了不少找谁换钱?

liucqa · 发表于 2011-9-25 21:35

不错不错

		自动登录	找回密码
密码			免费注册

[原创] 仿照街机室的水果。机写的模拟器。

aaaaaaaa

浏览过的版块