计算机程序设计课程设计-猜数字游戏.doc

计算机程序设计课程设计说明书题 目：猜数字游戏系别班级：15级金融系本科一班小组成员： 2016年 6 月 6 日河北金融学院计算机程序设计课程设计说明书目 录1 系统设计11.1 选题目的11.2 系统主要功能12 设计心得62.1 课程设计收获62.2 遇到问题及解决方法63 小组成员分工74 附录71 系统设计1.1 选题目的课程设计为我们提供了一个既能动手又能动脑，独立实践的机会，将课本上的VB课理论知识和实践有机的结合起来，锻炼我们的分析解决实际问题的能力、提高运用VB应用的能力。1.2 系统主要功能猜数字游戏：游戏开始时系统将随机产生一个数字不同的四位数，玩家根据游戏提示纠正答案（1A0B：表示猜中一个数字且位置正确；2A2B有两个数字正确且位置正确，有两个数字正确当位置不正确）输入的数字不能相同也不能为空而且只有十次机会。图1-1 软件开始界面 图2-1程序运行界面 图2-2 软件运行界面 图2-3程序运行界面 图3-1游戏要求122 设计心得2.1 课程设计收获实践能够检验是否收获。通过本次课程设计我们不仅对课本知识加深了印象和了解，也明白了如何把理论知识运用到现实中实践，同时也学到了许多有关VB的课外的知识。比如在查阅资料过程中我们学会了产生随机数的多种方法：一次性随机产生四位数；每次随机产生一个数组合成四位数，可定义动态数组也可定义几个变量去实现。在定义计数变量时把它设为静态变量以及如何使指定的对象什么时候获得焦点等。在完成课程设计过程中锻炼了我们分析解决实际问题的能力。开始时并不是很顺利对课本内的知识掌握的不太好，很多知识点被遗忘、不清楚，也暴露出了对VB操作环境的不熟悉，和对一些控件的不熟以及对一些事件属性不了解，但通过这次课程设计大半部分出现的问题都得到了解决。设计这款游戏让我们更加了解了VB开发环境有用性和前景性，更加培养了我们对学习Visual Basic 程序设计的热情和信念。2.2 遇到问题及解决方法问题：由计算机随机生成四位不重复的数字，然后根据游戏者猜的数字，向其提供反馈信息：正确地数字有几个以及数字正确而且位置正确的有几个，游戏者根据这些信息重新猜一个数字，如此反复直到猜中为止。解决方法:根据问题描述，可以将问题解决分为两部分:（1）生成各位不重复的四位数。（2）对游戏者的输入进行判断，并反馈提示信息。3 小组成员分工1. 孟瑶实现Command1和Command2,全程监控并编写课程设计说明书。2. 姚美娜实现Command3和Command2,编写部分课程设计说明书及程序代码。3. 李月实现Command3和Command1，全程监控编写代码以及程序的后期设计。4. 张昊馨实现Command3和Command4，编写部分课程设计说明书并处理程序的后期设计。4 附录Form1Private Sub Command1_Click() Form1.Hide Form2.ShowEnd SubPrivate Sub Command2_Click() Form1.Hide Form3.ShowEnd SubPrivate Sub Command3_Click() EndEnd SubForm2Dim a1 As Integer, a2 As Integer, a3 As Integer, a4 As IntegerPublic cishu As IntegerPrivate Sub Command1_Click()Command2.Enabled = TrueCommand3.Enabled = TrueLabel2.Caption = 0 & A & 0 & Ba1 = Int(10 * Rnd)Do a2 = Int(10 * Rnd)Loop While a2 = a1Do a3 = Int(10 * Rnd)Loop While a3 = a1 Or a3 = a2Do a4 = Int(10 * Rnd)Loop While a4 = a1 Or a4 = a2 Or a4 = a3Label1.Caption = 已经随机产生了一个数字（0-9）不同的四位数！猜猜是什么数吧！End SubPrivate Sub Command2_Click()cishu = 0Text1.Text = Text2.Text = Text3.Text = Text4.Text = Randomize Label2.Caption = 0 & A & 0 & B a1 = Int(10 * Rnd)Do a2 = Int(10 * Rnd)Loop While a2 = a1Do a3 = Int(10 * Rnd)Loop While a3 = a1 Or a3 = a2Do a4 = Int(10 * Rnd)Loop While a4 = a1 Or a4 = a2 Or a4 = a3Label1.Caption = 已经随机产生了一个数字（0-9）不同的四位数!猜猜是什么数吧!End SubPrivate Sub Command3_Click()Dim tmp1 As Integer, tmp2 As Integer, tmp3 As Integer, tmp4 As IntegerDim A As Integer, B As Integer A = 0 B = 0If cishu = 10 Then MsgBox 很遗憾!你已经猜了10次答案是 & a1 & a2 & a3 & a4, , 猜数字 Exit SubEnd Iftmp1 = Val(Text1.Text)tmp2 = Val(Text2.Text)tmp3 = Val(Text3.Text)tmp4 = Val(Text4.Text)If tmp1 = tmp2 Or tmp1 = tmp3 Or tmp1 = tmp4 Then MsgBox 输入的数字不能相同,请重新输入, 48, 猜数字游戏 End IfIf tmp2 = tmp3 Or tmp2 = tmp4 Or tmp2 = tmp1 Then MsgBox 输入的数字不能相同,请重新输入, 16, 猜数字游戏 End IfIf tmp3 = tmp4 Or tmp3 = tmp2 Or tmp3 = tmp1 Then MsgBox 输入的数字不能相同,请重新输入, 64, 猜数字游戏 End If If tmp4 = tmp1 Or tmp4 = tmp2 Or tmp4 = tmp3 Then MsgBox 输入的数字不能相同,请重新输入, 48, 猜数字游戏 End If cishu = cishu + 1If tmp1 = a1 Then A = A + 1 ElseIf tmp1 = a2 Or tmp1 = a3 Or tmp1 = a4 Then B = B + 1End IfIf tmp2 = a2 Then A = A + 1 ElseIf tmp2 = a1 Or tmp2 = a3 Or tmp2 = a4 Then B = B + 1End IfIf tmp3 = a3 Then A = A + 1 ElseIf tmp3 = a1 Or tmp3 = a2 Or tmp3 = a4 Then B = B + 1End IfIf tmp4 = a4 Then A = A + 1 ElseIf tmp4 = a1 Or tmp4 = a2 Or tmp4 = a3 Then B = B + 1End If Label2.Caption = A & A & B & BIf A = 4 Then MsgBox 恭喜你,你猜对了! & 你一共猜了 & cishu & 次, , 猜数字游戏End IfEnd SubPrivate Sub Command4_Click()EndEnd SubPrivate Sub Form_Load()Command2.Enabled = FalseCommand3.Enabled = FalseLabel1.BackStyle = 0Label2.BackStyle = 0End SubPrivate Sub Text1_Change()If Len(Text1.Text) = 1 Then Text2.SetFocusEnd IfEnd SubPrivate Sub Text1_Click()Text1.Text = End SubPrivate Sub Text2_Change()If Len(Text2.Text) = 1 Then Text3.SetFocusEnd IfEnd SubPrivate Sub Text2_Click()Text2.Text = End SubPrivate Sub Text3_Change()If Len(Text3