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

【vb|vb猜数字游戏课程设计报告】2、示退出游戏设计思路首先要创建三个窗口 ,form1 是进入游戏界面 ,form2 是游戏运行界面 ,form3 是游戏规则介绍 。
1 W, & 噸号- r扑E”一 tw齐 ff- E3 -JTTJr*1 IN r其次要按要求实现三个窗口的show与hide在代码为Private Sub comma nd*_click()form*showForm*.hideEnd sub在form3中我没有用这种方法,因为在form3中又关闭按钮,如果想之前一样的话 ， 按关闭按钮就直接退出游戏了,而我想要实现 是再次回到游戏进入界面 ， 所以有用了一个方法 代码为:Private sub form _un load( 。

3、Ca ncle as in teger)Form1.showEnd sub这样子就防止之前那种情况的发生了下一步开始创建控件现在form1中创建游戏进入界面 ， 根据游戏需要应该创建3个comman（控件,和 一个label控件1口黑环论欢迎进入猜数字游戏退轴戏丽1% T-mii -vr%然后开始编写代码 代码如下Private Sub Comma nd1_Click()Forml.Hideform2.ShowEnd SubPrivate Sub Comma nd2_Click()Form1.HideForm3.ShowEnd SubPrivate Sub Comma nd3_Click()End 。

4、End SubLabel1.BackStyle = 0 把label1的背景方式改为透明 End Sub当然也可以在form1的界面上加上自己喜欢的图片,需要在picture中加载3P rivate Sub Form_Load()然后在form3中设计游戏规则界面__srS游戏亂则这个界面中我把最大化与最化省去了， 然后把关闭按钮编写了一下 在form3的 属性栏中吧min button和maxbutton的属性改为false 这样子就不会有最大最小化按钮了剩下的就编写代码了P rivate SubForm_Load()Labell.BackStyle = 0End SubForm1.Show 。

5、End SubPrivate Sub Form_unl oad(Ca ncle As In teger)也可以在form3界面中加载自己喜欢的图片 I：IF面的也是这个程序中最重要的程序游戏的编写首先应该创建控件至统雅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 tegerP ublic cishu As In teger用的Comma 。

6、 nd2.E nabled = TrueCommand3.Enabled = True Randomize 随机产生四个不同的数字Label2.Caption = 0 & A & 0 & Ba1 = Int(10 * Rnd)Doa2 = Int(10 * Rnd)Loop While a2 = a1Doa3 = Int(10 * Rnd)Loop While a3 = a1Or a3 = a2Doa4 = Int(10 * Rnd)Loop While a4 = a1Or a4 = a2 Or a4 = a3Label1.Caption = 已经随机产生了一个数字 ,09, 不同的四位数 ， 猜 。

7、猜是什么数吧 ，End SubPrivate Sub Command2_Click() 重新开始游戏的设置cishu = 0Text1.Text =IlliText2.Text =IlliText3.Text =IlliText4.Text =IlliRandomizeLabel2.Caption = 0 & A & 0 & Ba1 = Int(10 * Rnd)Doa2 = Int(10 * Rnd)Loop While a2 = a1Doa3 = Int(10 * Rnd)Loop While a3 = a1Or a3 = a2Doa4 = Int(10 * Rnd)Loop While。

8、a4 = a1Or a4 = a2 Or a4 = a3Label1.Caption = 已经随机产生了一个数字 ,09, 不同的四位数 ， 猜猜是什么数吧 ，End SubPrivate Sub Command4_Click()EndEnd SubPrivate Sub Form_Load() 可以使comma nd却comma nd点击开始游戏按扭之前是灰色的不可用的Command2.Enabled = FalseCommand3.Enabled = FalseLabel1.BackStyle = 0Label2.BackStyle = 0 End SubPrivate Sub Text1_C 。

9、hange() Text 控件中焦点的设置If Len(Text1.Text) = 1 ThenText2.SetFocusEnd IfEnd SubPrivate Sub text2_change()If Len(Text2.Text) = 1 ThenText3.SetFocusEnd IfEnd SubPrivate Sub text3_change()If Len(Text3.Text) = 1 ThenText4.SetFocusEnd IfEnd SubPrivate Sub Command3_Click() 猜数字真确与否的代码Dim tmp1 As Integer, tmp2。

