:用vb设计一个猜数字游戏程序_百度知道
:用vb设计一个猜数字游戏程序
1．问题描述：由计算机随机生成四位不重复的数字，然后根据游戏者猜的数字，向其提供反馈信息：正确地数字有几个以及数字正确而且位置正确的有几个，游戏者根据这些信息重新猜一个数字...
1．问题描述：
由计算机随机生成四位不重复的数字，然后根据游戏者猜的数字，向其提供反馈信息：正确地数字有几个以及数字正确而且位置正确的有几个，游戏者根据这些信息重新猜一个数字，如此反复直到猜中为止。
2．问题的解决方案：
根据问题描述，可以将问题解决分为两部分：
（1）生成各位不重复的四位数。
（2）对游戏者的输入进行判断，并反馈提示信息。
四、主要技术问题的描述：
（1）生成各位不重复的四位数：利用随机分步生成，并作简单的循环判断，使四位数字均不重复。
2）判断和反馈：利用循环判定并将结果输出。
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
luomandick
luomandick
采纳数：425
获赞数：1103
加我扣扣··
参考资料：
为你推荐：
其他类似问题
您可能关注的内容
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。要求:随机给出一个数字(0-100),在TEXT中输入数字,如果大于或小于给出的数字,则显示在哪一个范围内,答对就显示"答对了"
例如:随机给出了一个数(45),在TEXT中输入61,再按"确定,就显示"0-61"........
....(还有:在旁边设一个计时器)
要求:随机给出一个数字(0-100),在TEXT中输入数字,如果大于或小于给出的数字,则显示在哪一个范围内,答对就显示"答对了"
例如:随机给出了一个数(45),在TEXT中输入61,再按"确定,就显示"0-61"........
....(还有:在旁边设一个计时器)
谢谢各位VB高手们!
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = Int(Rnd * 10 + 1)
b = InputBox("dd")
If b > a Then
MsgBox "1-" & b
ElseIf a > b Then
MsgBox b & "-10"
Print "right"
你只要编译成一个可执行程序就可以单独运行了。不用其他的任何条件。不知道是不是在你的程序里使用了什么特别的库。那不是VB本身的问题。
Private Sub Form_Load()
Randomize ' 对随机数生成器做初始化的动作
t = Rnd * 1000 '生成1000以...
简单VB代码如下，请LZ参考：
Private Sub Command1_Click()
Dim i As Long
Dim num As Long
新建 Form1 ,添加 Label1 , Label2 和 Command1 ,复制以下代码：
Private Sub Command1_Click()
应该有XP相关的系统函数，以前我们是每天检查数据库的数据，写了一个VB应用程序
答: 钓鱼鱼食中的VB2是什么啊？
答: 1、这东东用VB做没意思；
2、电脑公司用的一般是ASP+ACCESS编写的。
答: If Len(Inet1.OpenURL(" "))
Len(Inet1.OpenURL(" "))
MsgBox "成功...
海鸟的种类约350种，其中大洋性海鸟约150种。比较著名的海鸟有信天翁、海燕、海鸥、鹈鹕、鸬鹚、鲣鸟、军舰鸟等。海鸟终日生活在海洋上，饥餐鱼虾，渴饮海水。海鸟食量大，一只海鸥一天要吃6000只磷虾，一只鹈鹕一天能吃(2～2.5)kg鱼。在秘鲁海域，上千万只海鸟每年要消耗?鱼400×104t，它们对渔业有一定的危害，但鸟粪是极好的天然肥料。中国南海著名的金丝燕，用唾液等作成的巢被称为燕窝，是上等的营养补品。
嫌麻烦就把你洗衣机的型号或断皮带，拿到维修点去买1个，自己装上就可以了（要有个小扳手把螺丝放松，装上皮带，拉紧再紧固螺丝）。
这个问题有点不知所问了。
公务员并不由单位性质决定，行政单位行政编的是公务员，但并不是说行政单位的就是公务员，事业单位里面参照管理的也是公务员。
所以你的问题只能回答为：按公务员管理的是公务员。
工行的网银没有软键盘，主要通过安全控件来保证安全，只有安装了工行的安全控件，才能在工行网页上输入密码。
修改密码的操作，你可以在登陆工行网银以后，在“客户服务”的“修改客户密码”里找到相关链接。
考虑是由于天气比较干燥和身体上火导致的，建议不要吃香辣和煎炸的食物，多喝水，多吃点水果，不能吃牛肉和海鱼。可以服用（穿心莲片，维生素b2和b6）。也可以服用一些中药，如清热解毒的。
确实没有偿还能力的，应当与贷款机构进行协商，宽展还款期间或者分期归还； 如果贷款机构起诉到法院胜诉之后，在履行期未履行法院判决，会申请法院强制执行； 法院在受理强制执行时，会依法查询贷款人名下的房产、车辆、证券和存款；贷款人名下没有可供执行的财产而又拒绝履行法院的生效判决，则有逾期还款等负面信息记录在个人的信用报告中并被限制高消费及出入境，甚至有可能会被司法拘留。
第一步：教育引导
不同年龄阶段的孩子“吮指癖”的原因不尽相同，但于力认为，如果没有什么异常的症状，应该以教育引导为首要方式，并注意经常帮孩子洗手，以防细菌入侵引起胃肠道感染。
第二步：转移注意力
比起严厉指责、打骂，转移注意力是一种明智的做法。比如，多让孩子进行动手游戏，让他双手都不得闲，或者用其他的玩具吸引他，还可以多带孩子出去游玩，让他在五彩缤纷的世界里获得知识，增长见识，逐渐忘记原来的坏习惯。对于小婴儿，还可以做个小布手套，或者用纱布缠住手指，直接防止他吃手。但是，不主张给孩子手指上“涂味”，比如黄连水、辣椒水等，以免影响孩子的胃口，黄连有清热解毒的功效，吃多了还可导致腹泻、呕吐。
合肥政务区网络广告推广网络推广哪家公司比较好 一套能在互联网上跑业务的系统，被网络营销专家赞为目前最 有效的网络推广方式！
1、搜索引擎营销：分两种SEO和PPC，即搜索引擎优化，是通过对网站结构、高质量的网站主题内容、丰富而有价值的相关性外部链接进行优化而使网站为用户及搜索引擎更加友好，以获得在搜索引擎上的优势排名为网站引入流量。
良工拥有十多位资深制冷维修工程师，十二年生产与制造经验，技术力量雄厚，配有先进的测试仪器，建有系列低温测试设备，备有充足的零部件，包括大量品牌的压缩机，冷凝器，蒸发器，水泵，膨胀阀等备品库，能为客户提供迅捷，优质的工业冷水机及模温机维修和保养。
楼主，龙德教育就挺好的，你可以去试试，我们家孩子一直在龙德教育补习的，我觉得还不错。
成人可以学爵士舞。不过对柔软度的拒绝比较大。　　不论跳什么舞，如果要跳得美，身体的柔软度必须要好，否则无法充分发挥出理应的线条美感，爵士舞也不值得注意。在展开暖身的弯曲动作必须注意，不适合在身体肌肉未几乎和暖前用弹振形式来做弯曲，否则更容易弄巧反拙，骨折肌肉。用静态方式弯曲较安全，不过也较必须耐性。柔软度的锻炼动作之幅度更不该超过疼痛的地步，肌肉有向上的感觉即可，动作(角度)保持的时间可由10馀秒至30-40秒平均，时间愈长对肌肉及关节附近的联结的组织之负荷也愈高。
正在加载...
Copyright &
Corporation, All Rights Reserved
确定举报此问题
举报原因(必选)：
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告，这不是个问题
报告原因(必选)：
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区
相关问答：123456789101112131415猜数字游戏，相信不少人玩过吧，比较简单的那种小游戏。原理是：程序随机生成一个1~100之间的整数，让玩家猜出这个数是多少。如果输入-1，则停止猜数，并输出要猜的数。如果用户输入的数字太大或大小都会给出相应提示，让用户继续猜，直到猜对为止。那么这种VB逻辑如何去实现呢？请看下面的代码：
Dim number As Integer
Private Sub Command1_Click()
Dim guess As Integer, diff As Integer
guess = Val(Text1.Text)
If guess = -1 Then
MsgBox (&要猜的数是& & number)
Text1.Text = &&
Text1.SetFocus
diff = Abs(number - guess)
Select Case diff
MsgBox (&恭喜你猜对了！&)
Case 2, Is & 2
MsgBox (&快猜对了，还差点！&)
Case 10, Is & 12
MsgBox (&怎么越猜越远了？&)
MsgBox (&你跑偏了，快到银河系了！差太远了！&)
End Select
Select Case diff
Case Is && 0
Text1.Text = &&
Text1.SetFocus
End Select
Private Sub Form_Load()
MsgBox (&电脑会随机生成一个1~100之间的整数，& & Chr(10) & &请您猜出这个数是多少。& & Chr(10) & &如果输入-1，则停止猜数，并输出要猜的数。&)
number = Int(100 * Rnd) + 1
Private Sub Label1_Click()
你可由此扩展成一个完整的VB猜数字游戏，这只是关键的代码。
本类推荐文章
本类最新更新
处理 SSI 文件时出错VB猜数字游戏!_百度知道
VB猜数字游戏!
DimcAsLongPrivateSubCommand1_Click()c=Int(100*Rnd+1)EndSubPrivateSubCommandOK_Click()b=InputBox(&请输入一个数字(1-100)&,&猜数字&)Ifb=&&Orb&100Orb&1ThenMsgBox&请输入正确的...
Dim c As LongPrivate Sub Command1_Click()
c = Int(100 * Rnd + 1)End SubPrivate Sub CommandOK_Click()
b = InputBox(&请输入一个数字(1-100)&, &猜数字&)
If b = && Or b & 100 Or b & 1 Then MsgBox &请输入正确的值!&: Exit Sub
If b = c Then
m = MsgBox(&恭喜你猜对了!&, 0, &恭喜&)
ElseIf b & c Then
txt.Text = b & &太大了!&
e = MsgBox(&数字太大了!&, 0, &错误&)
CommandOK.SetFocus
txt.Text = b & &太小了!&
e = MsgBox(&数字太小了!&, 0, &错误&)
CommandOK.SetFocus
End IfEnd SubPrivate Sub txt_Change()
LAB.Caption = txt.TextEnd SubPrivate Sub CommandOUT_Click()
EndEnd SubPrivate Sub Form_Load()
c = Int(100 * Rnd + 1)End Sub如何让LAB中出现前面所有的数字,而不是按一次OK LAB中的数字就被前一次替换掉了...
谢谢!如果哪位大虾可以帮忙更加完善下,
会有额外的分的
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
采纳数：180
获赞数：572
建议使用 列表框 listbox ，这样看起来更清晰代码也做了一些调整，你看看吧：Dim c As LongPrivate Sub Command1_Click()
c = Int(100 * Rnd + 1)End SubPrivate Sub CommandOK_Click()
Dim b As Long
b = Val(InputBox(&请输入一个数字(1-100)&, &猜数字&))
Select Case b
Case Is & 100 Or b & 1:
MsgBox &请输入正确的值!&
txt.Text = b & & 恭喜你猜对了!&
MsgBox txt.Text, 0, &恭喜&
Case Is & c:
txt.Text = b & & 太大了!&
MsgBox txt.Text, 0, &错误&
CommandOK.SetFocus
Case Is & c:
txt.Text = b & & 太小了!&
MsgBox txt.Text, 0, &错误&
CommandOK.SetFocus
End Select
List1.AddItem txt.TextEnd SubPrivate Sub CommandOUT_Click()
EndEnd SubPrivate Sub Form_Load()
c = Int(100 * Rnd + 1)End Sub
采纳数：161
获赞数：228
擅长：暂未定制
LAB.Caption = txt.Text & vbCrLf & LAB.Caption不过我建议你使用text控件，使用多行输入，这样有滚动条。而使用label控件是无法使用滚动条进行查看的，而且显示有限。
为你推荐：
其他类似问题
您可能关注的内容
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。&>&猜数字游戏 vb编程
猜数字游戏 vb编程
上传大小：162KB
游戏开始电脑随机产生一个数字不重复的四位数；将猜的数填在框内按回车或者确定按钮提交；电脑会将提交的数与它自动产生的数进行比较，结果显示成&*A*B&。A代表位置正确数字也正确，B代表数字正确但位置不正确，比如：&2A2B&表示有2个数字的位置正确且数值也正确，除此以外，还猜对了2个数字，但位置不对；共有10次机会，在10次内，如果结果为“4A0B”，游戏成功。如果10次里都没有猜对游戏失败。
综合评分：2
{%username%}回复{%com_username%}{%time%}\
/*点击出现回复框*/
$(".respond_btn").on("click", function (e) {
$(this).parents(".rightLi").children(".respond_box").show();
e.stopPropagation();
$(".cancel_res").on("click", function (e) {
$(this).parents(".res_b").siblings(".res_area").val("");
$(this).parents(".respond_box").hide();
e.stopPropagation();
/*删除评论*/
$(".del_comment_c").on("click", function (e) {
var id = $(e.target).attr("id");
$.getJSON('/index.php/comment/do_invalid/' + id,
function (data) {
if (data.succ == 1) {
$(e.target).parents(".conLi").remove();
alert(data.msg);
$(".res_btn").click(function (e) {
var parentWrap = $(this).parents(".respond_box"),
q = parentWrap.find(".form1").serializeArray(),
resStr = $.trim(parentWrap.find(".res_area_r").val());
console.log(q);
//var res_area_r = $.trim($(".res_area_r").val());
if (resStr == '') {
$(".res_text").css({color: "red"});
$.post("/index.php/comment/do_comment_reply/", q,
function (data) {
if (data.succ == 1) {
var $target,
evt = e || window.
$target = $(evt.target || evt.srcElement);
var $dd = $target.parents('dd');
var $wrapReply = $dd.find('.respond_box');
console.log($wrapReply);
//var mess = $(".res_area_r").val();
var mess = resS
var str = str.replace(/{%header%}/g, data.header)
.replace(/{%href%}/g, 'http://' + window.location.host + '/user/' + data.username)
.replace(/{%username%}/g, data.username)
.replace(/{%com_username%}/g, data.com_username)
.replace(/{%time%}/g, data.time)
.replace(/{%id%}/g, data.id)
.replace(/{%mess%}/g, mess);
$dd.after(str);
$(".respond_box").hide();
$(".res_area_r").val("");
$(".res_area").val("");
$wrapReply.hide();
alert(data.msg);
}, "json");
/*删除回复*/
$(".rightLi").on("click", '.del_comment_r', function (e) {
var id = $(e.target).attr("id");
$.getJSON('/index.php/comment/do_comment_del/' + id,
function (data) {
if (data.succ == 1) {
$(e.target).parent().parent().parent().parent().parent().remove();
$(e.target).parents('.res_list').remove()
alert(data.msg);
//填充回复
function KeyP(v) {
var parentWrap = $(v).parents(".respond_box");
parentWrap.find(".res_area_r").val($.trim(parentWrap.find(".res_area").val()));
评论共有1条
猜数字游戏 vb编程很好
gzyshengongshe
综合评分：
积分/C币：3
综合评分：
积分/C币：3
VIP会员动态
CSDN下载频道资源及相关规则调整公告V11.10
下载频道用户反馈专区
下载频道积分规则调整V1710.18
spring mvc+mybatis+mysql+maven+bootstrap 整合实现增删查改简单实例.zip
资源所需积分/C币
当前拥有积分
当前拥有C币
输入下载码
为了良好体验，不建议使用迅雷下载
猜数字游戏 vb编程
会员到期时间：
剩余下载个数：
剩余积分：0
为了良好体验，不建议使用迅雷下载
积分不足！
资源所需积分/C币
当前拥有积分
您可以选择
程序员的必选
绿色安全资源
资源所需积分/C币
当前拥有积分
当前拥有C币
为了良好体验，不建议使用迅雷下载
资源所需积分/C币
当前拥有积分
当前拥有C币
为了良好体验，不建议使用迅雷下载
资源所需积分/C币
当前拥有积分
当前拥有C币
您的积分不足，将扣除 10 C币
为了良好体验，不建议使用迅雷下载
无法举报自己的资源
你当前的下载分为234。
你还不是VIP会员
开通VIP会员权限，免积分下载
你下载资源过于频繁，请输入验证码
您因违反CSDN下载频道规则而被锁定帐户，如有疑问，请联络:!
若举报审核通过，可返还被扣除的积分
被举报人：
liusu881103
请选择类型
资源无法下载 （ 404页面、下载失败、资源本身问题）
资源无法使用 （文件损坏、内容缺失、题文不符）
侵犯版权资源 （侵犯公司或个人版权）
虚假资源 （恶意欺诈、刷分资源）
含色情、危害国家安全内容
含广告、木马病毒资源
*投诉人姓名：
*投诉人联系方式：
*版权证明：
*详细原因：
猜数字游戏 vb编程