胥淑華 吐魯番職業(yè)技術(shù)學(xué)院

在VB教學(xué)中，隨機函數(shù)的學(xué)習(xí)是比較抽象難以理解的，我們可以通過同學(xué)們感興趣的撲克牌心靈魔術(shù)案例來學(xué)習(xí)領(lǐng)會隨機函數(shù)的使用功能。

功能：通過VB中隨機函數(shù)的靈活運用，實現(xiàn)6張撲克牌的心靈魔術(shù)

實現(xiàn)方法：

一、素材：

當(dāng)前目標(biāo)Picture文件夾下的圖片文件名依次為：1-13是黑桃，14-26是紅桃，27-39是梅花，40-52是方塊，53是大王，54是小王，55是撲克牌的背景圖片。

二、窗體控件Form1 Form的設(shè)置：

1、Caption屬性：6張撲克牌的魔幻顯示

2、BackColor屬性：綠色

3、Image1屬性：

（1） 名稱屬性：Image1—Image6

為了使外觀漂亮美觀，我們可以使六張撲克牌分不同花色上下各三張均勻地分布在窗體中。

（2）Picture屬性：將當(dāng)前目標(biāo)picture中的圖片文件順次插入到控件中

（3） Picture1---Picture6逐次將當(dāng)前目標(biāo)picture中的圖片文件插入到圖片控件中

三、標(biāo)簽控件Label1的設(shè)置：

1、Caption屬性：你在自己心里選中一張撲克牌，請記住了，然后，按OK命令按鈕，這時候你心里的記住的那張牌在哪里？

2、Font屬性：宋體、粗體、三號

3、ForeColor屬性：黑色

四、Command1按鈕：

Caption屬性：OK

五、添加窗體2：具體操作：工程菜單------添加窗體

窗體控件Form2 Form的設(shè)置：

1、Caption屬性：6張撲克牌的魔幻顯示

2、BackColor屬性：綠色

3、Image1屬性：

（1） 名稱屬性：Image1—Image5。

為了使外觀漂亮美觀，我們可以使五張撲克牌分不同花色上三張下二張均勻分布在窗體中，并將左下角的撲克牌的位置預(yù)留，該張牌的位置就是程序運行后神奇消失的那張牌的位置。

（2）Picture屬性：將當(dāng)前目標(biāo)picture中的圖片順次插入到控件中

（3） Picture1---Picture5逐次將當(dāng)前目標(biāo)picture中的圖片插入到圖片控件中

六、標(biāo)簽控件Label2的設(shè)置：

4、Caption屬性：見證奇跡的時刻到了，你自己心里選中的那張撲克牌是不是神奇地消失了？

5、Font屬性：宋體、粗體、三號

6、ForeColor屬性：黑色

七、Command1按鈕：

Caption屬性：OK

八、添加模塊：

為了使該程序運行時，兩個窗體顯示的圖像的一致性，我們必須要為工程添加一個模塊，將變量a定義為全局變量。具體操作方法如下：

工程菜單-----添加模塊

為Module模塊編寫代碼：

Publie a as integer

九、程序代碼如下：

十、運行結(jié)果：