vb猜数字游戏课程设计报告

《vb猜数字游戏课程设计报告》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、猜数字游戏猜数字游戏实验报告课程设计的目的课程设计为学生提供了一个既能动手又能动脑，独立实践的机会，将课本上的vb课理论知识和实践有机的结合起来，锻炼学生的分析解决实际问题的能力、提高运用vb应用的能力。课程设计题目和简介猜数字游戏；游戏开始时系统将随机产生一个数字不同的四位数，玩家根据游戏提示纠正答案（1A0B：表示猜中一个数字且位置正确；2A2B：有两个数字正确且位置正确有两个数字正确当位置不正确）输入的数字不能相同也不能为空而且只有十次机会。设计说明开始游戏Randomize产生随机数用户输入值确定比较随机值与输入

2、值给出提示退出游戏设计思路首先要创建三个窗口，form1是进入游戏界面，form2是游戏运行界面，form3是游戏规则介绍。1其次要按要求实现三个窗口的show与hide在代码为PrivateSubcommand*_click()form*.showForm*.hideEndsub在form3中我没有用这种方法，因为在form3中又关闭按钮，如果想之前一样的话，按关闭按钮就直接退出游戏了，而我想要实现是再次回到游戏进入界面，所以有用了一个方法代码为:Privatesubform_unload(Cancleasintege

3、r)Form1.showEndsub这样子就防止之前那种情况的发生了下一步开始创建控件现在form1中创建游戏进入界面，根据游戏需要应该创建3个command控件，和一个label控件2然后开始编写代码代码如下PrivateSubCommand1_Click()Form1.Hideform2.ShowEndSubPrivateSubCommand2_Click()Form1.HideForm3.ShowEndSubPrivateSubCommand3_Click()EndEndSub3PrivateSubForm_Loa

4、d()Label1.BackStyle=0把label1的背景方式改为透明EndSub当然也可以在form1的界面上加上自己喜欢的图片，需要在picture中加载然后在form3中设计游戏规则界面这个界面中我把最大化与最化省去了，然后把关闭按钮编写了一下在form3的属性栏中吧minbutton和maxbutton的属性改为false这样子就不会有最大最小化按钮了剩下的就编写代码了4PrivateSubForm_Load()Label1.BackStyle=0EndSubPrivateSubForm_unload(Can

5、cleAsInteger)Form1.ShowEndSub也可以在form3界面中加载自己喜欢的图片下面的也是这个程序中最重要的程序——游戏的编写首先应该创建控件5也就是说要创建4个command控件和4个text控件2个label控件然后开始编写代码Dima1AsInteger,a2AsInteger,a3AsInteger,a4AsIntegerPubliccishuAsIntegerPrivateSubCommand1_Click()在点击开始按钮之后command是可见的，可使用的Command2.Enabled

6、=TrueCommand3.Enabled=TrueRandomize随机产生四个不同的数字Label2.Caption=0&"A"&0&"B"a1=Int(10*Rnd)Doa2=Int(10*Rnd)LoopWhilea2=a16Doa3=Int(10*Rnd)LoopWhilea3=a1Ora3=a2Doa4=Int(10*Rnd)LoopWhilea4=a1Ora4=a2Ora4=a3Label1.Caption="已经随机产生了一个数字（0~9）不同的四位数！猜猜是什么数吧！"EndSubPrivateSubC

7、ommand2_Click()重新开始游戏的设置cishu=0Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""RandomizeLabel2.Caption=0&"A"&0&"B"a1=Int(10*Rnd)7Doa2=Int(10*Rnd)LoopWhilea2=a1Doa3=Int(10*Rnd)LoopWhilea3=a1Ora3=a2Doa4=Int(10*Rnd)LoopWhilea4=a1Ora4=a2Ora4=a3Label1.Caption="已经随

8、机产生了一个数字（0~9）不同的四位数！猜猜是什么数吧！"EndSubPrivateSubCommand4_Click()EndEndSubPrivateSubForm_Load()可以使command2和command3点击开始游戏按扭之前是灰色的不可用的Command2.Enabled=FalseCommand3