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

合集下载
  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

猜数字游戏

猜数字游戏实验报告

课程设计的目的

课程设计为学生提供了一个既能动手又能动脑,独立实践的机会,将课本上的vb课理论知识和实践有机的结合起来,锻炼学生的分析解决实际问题的能力、提高运用vb应用的能力。

课程设计题目和简介

猜数字游戏;游戏开始时系统将随机产生一个数字不同的四位数,玩家根据游戏提示纠正答案(1A0B:表示猜中一个数字且位置正确;2A2B:有两个数字正确且位置正确有两个数字正确当位置不正确)输入的数字不能相同也不能为空而且只有十次机会。

设计说明

设计思路

首先要创建三个窗口,form1是进入游戏界面,form2是游戏运行界面,form3是游戏规则介绍。

其次要按要求实现三个窗口的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控件

然后开始编写代码代码如下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

Private Sub Form_Load()

Label1.BackStyle = 0 把label1的背景方式改为透明End Sub

当然也可以在form1的界面上加上自己喜欢的图片,需要在picture 中加载

然后在form3中设计游戏规则界面

这个界面中我把最大化与最化省去了,然后把关闭按钮编写了一下在form3的属性栏中吧minbutton和maxbutton的属性改为false这

样子就不会有最大最小化按钮了剩下的就编写代码了Private Sub Form_Load()

Label1.BackStyle = 0

End Sub

Private Sub Form_unload(Cancle As Integer) Form1.Show

End Sub

也可以在form3界面中加载自己喜欢的图片

下面的也是这个程序中最重要的程序——游戏的编写首先应该创建控件

也就是说要创建4个command控件和4个text控件2个label控件然后开始编写代码

Dim a1 As Integer, a2 As Integer, a3 As Integer, a4 As Integer Public cishu As Integer

Private Sub Command1_Click() 在点击开始按钮之后command 是可见的,可使用的

Command2.Enabled = True

Command3.Enabled = True

Randomize 随机产生四个不同的数字

Label2.Caption = 0 & "A" & 0 & "B"

a1 = Int(10 * Rnd)

Do

a2 = Int(10 * Rnd)

Loop While a2 = a1

Do

a3 = Int(10 * Rnd)

Loop While a3 = a1 Or a3 = a2

Do

a4 = Int(10 * Rnd)

Loop While a4 = a1 Or a4 = a2 Or a4 = a3

Label1.Caption = "已经随机产生了一个数字(0~9)不同的四位数!猜猜是什么数吧!"

End Sub

Private Sub Command2_Click() 重新开始游戏的设置cishu = 0

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Randomize

Label2.Caption = 0 & "A" & 0 & "B"

a1 = Int(10 * Rnd)

Do

a2 = Int(10 * Rnd)

Loop While a2 = a1

Do

a3 = Int(10 * Rnd)

Loop While a3 = a1 Or a3 = a2

Do

a4 = Int(10 * Rnd)

Loop While a4 = a1 Or a4 = a2 Or a4 = a3

Label1.Caption = "已经随机产生了一个数字(0~9)不同的四位数!猜猜是什么数吧!"

End Sub

Private Sub Command4_Click()

End

End Sub

Private Sub Form_Load() 可以使command2和command3点击开始游戏按扭之前是灰色的不可用的

Command2.Enabled = False

相关文档
最新文档