vb编写猜数字小游戏教程.pdfVIP

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 文本框里面输入