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

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

2、2.在蘅荫酸圉G1:G3单元格中分别输入函数=INDEX(A:A,F1)、=INDEX(A:A,F2)和=INDEX(A:A,F3)；在I1:I3单元格中分别输入函数=INDEX(A:A,H1)、=INDEX(A:A,H2)和=INDEX(A:A,H3)。

3、3.在菜撮劝丛食单栏中选择名称管理器，并新建牌1至牌6共6个函数，并分别设置引用函数为=INDEX(Sheet1!$B:$B,MATCH(Sheet1!$F$1,Sheet1!$A:$A,0))，=INDEX(Sheet1!$B:$B,MATCH(Sheet1!$F$2,Sheet1!$A:$A,0))，=INDEX(Sheet1!$B:$B,MATCH(Sheet1!$F$3,Sheet1!$A:$A,0))，=INDEX(Sheet1!$B:$B,MATCH(Sheet1!$H$1,Sheet1!$A:$A,0))，=INDEX(Sheet1!$B:$B,MATCH(Sheet1!$H$2,Sheet1!$A:$A,0))，=INDEX(Sheet1!$B:$B,MATCH(Sheet1!$H$3,Sheet1!$A:$A,0))。

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

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

6、6.打开开发程序→插入4个按钮→将4个按钮分别指定步骤4的4个程序。

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

8、8.非正常游戏时点击豹子程序，即可弹出窗口，显示"恭喜您，这把是豹子"。