【文章內(nèi)容簡介】 界面大致相同，界面如下： 14 圖 33 選擇游戲界面 按該界面上的鍵直接出來游戲窗口，其主要代碼很簡單，如下： Private Sub Command1_Click() Shell f:/智能 24 End Sub Private Sub Command2_Click() Shell f:/旋轉 End Sub 24 點紙牌的開發(fā) （ 1） 主界面設計 圖 34 24點紙牌主界面 按 [Start]后，程序會任意給出四張牌，在左邊的按鈕中也能看到相應的數(shù) 15 值，只要輸入相應的表達式就可以了。如： 1 這四個數(shù)，輸入表達式為： 6/（ 5/41）即可；如果你認為本題無解，那么你不必輸入任何數(shù)值直接按回車就可以，程序會驗算答題是否準確。如果輸入的數(shù)據(jù)有錯，那么程序會自動定位到出錯的地方，以方便用戶修改。 主要代碼如下： Private Sub AnswerButton_Click() Dim iAnswer As Integer iAnswer=() 39。調用 24 點表達式計算函數(shù) If iAnswer = 24 Then 39。operater函數(shù)能返回 24的值說有解 = + =24 Else 39。答題錯誤所要做的動作 = 本題無解 End If = False = False = True = True = True = False 39。進程停止走動 If Trim$() Then 39。用戶選擇本題有解狀態(tài) 以下 if...then 中為有解狀態(tài)所要做的動作 If InputNumber() = True And InputOperator() = True Then If OperatorFunction() 表達式出錯 Then 39。調用表達式 OperatorFunction 如果表達式?jīng)]錯則執(zhí)行下面的步驟 If OperatorFunction() = 24 Then 39。答題正確所要做的動作 16 a = MsgBox(恭喜！你答對了 ^_^, 0 + 64 + 0, 正確 ) If CheckTop10(c:\, 14) = True Then WriteTop10 strUsrName, c:\, 14 End If = False = True = True = True Else 39。答題錯誤所要做的動作 a = MsgBox(對不起！你答錯了 , 0 + 16 + 0, 錯誤 ) = False = False = False = True = amp。HFFamp。 39。使字體變成紅色 End If 39。無論答題對與否都要做的動作 = + = + OperatorFunction() Else 39。表達式出錯 = True 39。由于是用戶輸入出錯所以進程續(xù)繼走動 a = MsgBox(操作符出錯，請檢查后重試 , 0 + 16 + 0, 錯誤 ) = Len() 39。將光標定位在表達式的最后 39。將焦點定位在文本框上的錯誤位置上，使用戶能夠方便地修改輸入上的錯誤 Exit Sub 17 39。此時可以直接退出這個事件按鈕 等用戶重新輸入表達式 End If Else = True 39。由于是用戶輸入出錯所以進程續(xù)繼走動 If InputOperator() = True Then 39。先判斷表達式有沒有錯，后判斷數(shù)字有沒有錯 a = MsgBox(對不起！你輸入的數(shù)據(jù)有誤 請檢查后重試 + Chr$(13) + Chr$(10) + ReturnErrorString, 0 + 48, 數(shù)據(jù)有錯 ) Else a = MsgBox(對不起！你輸入的表達式有誤 請檢查后重試 + Chr$(13) + Chr$(10) + ReturnErrorString, 0 + 48, 表達式有錯 ) End If = iFindError = iErrorLong 39。將焦點定位在文 本框上的錯誤位置上，使用戶能夠方便地修改輸入上的錯誤 Exit Sub End If Else 39。用戶選擇本無題狀態(tài) Else....End If 為無解狀態(tài)所要做的動作 iAnswer = () 39。調用 24 點表達式計算函數(shù) If iAnswer = 24 Then 39。operater 函數(shù)能返回 24 的值說有解，所用戶選擇狀態(tài)是錯誤的 a = MsgBox(對不起！你答錯了 本題有解 , 0 + 16 + 0, 錯誤 ) = True = amp。HFFamp。 39。使字體變成紅色 Else 39。答題錯誤所要做的動作 18 a = MsgBox(恭喜！你答對了 本題無解 ^_^, 0 + 64 + 0, 正確 ) = 本題無解 = True = True = True End If End If End Sub （ 2） Test 界面設計 圖 35 24點紙牌測試界面 在主界面中，按 [Test]鍵就會出現(xiàn)該界面。在該界面中，可以自己任意給出四個（ 113）的整數(shù)，按 [OK]鍵后由程序自動算出答案。按 [Clear]鍵可以重新再測試，按 [Return]可以回到主界面。該界面中程序自動給出答案的主要代碼如下： Private Sub TestCards(Num As Integer) 39。參數(shù) num 是用戶選擇的數(shù)值 19 Dim iCount As Integer If iCardsNumber = 4 Then iCardsNumber = 0 If iCardsNumber = 3 Then TestNumberFour = True 39。用戶已經(jīng)選夠了牌數(shù) If TestNumberFour Then = True Else = False End If Randomize 39。初始化隨機 tt = Int(Rnd() * 4 + 1) 39。產(chǎn)生一個隨機數(shù) Select Case tt 39。用于顯示四種不同種類的牌 Case 1 iCount = 0 + Num Case 2 iCount = 13 + Num Case 3 iCount = 26 + Num Case 4 iCount = 39 + Num End Select = iRndCardsNumber(iCardsNumber + 1) = Num 39。將數(shù)值裝入數(shù)組以便計算時使用 = (iCount).Picture Dim a Dim W As Integer W = Int(Rnd * 3 + 1) 39。隨機產(chǎn)生一種特殊顯示模式 20 a = px(CardsPicture(iCardsNumber), CardsPictureClip, W) CardsPicture(iCardsNumber).Picture = (iCount).Picture iCardsNumber = iCardsNumber + 1 End Sub （ 3）使用說明界面設計 這幾個界面主要用于向用戶說明如何玩這個游戲，各界面上的按鈕如何使用。同時也說明版權所有。其主要代碼為： Private Sub Form_Load() = = 0 = 0 = 100 = 25 = 2040 = 360 = True = 2150 = 360 = False = 2100 = 360 = False = 2040 = 360 = False = 2040 = 360 = False 21 = False End Sub 39。隱藏四個邊框 Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ButBorder(0).Visible = False ButBorder(1).Visible = False ButBorder(2).Visible = False ButBorder(3).Visible = False End Sub ① 開牌 /答題界面 圖 36 24點 紙牌 開牌 /答題 ② 時間設置界面 圖 37 24點紙牌時間設置界面 22 ③ 開 /關時間界面 圖 38 24點紙牌開 /關時間界面 ④ 測試界面 圖 39 24點紙牌測試界面 ⑤ 其它界面 圖 310 24點紙牌其它界面 23 ⑥ 作者界面 圖 311 24點紙牌作者界面 拼拼圖的開發(fā) （ 1）主界面設計 顯示上次載入的外部圖片 ，根據(jù)右上角的小圖片在大圖中任意移動各分塊，把圖拼出來。 按 [新游戲 ]鍵重新開始游戲。游戲開始后，點擊已被分割的圖片， 程序會自動判斷上下左右任意一塊是否為空，若為空，則移動到為空的位置。按 [設置 ]鍵出現(xiàn)設置游戲界面。按 [退出 ]鍵直接退出游戲，按 [關于 ]鍵顯示版權信息。 圖 312 拼拼圖主界面 24 主要代碼如下： Private Sub ImageElement_Click(Index As Integer) Dim RLflags As Boolean If ImageElement(0).BorderStyle = 0 Then Exit Sub moveFlags = False 39。已移動標志設為假 If Index = elementNum And Not moveFlags Then 39。圖片移出最后單元 moveImage Index, 0 Gamewin 39。調用判斷游戲是否成功子過程 End If If Index = 0 And Not moveFlag