Visual Basic6.0
游戏界面设计。一个好游戏当然界面也要设计得简洁合理，美观大方。打开VB程序后，新建一个工程，把form面板设置为瘦高型和计算器一样。
右击form面板空白处，选择属性窗口，把名称改成：猜数游戏（1-100整数）。
在面板上添加一个listbox控件和两个命令按钮，并且调整对齐好位置。
接下来右击list空白处，选着属性窗口，把list1换成空格，不显示名称。同样的，分别把两个按钮换名为开始和结束。这样，一个好看的游戏界面就做好了。双击开始按钮，切换到脚本页面，可以输入执行代码了。
确定猜数游戏算法。设计思路是：单击开始按钮，电脑产生随机数，然后提示输入你猜的数，太大了，太小了，都要提示，直到你猜中为止，最后还要说明你猜了几次。
如何编写代码呢？首先对代码中出现的变量要使用dim语句进行定义，本例中有三个变量，number，guess，i。然后产生一个随机数，赋值给变量number。猜的数如何随机产生呢？只要使用一个随机数生成初始化语句randomize，函数Int((n-m+1)*Rnd+m)可产生从m到n之间的随机整数。
接下来是要对输入的猜测的数进行判断，这里需要用一个循环语句：Do while...if then... else...end if loop。中间还要嵌套一层。注意，在执行循环loop语句前，要给i增加1，表示猜的次数。这些是开始的代码。
如何输入代码？双击游戏面板上的开始按钮，从第二行开始输入代码。
如何编译和调试代码？单击运行---全编译执行，如果有什么差错，就会提示你纠正，没错就运行程序。单击开始按钮，弹出输入窗口。
输入你猜想的数，单击确定，这个结果就显示在list框里。
猜中后，直接单击结束按钮结束游戏。然后单击运行---结束，完成代码测试工作，一切顺利。
单击文件---生成工程EXE，保存在桌面上，名叫猜数游戏。要玩这个游戏时，只需双击打开它，单击开始按钮，最后猜中后单击结束。
关于循环语句的用法，请看别的文章。
金笔小六原创，未经许可不可转载。