VB课程设-55-.docVIP

掷骰子游戏设计报告 学院 学院 班级 学号 姓名 成绩 一、设计思路 1.要达到的目的 ①培养学生综合利用VB语言进行程序设计的能力，主要是培养学生综合使用基本控件的、子过程和控件数 组等操作能力。 ②设计的掷骰子程序可以让您在休闲时间享受猜点数的乐趣。 ③设计的掷骰子游戏程序能输入点数，也可以选择点数进行猜数。 2.关键问题的解决 ①使用Timer事件用于随机产生点数。 ②使用Shape控件数组，通过改变其Visible属性显示点数图案，通过改变其Fillcolor改变点数的颜色。 ③使用API函数SetCursor为Label添加手形光标。 ④通过对Command的Caption属性判断和更改，使一个Command响应不同的事件。 二、模块之间的调用关系，或程序流程图 部分程序关键源代码及注释 Public num As Integer, vn As Integer Private Sub Cmd_Click() Select Case Cmd.Caption Case 开始 Cmd.Caption = 停止 定义点击cmd按钮之后的caption属性 Timer1.Enabled = True 触发timer1 Label2 = 产生的点数 确定label内文字信息 LblNumber2 = 正在产生 确定lblnumber2内文字信息 LblResult = 正在产生点数，请稍后... 确定lblresult内的文字信息 Case 停止 Cmd.Caption = 重新输入 定义点击停止按钮之后的cmd的caption属性 Timer1.Enabled = False 使timer1停止 LblNumber2 = vn 点 使lblnumber中显示产生的点数 Label2 = 产生的点数 确定label2显示的文字信息 If vn = num Then LblResult = 恭喜，您猜对了。 Else LblResult = 您猜错了。 利用if语句定义lblnumber的文字信息 Case 重新输入 FrmInput.Show 定义点击重新输入按钮后的事件 FrmInput.TxtInput.SelStart = 0 FrmInput.TxtInput.SelLength = Len(FrmInput.TxtInput.Text) FrmInput.TxtInput.SetFocus Unload Me End Select End Sub Private Sub Cmd1_Click() Select Case Label3.Caption Case 点数输入 If Int(Val(TxtInput)) 0 And Int(Val(TxtInput)) 7 Then 定义输入字数的范围(1-6) FrmMain.Show 使frmmain显示 Else Label3.Caption = 错误 确定label3的caption属性 Label1.Caption = 您输入的数据不符合规定，请重新输入。 确定label1的caption属性 TxtInput.Visible = False 使texinput隐藏 For i = 0 To 5 LblClick(i).Visible = False Next Cmd1.Caption = 重新输入 定义cmd1的caption属性 End If Case 错误 Cmd1