vb猜数字游戏课程设计报告

.z......资料...东华理工大学VB课程设计题目：猜数字游戏班级：10410111**：1041011112：石头指导教师：吴强课程设计的目的课程设计为学生提供了一个既能动手又能动脑，独立实践的时机，将课本上的vb课理论知识和实践有机的结合起来，锻炼学生的分析解决实际问题的能力、提高运用vb应用的能力。课程设计题目和简介猜数字游戏；游戏开场时系统将随机产生一个数字不同的四位数，玩家根据游戏提示纠正答案〔1A0B：表示猜中一个数字且位置正确；2A2B：有两个数字正确且位置正确有两个数字正确当位置不正确〕输入的数字不能一样也不能为空而且只有十次时机。设计说明RRandomize产生随机数用户输入值比拟随机值与输入值给出提示确定退出游戏开场游戏源代码进入界面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="系统将随机产生一个数字不同的四位数，你可以根据提示纠正自己的错误但你只有十次时机！准备好了吗？"EndSub开场游戏界面form3Dima1AsInteger,a2AsInteger,a3AsInteger,a4AsIntegerPrivateSubmand1_Click()Randomize'初始化随机数发生器Label1.Caption=0&"A"&0&"B"a1=Int(10*Rnd)'产生随机数Doa2=Int(10*Rnd)LoopWhilea2=a1Doa3=Int(10*Rnd)LoopWhilea3=a1Ora3=a2Doa4=Int(10*Rnd)LoopWhilea4=a1Ora4=a2Ora4=a3Label2.Caption="已经随机产生了一个数字〔0~9〕不同的四位数！猜猜是什么数吧！"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事件，当前一个文本框输入一个数时则下一个文本框获得焦点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*"很遗憾！你已经猜了10次答案是"&a1&a2&a3&a4,,"猜数字"E*itSubEndIftmp1=Val(Te*t1.Te*t)'读取玩家输入的数tmp2=Val(Te*t2.Te*t)tmp3=Val(Te*t3.Te*t)tmp4=Val(Te*t4.Te*t)Iftmp1=tmp2Ortmp1=tmp3Ortmp1=tmp4Then'使输入的值不能一样，如果一样则给出提示MsgBo*"输入的数字不能一样，请重新输入",48,"猜数字游戏"EndIfIftmp2=tmp3Ortmp2=tmp4Ortmp2=tmp1ThenMsgBo*"输入的数字不能一样，请重新输入",16,"猜数字游戏"EndIfIftmp3=tmp4Ortmp3=tmp2Ortmp3=tmp1ThenMsgBo*"输入的数字不能一样，请重新输入",64,"猜数字游戏"EndIfIftmp4=tmp1Ortmp4=tmp2Ortmp4=tmp3ThenMsgBo*"输入的数不能一样，请重新输入",48,"猜数字游戏"EndIfcishu=cishu+1Iftmp1=a1Then'对玩家输入的数与产生的随机数进展比拟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&"次","猜数字游戏"EndIfEndSubPrivateSubte*t1_Click()'te*tclick单击事件，清空文本框的数据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课程设计体会实践能够检验是否收获。通过本次课程设计我不仅对课本知识加深了印象和了解，也明白了如何把理论知识运用到现实中实践，同时也学到了许多有关vb的课外的知识比方在查阅资料过程中我学会了产生随机数的多种方法：一次性随机产生四位数；每次随机产生一个数组合成四位数，可定义动态数组也可定义几个变量去实现。在定