巧用Excel VBA代码揭示“诈金花”游戏的骗局

1、在电脑桌面上新建1个Excel文件，在网上下载所需的扑克牌图片，并把下载的图片插入至Excel文件中，排列成图片所示。

4、复制已插入的6张图片，在并在函数编辑栏中使其分别等于步骤3中6个函数规则。

5、打开vi衡痕贤伎sual basic新建牌手1、牌手2、牌手1豹子1和牌手2豹子4个程序。主要使用的代码有Range("单元格") = Application.RandBetween(数字, 数字)、If Cells(数字, 数字) =数字 Then Cells(数字, 数字) =数字以及MsgBox "恭喜您，这把是豹子"。

7、正常游戏时点击牌手1和牌手2程序，即可随机选择牌型。