VB猜数字游戏课程设计报告.pdfVIP

猜数字游戏 猜数字游戏实验报告 课程设计的目的 课程设计为学生提供了一个既能动手又能动脑，独立实践的机 会，将课本上的vb课理论知识和实践有机的结合起来，锻炼学生的 分析解决实际问题的能力、提高运用vb应用的能力。 课程设计题目和简介 猜数字游戏；游戏开始时系统将随机产生一个数字不同的四位 数，玩家根据游戏提示纠正答案 （1A0B：表示猜中一个数字且 位置正确；2A2B：有两个数字正确且位置正确有两个数字正确 当位置不正确）输入的数字不能相同也不能为空而且只有十次 机会。 设计说明 开始游戏 Randomize产生随机数 用户输入值 确定 比较随机值与输入值 给出提示 退出游戏 设计思路 首先要创建三个窗口，form1是进入游戏界面，form2是游 戏运行界面，form3是游戏规则介绍。 1 其次要按要求实现三个窗口的show与hide在代码为 Private Sub command*_click() form*.show Form*.hide End sub 在form3 中我没有用这种方法，因为在form3 中又关闭按钮， 如果想之前一样的话，按关闭按钮就直接退出游戏了，而我想要实现 是再次回到游戏进入界面，所以有用了一个方法 代码为: Private sub form_unload(Cancle as integer) Form1.show End sub 这样子就防止之前那种情况的发生了 下一步开始创建控件 现在form1 中创建游戏进入界面，根据游戏需要应该创建3个 command控件，和一个 label控件 2 然后开始编写代码 代码如下 Private Sub Command1_Click() Form1.Hide form2.Show End Sub Private Sub Command2_Click() Form1.Hide Form3.Show End Sub Private Sub Command3_Click() End End Sub 3 Private Sub Form_Load() Label1.BackStyle 0 把 label1的背景方式改为透明 End Sub 当然也可以在 form1 的界面上加上自己喜欢的图片，需要在 picture 中加载 然后在form3 中设计游戏规则界面 这个界面中我把最大化与最化省去了，然后把关闭按钮编写了一下 在form3 的属性栏中吧minbutton和maxbutton的属性改为false 这样子就不会有最大最小化按钮了剩下的就编写代码了 4 Private Sub Form_Load() Label1.BackStyle 0 End Sub Private Sub Form_unload(Cancle As Integer) Form1.Show End Sub 也可以在form3界面中加载自己喜欢的图片 下面的也是这个程序中最重要的程序——游戏的编写 首先应该创建控件