vb猜數(shù)字游戲課程設計報告

.z......資料...東華理工大學VB課程設計題目：猜數(shù)字游戲班級：10410111**：1041011112：石頭指導教師：吳強課程設計的目的課程設計為學生提供了一個既能動手又能動腦，獨立實踐的時機，將課本上的vb課理論知識和實踐有機的結合起來，鍛煉學生的分析解決實際問題的能力、提高運用vb應用的能力。課程設計題目和簡介猜數(shù)字游戲；游戲開場時系統(tǒng)將隨機產(chǎn)生一個數(shù)字不同的四位數(shù)，玩家根據(jù)游戲提示糾正答案〔1A0B：表示猜中一個數(shù)字且位置正確；2A2B：有兩個數(shù)字正確且位置正確有兩個數(shù)字正確當位置不正確〕輸入的數(shù)字不能一樣也不能為空而且只有十次時機。設計說明RRandomize產(chǎn)生隨機數(shù)用戶輸入值比擬隨機值與輸入值給出提示確定退出游戲開場游戲源代碼進入界面form1PrivateSubmand1_Click()LoadForm2Form2.Show[vbModal]EndSubPrivateSubmand2_Click()EndEndSubPrivateSubForm_Load()Form1.WindowState=vbMa*imized‘使運行時窗體最大化EndSub準備界面form2PrivateSubmand1_Click()LoadForm3Form3.Show[vbModal]EndSubPrivateSubmand2_Click()Form2.HideEndSubPrivateSubForm_Load()Form2.WindowState=vbMa*imizedLabel1.Caption="系統(tǒng)將隨機產(chǎn)生一個數(shù)字不同的四位數(shù)，你可以根據(jù)提示糾正自己的錯誤但你只有十次時機！準備好了嗎？"EndSub開場游戲界面form3Dima1AsInteger,a2AsInteger,a3AsInteger,a4AsIntegerPrivateSubmand1_Click()Randomize'初始化隨機數(shù)發(fā)生器Label1.Caption=0&"A"&0&"B"a1=Int(10*Rnd)'產(chǎn)生隨機數(shù)Doa2=Int(10*Rnd)LoopWhilea2=a1Doa3=Int(10*Rnd)LoopWhilea3=a1Ora3=a2Doa4=Int(10*Rnd)LoopWhilea4=a1Ora4=a2Ora4=a3Label2.Caption="已經(jīng)隨機產(chǎn)生了一個數(shù)字〔0~9〕不同的四位數(shù)！猜猜是什么數(shù)吧！"Te*t1.FontSize=45'設置te*t文本框字的大小Te*t2.FontSize=45Te*t3.FontSize=45Te*t4.FontSize=45Te*t1.Ma*Length=1'定義te*t文本框能輸入的長度Te*t2.Ma*Length=1Te*t3.Ma*Length=1Te*t4.Ma*Length=1Te*t1.SetFocusEndSubPrivateSubmand3_Click()EndEndSubPrivateSubForm_Load()'使窗體最大Form3.WindowState=vbMa*imizedEndSubPrivateSubTe*t1_Change()'設置te*tchange事件，當前一個文本框輸入一個數(shù)時則下一個文本框獲得焦點IfLen(Te*t1.Te*t)=1ThenTe*t2.SetFocusEndIfEndSubPrivateSubte*t2_change()IfLen(Te*t2.Te*t)=1ThenTe*t3.SetFocusEndIfEndSubPrivateSubte*t3_change()IfLen(Te*t3.Te*t)=1ThenTe*t4.SetFocusEndIfEndSubPrivateSubmand2_Click()StaticcishuDimtmp1AsInteger,tmp2AsInteger,tmp3AsInteger,tmp4AsIntegerDimAAsInteger,BAsIntegerA=0B=0Ifcishu=9ThenMsgBo*"很遺憾！你已經(jīng)猜了10次答案是"&a1&a2&a3&a4,,"猜數(shù)字"E*itSubEndIftmp1=Val(Te*t1.Te*t)'讀取玩家輸入的數(shù)tmp2=Val(Te*t2.Te*t)tmp3=Val(Te*t3.Te*t)tmp4=Val(Te*t4.Te*t)Iftmp1=tmp2Ortmp1=tmp3Ortmp1=tmp4Then'使輸入的值不能一樣，如果一樣則給出提示MsgBo*"輸入的數(shù)字不能一樣，請重新輸入",48,"猜數(shù)字游戲"EndIfIftmp2=tmp3Ortmp2=tmp4Ortmp2=tmp1ThenMsgBo*"輸入的數(shù)字不能一樣，請重新輸入",16,"猜數(shù)字游戲"EndIfIftmp3=tmp4Ortmp3=tmp2Ortmp3=tmp1ThenMsgBo*"輸入的數(shù)字不能一樣，請重新輸入",64,"猜數(shù)字游戲"EndIfIftmp4=tmp1Ortmp4=tmp2Ortmp4=tmp3ThenMsgBo*"輸入的數(shù)不能一樣，請重新輸入",48,"猜數(shù)字游戲"EndIfcishu=cishu+1Iftmp1=a1Then'對玩家輸入的數(shù)與產(chǎn)生的隨機數(shù)進展比擬A=A+1ElseIftmp1=a2Ortmp1=a3Ortmp1=a4ThenB=B+1EndIfIftmp2=a2ThenA=A+1ElseIftmp2=a1Ortmp2=a3Orrmp2=a4ThenB=B+1EndIfIftmp3=a3ThenA=A+1ElseIftmp3=a1Ortmp3=a2Ortmp3=a4ThenB=B+1EndIfIftmp4=a4ThenA=A+1ElseIftmp4=a1Ortmp4=a2Ortmp4=a3ThenB=B+1EndIfLabel1.Caption=A&"A"&B&"B"'把比擬出的結果做出提示IfA=4ThenMsgBo*"恭喜你，你猜對了！"&"你一共猜了"&cishu&"次","猜數(shù)字游戲"EndIfEndSubPrivateSubte*t1_Click()'te*tclick單擊事件，清空文本框的數(shù)據(jù)Te*t1.Te*t=""EndSubPrivateSubte*t2_Click()Te*t2.Te*t=""EndSubPrivateSubte*t3_Click()Te*t3.Te*t=""EndSubPrivateSubte*t4_Click()Te*t4.Te*t=""EndSub運行結果進入界面form1準備界面form2開場游戲界面form4課程設計體會實踐能夠檢驗是否收獲。通過本次課程設計我不僅對課本知識加深了印象和了解，也明白了如何把理論知識運用到現(xiàn)實中實踐，同時也學到了許多有關vb的課外的知識比方在查閱資料過程中我學會了產(chǎn)生隨機數(shù)的多種方法：一次性隨機產(chǎn)生四位數(shù)；每次隨機產(chǎn)生一個數(shù)組合成四位數(shù)，可定義動態(tài)數(shù)組也可定義幾個變量去實現(xiàn)。在定