VB编写猜数游戏教程.docVIP

VB编写猜数字小游戏傻瓜教程 本人原创，只在百度文库发布，希望对想学习VB的朋友有所帮助，提高学习VB的兴趣。本文以VB6为例介绍编写一个最简单的猜数字小游戏过程，VB6在百度上很容易搜索到，本文所需要控件极少，安装一个大小只有6MB的VB6精简版就可以体验了。不敢说“抛砖引玉”，只怕抛个小砖换来个板儿砖。总之，本文重点不是从零开始学VB，主要是介绍编写这个小游戏的过程。 首先，启动VB，然后点击文件菜单，点击新建一个工程，即可出现如下界面。按照下图红色箭头的指向，鼠标在左侧工具条上拖一个文本标签、一个文本输入框、一个按钮到工程界面里边来，然后调整大小和位置大概跟下图比例差不多就行了。 　　接着，点击label标签，在右边属性窗口里调整字体大小为三号字，因为默认的字体太小了，不爽。什么？三号字还小？那你自己看着办吧，但我可要告诉你哦，等下显示的内容超出显示区域可别怪我。 　　改好了吗？本次编程就这三个控件，菜吧？现在双击工程界面的空白区域，不要点在控件上了哦。双击空白区域后，就弹出了代码编写窗口。按照下图把代码一个一个给我打上去。 都好几分钟了，打上去了吗？哦，忘了告诉你，复制下面的代码也是一样的。 代码： Dim cai As Integer 定义一个变量用来存储欲猜的数字 Private Sub Form_Load() Randomize 重设随机因子 Label1.Caption = 请填入你猜测的数字 让label1显示为空 Text1.Text = 让text1文本显示为空 Command1.Caption = 确定 让command1显示为确定 cai = Int(Rnd * 899) + 100 随机选择一个三位数作为欲猜的数字 End Sub 以上代码都做了注释，就不需要过多说明了。这里主要说明两个：一是Randomize是用来重设随机因子的，如果删除这句，那么每次运行猜的数字都是一样的，没有新鲜感了。二是int(Rnd * 899)+100的意思是让电脑随机产生一个100以上，1000以下的数字，实际上就是100-999的范围。如果你改成89和10，那么就是10-99以内的两位数，同理改成8999 1000就是1000-9999的四位数。。。。。。。等本文介绍完以后，你可以依葫芦画瓢慢慢搞。 接下来，按照上图所示，双击Command1按钮，在程序代码区给我打上图中红色区域的代码。 几分钟又过去了，打完了吗？还是那句话，复制下面的代码也是一样的。但要注意，如果你真的打代码，必须打在Private Sub Command1与End sub过程里面，不能打在外面的空白区域，否则会出错哦。 If Text1 = Then MsgBox 你还没有输入任何内容, vbQuestion, 提示: Exit Sub If Not IsNumeric(Text1.Text) Then MsgBox 你输入的不是数字, vbQuestion, 提示: Exit Sub If Val(Text1.Text) cai Then MsgBox 你猜的不正确，请重新猜, vbQuestion, 提示 Text1.Text = Else MsgBox 恭喜你，猜对啦！, vbQuestion, 提示 End End If 以上需要说明的是：前两个IF判断语句是为了判断是否输入了数字，输入的是否是非英文等其他非数字。然后下面用了Val函数，这个函数是用来将Text1填写的字符串转换为数字型，这样才能与数字型cai变量作比较，不同类型的变量不能进行直接比较。虽然你在Text1文本框里面输入的是数字，但它也是字符型的数字，并不是真正的数字（可以这样理解，我们用引号来代表字符串，那么：字符串“123”与数字123虽然显示出来都是123，但其实类型是不一样的，字符串“123”跟“ABC”是一样的类型，它不能参与运算，因为他只是录入的字符而已。），经过判断，作两手准备，一个是猜不对的情况，我们提示错误，清空刚才填写的数字，然后继续猜；另一个是猜对的情况，我们提示猜对了，然后通过END来结束程序的运行。 好啦，大功告成了。现在点击运行按钮（VB软件快捷按钮栏有个向右三角型的播放按钮）或者直接按键盘上F5键即可查看效果。。。。。。 过了八个小时，你发现终于猜对了是吧？程序停不下来，你一直猜中了，恭喜你呀！忘了告诉你，程序运行中，可以按VB软件上的方框按钮来终止程序运行，不好意思啊，害你玩的这么嗨！好了，这样就完成了一个非常简单的猜数字游戏的设计，但你明显发现了，这样去猜数字，猜中的机率有点小了，因为猜错了只会单纯的提示猜错了，并不会提示猜测的效果。如果是两位数的话，大不了猜几十次就猜出来了，但是三位数、四