1、首先在在images目录下存放54张扑克牌的图片。如图所示,每张图片的格式为jpg。

2、在excel的Sheet上设置一个“随机发牌”按钮以及显示20张扑克牌的空图片。

3、点击“随机发牌”按钮后,下方空图片会随机显示扑克牌图像。

4、需要的VBA代码主要有以下几个,第一个是指定每次显示几张扑克牌以及总扑克牌数量。作者这里分别设置的是20和54.

5、第二个代码是随机发牌顺序和斗地主的牌序到文件序号。

6、第三个代码是指定控件显示指定图片,这也是本系统最为核心的代码。

7、第四个代码是产生1~imagsCount的随机数,并保存起来转换为斗地主的牌序再保存。

8、第五个代码是自动检测是否已产生了上一个排布顺序。

9、自此,整个发牌系统就可以运行了。