天极传媒：天极网全国分站
您现在的位置： >>
用VB6.0开发猜数字小游戏
　　随着Windows95 and 98的流行,越来越多的人加入程序设计的队伍之中。以前，Windows程序设计是那些训练有素的专业程序设计者才会涉足的神秘领域，几乎所有的Windows程序都是用C/C＋＋语言编写的，这对大部分程序设计者来说，要想高效迅速地编写出具有一定功能的Windows程序就不是一件容易的事情了。
　　1991年，公司首次推出了 for Windows,从此，人们不用C/C＋＋或汇编就可以编写Windows程序了。到目前为止，我认为在所有的Windows程序设计工具中，Visual Basic 是最方便的，它以一种全新的思想让程序员快捷和高效地设计出Windows程序。目前，Visual Basic 的最高版本为6.0，本文讲述用运行于Win95/98 上的VB6.0来开发一个猜数字的小游戏。
　　首先说一说猜数字这个游戏的玩法，一开始会随机产生一个不重复的四位数，你要输入四位不重复的数与计算机给出的数作对比，如果与计算机给出的数的位置相同数字相同，那么将会是1A，如果数字相同而位置相不同，将会显示1B。例如：计算机的随机数字为：1234 ，我猜的数字为：1356 ，那么这时计算机会给你提示为：1A1B，也就是说，你猜的数字中，有一位数字是猜对的，而且数字位置都对，所以显示为1A；还有一个数字也猜对了，但是位置不对，所以显示为1B。就这些了，看谁猜的次数少。
　　首先在Form中加入一个CommandButtion控件，在Command1上点击右键，选择复制，在窗体上点击鼠标右键，选择粘贴在窗体上粘贴出九个Command1,此时出现对话框问你要不要创建控件数组，在此选择是。然后再加入两个CommandButtion控件，一个ListBox、一个Frame、一个Label 。设置窗体的Caption属性为“猜一猜”、BorderStyle为1－Fixed Single、控件数组的Captin分别为0、1、2、3、4、5、6、7、8、9，Command2的Caption为“确定"，Command3的Caption为“取消"，Frame1的Caption为“提示："，Label1的Cpation为“0A0B"。然后选择菜单编辑器编辑菜单为：游戏、新游戏、显示答案、结束游戏，她们的Name属性分别为：Game、New、View、End。好了，其余属性使用缺省的即可，最后的界面应跟下图一样：
　　以下是程序清单：
　　Dim PcA, PcB, PcC, PcD As Integer '电脑给出的每一位数　　Dim UserA, UserB, UserC, UserD As Integer '用户输入的每一位数　　Dim Degree As Integer '用户猜了几次　　Dim Num As Integer '判断用户输入次数的变量　　Private Sub Form_Load()　　'程序运行行时　　'初始化　　For i = 0 To 9　　Command1(i).Enabled = False　　Next i　　Command2.Enabled = False　　Command3.Enabled = False　　View.Enabled = False　　End Sub　　Private Sub New_Click()　　'开始一个新游戏时　　View.Enabled = True '可以看答案　　List1.Clear '清空列表框　　Degree = 0　　' 对随机数生成器做初始化　　Randomize　　Num = 1　　Label1.Caption = 0 ＆ “A" ＆ 0 ＆ “B"　　'电脑给出的每一位数　　PcA = Int(9 ＊ Rnd)　　Do　　PcB = Int(9 ＊ Rnd)　　Loop While PcB = PcA　　Do　　PcC = Int(9 ＊ Rnd)　　Loop While PcC = PcA Or PcC = PcB　　Do　　PcD = Int(9 ＊ Rnd)　　Loop While PcD = PcA Or PcD = PcB Or PcD = PcC　　For i = 0 To 9　　Command1(i).Enabled = True　　 Next i　　Command2.Enabled = False　　Command3.Enabled = True　　End Sub　　Private Sub Command1_Click(Index As Integer)　　'用户输入时　　'使得输入过的按钮无效　　If Num &= 4 Then　　Command1(Index).Enabled = False　　End If　　'判断用户输入了几位，如果输入了四位则确认按钮有效　　If Num = 4 Then　　Command2.Enabled = True　　End If　　 '取得用户输入　　Select Case Index　　Case 0　　UserEnter (0) '调用UserEnter过程　　Case 1 UserEnter (1)　　Case 2 UserEnter (2)　　Case 3 UserEnter (3)　　Case 4 UserEnter (4)　　Case 5 UserEnter (5)　　Case 6 UserEnter (6)　　Case 7 UserEnter (7)　　Case 8 UserEnter (8)　　Case 9 UserEnter (9)　　End Select　　End Sub　　Private Sub Command2_Click()　　'单击确定按钮时　　'判断用户输入是否正确　　Dim A, B As Integer　　A = 0　　B = 0　　Degree = Degree ＋ 1　　If UserA = PcA Then　　A = A ＋ 1　　ElseIf UserA = PcB Or UserA = PcC Or UserA = PcD Then　　B = B ＋ 1　　用Visual BASIC 6.0 开发猜数字小游戏 End If　　If UserB = PcB Then　　A = A ＋ 1　　ElseIf UserB = PcA Or UserB = PcC Or UserD = PcD Then　　B = B ＋ 1　　End If　　If UserC = PcC Then　　A = A ＋ 1　　ElseIf UserC = PcA Or UserC = PcB Or UserC = PcD Then　　B = B ＋ 1　　End If　　If UserD = PcD Then　　A = A ＋ 1　　ElseIf UserD = PcA Or UserD = PcB Or UserC = PcC Then　　B = B ＋ 1　　End If　　'显示提示　　Label1.Caption = A ＆ “A" ＆ B ＆ “B"　　List1.AddItem UserA ＆ UserB ＆ UserC ＆ UserD ＆ “ " ＆ Label1.Caption　　'初始化输入按钮　　Command2.Enabled = False　　For i = 0 To 9　　Command1(i).Enabled = True　　Next i　　Num = 1　　'判断输赢　　If A = 4 Then　　MsgBox “你猜对了！" ＆ “你一共猜了" ＆ Degree ＆ “次"　　For i = 0 To 9　　Command1(i).Enabled = False　　Next i　　Command2.Enabled = False　　End If　　End Sub　　Private Sub Command3_Click()　　'单击取消按钮时　　Num = 1　　For i = 0 To 9　　Command1(i).Enabled = True　　Next i　　Command2.Enabled = False　　End Sub　　Private Sub View_Click()　　'显示答案时　　MsgBox “答案是：" ＆ PcA ＆ PcB ＆ PcC ＆ PcD ＆“你答对了吗？"　　End Sub　　Private Sub End_Click()　　'游戏结束时　　End　　End Sub　　Sub UserEnter(i) '取得用户输入　　If Num = 1 Then　　UserA = i　　Num = Num ＋ 1　　ElseIf Num = 2 Then　　UserB = i　　Num = Num ＋ 1　　ElseIf Num = 3 Then　　UserC = i　　Num = Num ＋ 1　　ElseIf Num = 4 Then　　UserD = i　　Num = Num ＋ 1　　Else: MsgBox “四位数够了！"　　End If　　End Sub
　　运行程序，选择新游戏，就可以开始玩你自己开发的游戏了。　　上面程序在Win95,VB6下运行通过。
（作者： 责任编辑：）
天极新媒体&最酷科技资讯扫码赢大奖
* 网友发言均非本站立场，本站不在评论栏推荐任何网店、经销商，谨防上当受骗！
笔记本手机数码家电求助。C#窗体猜数字游戏。在线等。急！！！【c#吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：113,389贴子：
求助。C#窗体猜数字游戏。在线等。急！！！收藏
using Susing System.Collections.GponentMusing System.Dusing System.Dusing System.Lusing System.Tusing System.Windows.Fnamespace W3{
public partial class frmcaishu : Form
static Random rnd = new Random();
int i = rnd.Next(1, 100);
public int j = 0;
public frmcaishu()
InitializeComponent();
public void frmcaishu_Load(object sender, EventArgs e)
private void btnsure_Click(object sender, EventArgs e)
int c = Convert.ToInt32(txtin.Text);
if (i & c || i & c)
if (i & c)
lalfin.Text = &这是第& + j + &次尝试，你猜的数字太大了，加油，再试试！&;
txtin.Text = &&;
lalfin.Text = &这是第& + j + &次尝试，你猜的数字太小了，加油，再试试！&;
txtin.Text = &&;
lalfin.Text = &这是第& + j + &次尝试，恭喜你猜对了！！&;
DialogResult result = MessageBox.Show(&再玩一次?&, &挑战成功&, MessageBoxButtons.YesNo);
if (result == DialogResult.Yes)
txtin.Text = &&;
lalfin.Text = &&;
this.Close();
勤哲Excel服务器学习和下载.会Excel,懂管理,就能做进销存管理系统c#及手机app.软博会金奖产品,适合于各行各业的管理人员使用.
每一次猜完，点再猜一次，出来的数字都是一样的，怎么办啊
求助求助 谢谢谢
j=0;后面加上对i重新生成随机数就可以了。
登录百度帐号推荐应用君，已阅读到文档的结尾了呢~~
[汇编]设计一个“猜数字”的游戏
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
[汇编]设计一个“猜数字”的游戏
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='/DocinViewer--144.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口设计一个“猜数字”的游戏_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
设计一个“猜数字”的游戏
阅读已结束，下载文档到电脑
想免费下载更多文档？
定制HR最喜欢的简历
下载文档到电脑，方便使用
还剩1页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢js实现一个猜数字游戏
作者：bad丶小
字体：[ ] 类型：转载 时间：
本文主要介绍了js实现一个猜数字游戏的实例代码。具有很好的参考价值，下面跟着小编一起来看下吧
看你需要猜几次才能猜到那个正确的数字！
代码如下：
&!DOCTYPE html&
&meta http-equiv="content-type" content="text/ charset=utf-8" /&
&title&猜数字游戏&/title&
&script type="text/javascript" charset="utf-8"&
window.onload = //页面载入的时候就开始一个新的游戏
window.onpopstate = popS //处理历史记录相关事件
var state, //全局变量，在newgame()方法中会对其初始化
function newgame(playagain) {
heading: null, //文档最上面的&h1&元素
prompt: null, //要求用户输入一个猜测数字
input: null, //用户输入猜测数字的地方
low: null, //可视化的三个表格单元格
mid: null, //猜测的数字范围
high: null,
//查询这些元素中每个元素的id
for(var id in ui) ui[id] = document.getElementById(id);
//给input字段定义一个事件处理程序函数
ui.input.onchange = handleG
//生成一个随机的数字并初始化游戏状态
n: Math.floor(99 * Math.random())+1, //整数： 0 & n &100
low: 0, //可猜数字范围下限
high: 100, //可猜数字范围上限
guessnum: 0, //猜测的次数
guess: undefined //最后一次猜测
//修改文档内容来显示该初始状态
display(state);
if (playagain === true)save(state);
function save(state) {
if (!history.pushState) //如果pushState()方法没有定义，则什么也不做
//将一个保存的状态和url关联起来
var url = "#guess" + state.
history.pushState(state, //要保存的状态对象
"", //状态标题：当前浏览器会忽视它
url); //状态URL：对书签是没有用的
//这是onpopstate的事件处理程序，用于恢复历史状态
function popState(event) {
if (event.state) {
//如果事件有一个状态对象，则恢复该状态
state = event. //恢复历史状态
display(state); //显示恢复的状态
history.replaceState(state, "", "#guess" + state.guessnum);
//每次猜测一个数字的时候，都会调用此事件处理程序
//此处理程序用于更新游戏的状态、保存游戏状态并显示游戏状态
function handleGuess() {
//从input字段中获取用户猜测的数字
var g = parseInt(this.value);
//如果该值是限定范围中的一个数字
if ((g & state.low) && (g & state.high)) {
//对应的更新状态
if (g & state.n) state.low =g;
else if (g & state.n) state.high =
state.guess =
state.guessnum++;
//在浏览器历史记录中保存新的状态
save(state);
//根据用户猜测情况来修改文档
display(state);
//无效的猜测：不保存状态
alert("请输入大于" + state.low + "和小于" + state.high);
//修改文档来显示游戏当前状态
function display(state) {
//显示文档的导航和标题
ui.heading.innerHTML = document.title ="我在想一个" + state.low + "到" + state.high + "之间的数字！";
//使用一个表格来显示数字的取值范围
ui.low.style.width = state.low + "%";
ui.mid.style.width = (state.high-state.low) + "%";
ui.high.style.width = (100-state.high) + "%";
//确保input字段是可见的、空的并且是聚焦的
ui.input.style.visibility = "visible";
ui.input.value = "";
ui.input.focus();
//根据用户最近猜测，设置提示
if (state.guess === undefined)
ui.prompt.innerHTML = "输入你的猜测：";
else if (state.guess & state.n)
ui.prompt.innerHTML = state.guess + "低了，再猜一次：";
else if (state.guess & state.n)
ui.prompt.innerHTML = state.guess + "高了，再猜一次：";
//当猜对了的时候，就隐藏input字段并显示“再玩一次”按钮
ui.input.style.visibility = "hidden";
ui.heading.innerHTML = document.title = state.guess + "正确！";
ui.prompt.innerHTML = "你赢了 &button onclick='newgame(true)'&再玩一次&/button&";
#prompt { font-size: 16}
table { width: 90%; margin:10 margin-left:5%;}
#low, #high { background-color: height:1 }
#mid { background-color:}
&h1 id="heading"&我在想一个数字...&/h1&
&td id="low"&&/td&
&td id="mid"&&/td&
&td id="high"&&/td&
&label id="prompt"&&/label&
&input id="input" type="text"&
以上就是本文的全部内容，希望本文的内容对大家的学习或者工作能带来一定的帮助，同时也希望多多支持脚本之家！
您可能感兴趣的文章:
大家感兴趣的内容
12345678910
最近更新的内容
常用在线小工具