[已解决]N多心血搞的21点游戏

开辆小富康 · 发表于 2010-3-1 19:32

闲话少说，上文件。须将这一个文件夹，和一个EXCEL文件，解压到同一父级目录下。比如： E:\EXCEL\21点游戏论坛版.xls,E:\EXCEL\PokerCards

游客，如果您要查看本帖隐藏内容请回复

爱疯 · 发表于 2010-3-1 19:32

[em02]21点怎么玩呀

开辆小富康 · 发表于 2010-3-1 19:37

再上一个动画SEE，SEE

jiangming · 发表于 2010-3-1 19:37

听说过24点，没玩过21点[em04]

爱疯 · 发表于 2010-3-1 19:38

Sub GetFourCards() '--得到开始游戏的四张牌 Dim k As Byte Do k = k + 1 GetSingleCard If k = 1 Or k = 3 Then &nbsp

Lnum = PLnum + 1 &nbsp

LCards(PLnum) = SingleCard &nbsp

lorPc = True  UserForm1.DisplayCards Else....我狂点后，错误67，这儿停了[em04]

开辆小富康 · 发表于 2010-3-1 19:40

一个文件夹，一个文件，要一起下。下了解压在同一父级目录下。爱疯你插了队没做到。

爱疯 · 发表于 2010-3-1 19:43

是我的没按1楼放在1起，放1起就好了。连输3把，没钱了[em03]

爱疯 · 发表于 2010-3-1 19:45

建议+个判断，如果程序文件路径下，没有PokerCards，就退出。[em09]

爱疯 · 发表于 2010-3-1 19:48

再建议把背景图片，要么换小点，要么换点啥，目的是压缩完后可以<1M好像普通ID能发单个1M以下的文件吧？？

开辆小富康 · 发表于 2010-3-1 19:50

我第二个用户名，密码123456，有好几万块钱，就对你爱疯说，你去玩吧。呵呵

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

[VBA] [已解决]N多心血搞的21点游戏