vb猜数字游戏课程设计报告
vb 猜数字游戏课程设计报告
猜数字游戏
猜数字游戏实验报告
课程设计的目的
课程设计为学生提供了一个既能动手又能动脑,独立实践的机会, 将课本上的vb 课理论知识和实践有机的结合起来, 锻炼学生的分析解决实际问题的能力、提高运用vb 应用的能力。课程设计题目和简介
猜数字游戏, 游戏开始时系统将随机产生一个数字不同的四位
数,玩家根据游戏提示纠正答案，1A0B,表示猜中一个数字且
位置正确,2A2B, 有两个数字正确且位置正确有两个数字正确
当位置不正确, 输入的数字不能相同也不能为空而且只有十次
机会。
设计说明
开始游戏Randomize 产生随机
用户输入值确定
比较随机值与输入值给出提示
退出游戏
设计思路
首先要创建三个窗口,form1 是进入游戏界面,form2 是游
戏运行界面,form3 是游戏规则介绍。
1
2
用了一个方法 代码为:
Private sub form _un load(Ca ncle as in teger)
Form1.show
End sub
这样子就防止之前那种情况的发生了
下一步开始创建控件
现在form1中创建游戏进入界面，根据游戏需要应该创建3个comman （控件,和 一个label 控件
1 W , & 噸号? -? r
扑E”一 tw 齐— \\ ff- ■ ?E?3 *1 ―
IN ' r
其次要按要求实现三个窗口的 show 与hide 在代码为
Private Sub comma nd*_click()
form*show
Form*.hide
End sub
在form3中我没有用这种方法 ,因为在form3中又关闭按钮,如果想之前一样的 话，按关闭按钮就直接退出游戏了 ,而我想要实现 是再次回到游戏进入界面，所以有 ■ -JTTJr
3
P rivate Sub Form_Load()
欢迎进入猜数字游戏
丽'1 % T-mii -「vr%
然后开始编写代码 代码如下
Private Sub Comma nd1_Click()
Forml.Hide
form2.Show
End Sub
Private Sub Comma nd2_Click()
Form1.Hide
Form3.Show
End Sub
Private Sub Comma nd3_Click()
End
End Sub
Label1.BackStyle = 0 把label1的背景方式改为透明 End Sub
退轴戏
当然也可以在form1的界面上加上自己喜欢的图片,需要在picture中加载
4
P rivate Sub Form_Load()
样子就不会有最大最小化按钮了剩下的就编写代码了P rivate Sub
Form_Load()
Labell.BackStyle = 0
End Sub
Form1.Show
End Sub
Private Sub Form_unl oad(Ca ncle As In teger)
Private Sub Command1_Click() 在点击开始按钮之后 comman (是可见的,可使 也可以在form3界面中加载自己喜欢的图片
至统雅a 帆产i 一丰費序不同的四位 数，你可以根捱提示纠正&己的捲咲 但《：只有十丈札会！進备好T 吗？
也就是说要创建4个comma nd 空件和4个text 控件2个label 控件 然后开始 编写代码
Dim a1 As In teger, a2 As In teger, a3 As In teger, a4 As In teger
P ublic cishu As In teger
用的
Comma nd2.E nabled = True
F 面的也是这个程序中最重要的程序
游戏的编写 首先应该创建控件
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 = Illi
Text2.Text = Illi
Text3.Text = Illi
Text4.Text = Illi
Randomize
Label2.Caption = 0 & "A" & 0 & "B"