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

九、程序代碼如下：

十、運行結果：