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

猜数字游戏培养综合利用VB语言进行程序设计的能力，主要是培养学生利用系统提供的标准函数进行创新设计。 用VB标准函数来完成程序的设计。 完成的程序界面要美观，能够完成游戏的整个过程Label控件显示出游戏者输入的数据，清晰明确 ⒋编辑菜单点击确定输出猜数结果 ⒌创建取消按键重新开始 ⒍多次应用循环判断，将结果输出。直到玩家猜对为止，或者重新开始游戏 二、模块之间的调用关系，或程序流程图 三、部分程序关键源代码及注释 Private Sub Cancel_Click() 点击“取消”时重新开始游戏 Dim i As CommandButton NewData For Each i In cmdNum i.Enabled = True Next mnuAns.Enabled = True Cancel.Enabled = True End Sub Private Sub OK_Click() Dim i As Long, j As Long, c As CommandButton Dim itrp As Long, itrn As Long itrp = 0 itrn = 0 iCount = iCount + 1 判断几次猜对 If NumAns = Num4 Then MsgBox 只用了 iCount 次就猜对了，真聪明。 NewData Else 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 - 1 For Each c In cmdNum c.Enabled = True Next OK.Enabled = False Num4 = Static tar_num As Integer tar_num = tar_num + 1 Text1.Text = tar_num End Sub 记录猜的总次数，达到小的创新 Sub NewData() Num4 = iCount = 0 list.Clear Dim s As String * 10, i As Long, r As Long s = 2137405869 For i = 1 To 10 r = Fix(Rnd * 10 - 0.01) + 1 s = Left(s, r - 1) Right(s, 10 - r) Mid(s, r, 1) Next For i = 1 To 10 r = Fix(Rnd * 10 - 0.01) + 1 s = Right(s, 10 - r) Mid(s, r, 1) Left(s, r - 1) Next r = Int(Rnd * 7 - 0.01) + 1 NumAns = Mid(s, r, 4) End Sub 四、设计方案的完善及目前存在的问题 ㈠设计方案要完善的地方 ⒈应该可以创建一个记时的控件，并且增加记分功能 ⒉还应该限制猜的次数，本次设计限制了次数 ⒊适当增加些动画效果，使游戏富有娱乐性 ㈡目前存在的问题 ⒈不可避免的存在一些错误，语句改不完善，但不影响程序的运行 ⒉编写程序的时候有时出错 ，需经过反复改正。 ⒊虽然有记总的次数的功能，但没有确定的记分程序 五、本次设计的收获及心得体会 通过这次设计使我感到对VB掌握的不足和对控件认识的不足，但这次设计一方面补充了我这方面知识，也为更高层次的了解奠定了基础。也为二级考试进行了复习，收获了许多。 六、对该题目和VB设计的意见和建议 ㈠对该题目的意见和建议 ⒈应该提供