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

 时间:2024-10-17 05:18:05

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

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

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)。

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

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))。

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

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

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

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

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

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

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

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

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

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

巧用Excel VBA代码揭示“诈金花”游戏的骗局
  • 汽车更换发动机后如何更改档案
  • 一加AcePro怎么投屏
  • 不锈钢瓦楞板加工方法
  • 增值税发票公司账号没放怎么办
  • SAP FI如何显示Fiori资产会计的关键指标
  • 热门搜索
    防疫手抄报 汉字真有趣手抄报 缅怀先烈手抄报 科学手抄报 中国传统节日手抄报 语文手抄报 心理健康教育手抄报 清明节手抄报的内容 二年级数学手抄报 手抄报版面设计图