VB课程设-27-063542-猜数字游戏设计报告.doc

河北工业大学课程设计报告(VB) 编号：27猜数字游戏设计报告学院 能环 班级 建环C061 学号 063542 姓名 孙思前 成绩 一、设计思路要达到的目的培养综合利用VB语言进行程序设计的能力，主要是培养学生利用系统提供的标准函数进行创新设计。要求用菜单来开始程序点击确定检测结果点击取消重新进行游戏。用VB标准函数来完成程序的设计。完成的程序界面要美观，能够完成游戏的整个过程。关键问题的解决计算机随机生成四位不重复的数建立一个num数组,使玩家按键调出数字通过创建3个Label控件显示出游戏者输入的数据，清晰明确编辑菜单点击确定输出猜数结果创建取消按键重新开始多次应用循环判断，将结果输出。直到玩家猜对为止，或者重新开始游戏计算机随机分步生成数字模块二、模块之间的调用关系，或程序流程图玩家点键猜字点击确定后继续猜字点击确定判断猜字是否正确多次分步判断点击取消重新游戏，记总的次数三、部分程序关键源代码及注释Private Sub Cancel_Click() 点击“取消”时重新开始游戏Dim i As CommandButtonNewDataFor Each i In cmdNum i.Enabled = TrueNext mnuAns.Enabled = TrueCancel.Enabled = TrueEnd Sub Private Sub OK_Click()Dim i As Long, j As Long, c As CommandButtonDim itrp As Long, itrn As Long itrp = 0itrn = 0iCount = iCount + 1 判断几次猜对If NumAns = Num4 Then MsgBox 只用了 & iCount & 次就猜对了，真聪明。 NewDataElse For i = 1 To 4 If Mid(NumAns, i, 1) = Mid(Num4, i, 1) Then itrp = itrp + 1 For j = 1 To 4 If Mid(NumAns, i, 1) = Mid(Num4, j, 1) Then itrn = itrn + 1 Next Next itrn = itrn - itrp Label1.Caption = itrp & R & itrn & F 输入四位不重复的数与计算机给出的数作对比，如果与计算机给出的数的位置相同数字相同，那么将会是1R，如果数字相同而位置相不同，将会显示1F list.AddItem Num4 & & Label1.Caption list.ListIndex = list.ListCount - 1For Each c In cmdNum c.Enabled = TrueNextOK.Enabled = FalseNum4 = Static tar_num As Integer tar_num = tar_num + 1 Text1.Text = tar_numEnd Sub记录猜的总次数，达到小的创新Sub NewData()Num4 = iCount = 0list.ClearDim s As String * 10, i As Long, r As Longs = 2137405869For i = 1 To 10 r = Fix(Rnd * 10 - 0.01) + 1 s = Left(s, r - 1) & Right(s, 10 - r) & Mid(s, r, 1)NextFor i = 1 To 10 r = Fix(Rnd * 10 - 0.01) + 1 s = Right(s, 10 - r) & Mid(s, r, 1) & Left(s, r - 1)Nextr = Int(Rnd * 7 - 0.01) + 1NumAns = Mid(s, r, 4)End Sub四、设计方案的完善及目前存在的问题设计方案要完善的地方应该可以创建一个记时的控件，并且增加记分功能还应该限制猜的次数，本次设计限制了次数适当增加些动画效果，使游戏富有娱乐性目前存在的问题不可避免的存在一些错误，语句改不完善，但不影响程序的运行编写程序的时候有时出错 ，需经过反复改正。 虽然有记总的次数的功能，但没有确定的记分程序 五、本次设计的收获及心得体会通过这次设计使我感到对VB掌握的不足和对控件认识的不足，但这次设计一方面补充了我这方面知识，也为更高层次的了解奠定了基础。也为二级考试进行了复习，收获了许多。六、对该题目和VB设计的意见和建议对该题目的意见和建议应该提供一些关于推断输入正确错误的基本原理方法。说明过于简单，并缺少素材，使我们的设计在思路上只能以自我的认识来完成设计，缺乏系统性。数学判断的逻辑性很强，需要给指出