VB实例—6张扑克牌的心灵魔术

胥淑华 吐鲁番职业技术学院

在VB教学中，随机函数的学习是比较抽象难以理解的，我们可以通过同学们感兴趣的扑克牌心灵魔术案例来学习领会随机函数的使用功能。

功能：通过VB中随机函数的灵活运用，实现6张扑克牌的心灵魔术

实现方法：

一、素材：

当前目标Picture文件夹下的图片文件名依次为：1-13是黑桃，14-26是红桃，27-39是梅花，40-52是方块，53是大王，54是小王，55是扑克牌的背景图片。

二、窗体控件Form1 Form的设置：

1、Caption属性：6张扑克牌的魔幻显示

2、BackColor属性：绿色

3、Image1属性：

（1） 名称属性：Image1—Image6

为了使外观漂亮美观，我们可以使六张扑克牌分不同花色上下各三张均匀地分布在窗体中。

（2）Picture属性：将当前目标picture中的图片文件顺次插入到控件中

（3） Picture1---Picture6逐次将当前目标picture中的图片文件插入到图片控件中

三、标签控件Label1的设置：

1、Caption属性：你在自己心里选中一张扑克牌，请记住了，然后，按OK命令按钮，这时候你心里的记住的那张牌在哪里？

2、Font属性：宋体、粗体、三号

3、ForeColor属性：黑色

四、Command1按钮：

Caption属性：OK

五、添加窗体2：具体操作：工程菜单------添加窗体

窗体控件Form2 Form的设置：

1、Caption属性：6张扑克牌的魔幻显示

2、BackColor属性：绿色

3、Image1属性：

（1） 名称属性：Image1—Image5。

为了使外观漂亮美观，我们可以使五张扑克牌分不同花色上三张下二张均匀分布在窗体中，并将左下角的扑克牌的位置预留，该张牌的位置就是程序运行后神奇消失的那张牌的位置。

（2）Picture属性：将当前目标picture中的图片顺次插入到控件中

（3） Picture1---Picture5逐次将当前目标picture中的图片插入到图片控件中

六、标签控件Label2的设置：

4、Caption属性：见证奇迹的时刻到了，你自己心里选中的那张扑克牌是不是神奇地消失了？

5、Font属性：宋体、粗体、三号

6、ForeColor属性：黑色

七、Command1按钮：

Caption属性：OK

八、添加模块：

为了使该程序运行时，两个窗体显示的图像的一致性，我们必须要为工程添加一个模块，将变量a定义为全局变量。具体操作方法如下：

工程菜单-----添加模块

为Module模块编写代码：

Publie a as integer

九、程序代码如下：

十、运行结果：