10、As Integer, tmp3 As Integer,tmp4 As IntegerDim A As Integer, B As IntegerIf cishu = 9 ThenB = 0猜数MsgBox 很遗憾， 你已经猜了 10次答案是 & a1 & a2 & a3 & a4, , 字Exit SubEnd Iftmp1 = Val(Text1.Text)tmp2 = Val(Text2.Text)tmp3 = Val(Text3.Text)tmp4 = Val(Text4.Text)If tmp1 = tmp2 Or tmp1 = tmp3 Or tmp1 = tmp4 ThenMsg 。

11、Box 输入的数字不能相同 ,请重新输入 , 48, 猜数字游戏End IfIf tmp2 = tmp3 Or tmp2 = tmp4 Or tmp2 = tmp1 ThenMsgBox 输入的数字不能相同 ,请重新输入 , 16, 猜数字游戏10End IfIf tmp3 = tmp4 Or tmp3 = tmp2 Or tmp3 = tmp1 ThenMsgBox 输入的数字不能相同 ,请重新输入 , 64, 猜数字游戏End IfIf tmp4 = tmp1 Or tmp4 = tmp2 Or tmp4 = tmp3 ThenMsgBox 输入的数不能相同 , 请重新输入 , 48, 猜 。

12、数字游戏End If cishu = cishu + 1If tmp1 = a1 ThenElseIf tmp1 = a2 Or tmp1 = a3 Or tmp1 = a4 ThenEnd IfIf tmp2 = a2 ThenElseIf tmp2 = a1 Or tmp2 = a3 Or rmp2 = a4 ThenEnd IfIf tmp3 = a3 Then11ElseIf tmp3 = a1 Or tmp3 = a2 Or tmp3 = a4 ThenEnd IfIf tmp4 = a4 ThenElseIf tmp4 = a1 Or tmp4 = a2 Or tmp4 = a3。

13、ThenEnd IfLabel2.Caption = A & A & B & BIf A = 4 ThenMsgBox 恭喜你,你猜对了 ，& 你一共猜了 & cishu & 次, 猜数字游戏End IfEnd SubPrivate Sub text1_Click()设置鼠标点解 text 自动消除数字Text1.Text = End SubPrivate Sub text2_Click()Text2.Text = End SubPrivate Sub text3_Click()Text3.Text = 12End SubPrivate Sub text4_Click()Text4.Text。

14、= End Sub另外需要设置text中数字的大小和输入长度,在font属性栏中设置数字的大小, 在 maxlength 的属性栏中改为 1, 使在 text 控件中只能输入一个数字 。
做完这些,剩下的就是修饰了 , 让这个自己做好的游戏看起来更好看一些 ,就需要在各个 form 界面上加载自己喜欢的图片 , 让界面更丰富一些 , 不至于太单调 , 一样 的方法, 需要在你想添加图片的 form 控件属性栏中找到 picture 属性然后加载自己喜欢的图片 ， 需要的话再把不同位置的字体也设置一下 ， 让字体不至于进入图片中找不到运行结果进入界面formi13游戏规则form3开始游戏界面form214 。

15、系妊赫輩廿芦生一令我孑W周詢田 敕 ， 你叮以帳握提番诃疋自己的堡淡 ：a你只有I次札会r &芬商T吗？C3宵S学沪裁工姿陋n产土 了一卜S;
孑to*9）不词 的四住蚊！捨靖是倉套欽吒！课程设计体会,实践能够检验是否收获 。
通过本次课程设计我不仅对课本知识加深了印象和了解 ， 也明白了如何把理论知识运用到现实15中实践 ， 同时也学到了许多有关vb的课外的知识比如在查阅资料过程中我学会 了产生随机数的多种方法 ， 一次性随机产生四位数 ， 每次随机产生一个数组合成四位 数,可定义动态数组也可定义几个变量去实现 。
在定义计数变量时把它设为静态变量以及如何使指定的对象什么时候获得焦点等 。
在完成课程设计过程中锻炼了我分 析解决实际问题的能力 。
开始时并不是很顺利对课本内的知识掌握的不太好 , 很多 知识点被遗忘、不清楚 ,也暴露出了对 vb 操作环境的不熟悉 ,和对一些控件的不熟以及对一些事件属性不了解但通过这次课程设计大半部分出现的问题都得到了解 决 。
设计这款游戏让我更加了解了 vb 开发环境有用性和前景性更加培养了我对学 习 visual basic 程序设计的热情和信念 。

来源：(未知)

【学习资料】网址：/a/2021/0321/0021742137.html

标题：vb|vb猜数字游戏课程设计报告