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