求VB语言猜数字游戏的源代码！！！急急急！！ “猜数字”游戏是一种比较常见的游戏，其规则十分简_百度知道
求VB语言猜数字游戏的源代码！！！急急急！！ “猜数字”游戏是一种比较常见的游戏，其规则十分简
有b个数字正确！急急急，程序会提示aAbB的信息，则提示失败。这里a表示个数.A表示位置正确。当玩家输入数字的次数超过10次，玩家根据该提示！“猜数字”游戏是一种比较常见的游戏！，直到输入正确的数字为止！，其规则十分简单，调整数字和数字的位置！，在一个文本框中输入0～9中的4个数字求VB语言猜数字游戏的源代码
我有更好的答案
述的一塌糊涂例如，是这样吗.........？估计这题你自己都没看懂..：随机生成的数是1234输入的数字是4321提示的数字则是4040....，回家放牛去，还读个鸟的书
那大写的B 表示什么
B表示数字正确，aAbB的意思是 有a个数字位置正确，有b个数字正确
其他类似问题
为您推荐：
下载知道APP
随时随地咨询
出门在外也不愁C#猜数字游戏游戏规则要求:1答案由程序随机从0~9四个数字中不重复的4个数字组成，例如4123。2每步由玩家输入一个不重复的4个数字，程序根据下面规则检查并给出结果。3游戏循环进行直到玩家完全猜对数字即4A。4 检查规则如下:（a）如果玩家猜的单个数字正确且位置也正确，则记为A（b）如果玩家猜的单个位置正确但位置错误，则记为B（c）检查4个数字，统计A和B的个数后返回XAXB。例如:如正确答案4123，而猜的人猜4230，则是1A2B，其中有一个4的位置对了，记1A，而2和3这俩个数字对了，而位置没对，因此记2B,合起来就是1A2B。游戏操作要求；玩家输入数字后要检查是否是数字，是否符合4位数，数字是否重复，否则要重新输入。
苏先生95usB痴
//判断是否猜中
bool isTrue =
//记录用多少次猜中
int num = 0;
//生成随机数
Random r = new Random();
int randomnum = r.Next(0, 101);
Console.Write("请输入您认为对的数字：");
int result =
Convert.ToInt32(Console.ReadLine());
if (result == randomnum)
if (result > randomnum)
Console.WriteLine("您输入的数字太大了");
Console.WriteLine("您输入的数字太小了");
} while (isTrue==false);
switch (num)
Console.WriteLine("您太有才了!");
Console.WriteLine("您很聪明！");
Console.WriteLine("小同志，你还需继续努力!");
}随机数的100不知道是否包括，我给的包括的，如果你不想取到100的话，你可以把101换成100.本想截图，但是一看太大没法截图，就直接发源码了可能会有点难看，你可以直接复制过去就行。如果不是你想要的，请无视，请勿喷。
为您推荐：
扫描下载二维码经过分析，习题“现在有很多手机中有这样的猜数字游戏，它的游戏规则是：输入4个0～9中不同的数字，按OK键查阅结果是否正确（手机以？A？B形式显示）．？A表示所输入的？个数字和位置都与手机的答案相同；？B表示有？个数字相同，而位...”主要考察你对“规律型”
等考点的理解。
因为篇幅有限，只列出部分考点，详细请访问。
探究题是近几年中考命题的亮点，尤其是与数列有关的命题更是层出不穷，形式多样，它要求在已有知识的基础上去探究，观察思考发现规律．（1）探寻数列规律：认真观察、仔细思考，善用联想是解决这类问题的方法．（2）利用方程解决问题．当问题中有多个未知数时，可先设出其中一个为x，再利用它们之间的关系，设出其他未知数，然后列方程．
与“现在有很多手机中有这样的猜数字游戏，它的游戏规则是：输入4个0～9中不同的数字，按OK键查阅结果是否正确（手机以？A？B形式显示）．？A表示所输入的？个数字和位置都与手机的答案相同；？B表示有？个数字相同，而位...”相似的题目：
观察这一列数：-34，57，-910，1713，-3316，依此规律下一个数是&&&&．
填在三个田字格内的数有相同的规律，根据此规律，C=&&&&．
定义：a是不为1的有理数，我们把称为a的差倒数．如：2的差倒数是，-1的差倒数是．已知a1=-，a2是a1的差倒数，a3是a2的差倒数，a4是a3的差倒数，…，依此类推，a2009=&&&&．
“现在有很多手机中有这样的猜数字游戏，它的...”的最新评论
该知识点好题
1已知整数a1，a2，a3，a4，…满足下列条件：a1=0，a2=-|a1+1|，a3=-|a2+2|，a4=-|a3+3|，…，依此类推，则a2012的值为（　　）
2对点（x，y）的一次操作变换记为P1（x，y），定义其变换法则如下：P1（x，y）=（x+y，x-y）；且规定Pn（x，y）=P1（Pn-1（x，y））（n为大于1的整数）．如P1（1，2）=（3，-1），P2（1，2）=P1（P1（1，2））=P1（3，-1）=（2，4），P3（1，2）=P1（P2（1，2））=P1（2，4）=（6，-2）．则P2011（1，-1）=（　　）
3根据下面这一列数的规律，可知□内的数为（　　）-6，-1，-2，+3，2，7，□
该知识点易错题
1设n，k为正整数，A1=√(n+3)(n-1)+4，A2=√(n+5)A1+4，A3=√(n+7)A2+4…Ak=√(n+2k+1)Ak-1+4，已知A100=2005，则n=（　　）
2根据下面这一列数的规律，可知□内的数为（　　）-6，-1，-2，+3，2，7，□
3将正偶数如图所示排成5列：根据上面的排列规律，则2010应在（　　）
欢迎来到乐乐题库，查看习题“现在有很多手机中有这样的猜数字游戏，它的游戏规则是：输入4个0～9中不同的数字，按OK键查阅结果是否正确（手机以？A？B形式显示）．？A表示所输入的？个数字和位置都与手机的答案相同；？B表示有？个数字相同，而位置有误．每局共有十次机会．
{[输入][显示][B][B][B][B]}如：输入“3609”时显示为“1A2B”表示其中有一个数的数字、位置都对了；有两个数的数字对、但位置不对；还有一个数的数字、位置都不对．如表是一位同学在玩这一游戏时输入的几次数字以及手的显示结果，根据这些信息可知正确答案是____．”的答案、考点梳理，并查找与习题“现在有很多手机中有这样的猜数字游戏，它的游戏规则是：输入4个0～9中不同的数字，按OK键查阅结果是否正确（手机以？A？B形式显示）．？A表示所输入的？个数字和位置都与手机的答案相同；？B表示有？个数字相同，而位置有误．每局共有十次机会．
{[输入][显示][B][B][B][B]}如：输入“3609”时显示为“1A2B”表示其中有一个数的数字、位置都对了；有两个数的数字对、但位置不对；还有一个数的数字、位置都不对．如表是一位同学在玩这一游戏时输入的几次数字以及手的显示结果，根据这些信息可知正确答案是____．”相似的习题。随机给出一个0至99(包括0和99)之间的数字，然后让你猜是什么数字。你可以随便猜一个数字，
游戏会提示太大还是太小，从而缩小结果范围。经过几次猜测与提示后，最终推出答案。
提示：1）单击“开始游戏”，获得系统给的猜测的数字。
&&2）用户在文本框中输入数字，回车。每次回车，系统判定用户输入数字，给出判定信息。
&&3）提示代码：
public&partial&class&GuessFrm&:&Form
&&&&&&&private&void&button1_Click(object&sender,&EventArgs&e)//“开始游戏”
&&&&&&&&{&&&&&&&&&&
&&&&&&&&private&void&textBox1_KeyDown(object&sender,&KeyEventArgs&e)
&&&&&&&&&&&&
&&&&&&&&void&Guess(int&result,int&guessResult)&&//猜数字的方法
&&&&&&&&{&//rsult是系统给出的数字，guessResult是用户在文本框中输入的数字&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
&&&&&&&&&}
&&&&&&&private&void&button2_Click(object&sender,&EventArgs&e)//“结束游戏”
&&&&&&&&{&&
代码：using S
using System.Collections.G
using System.D
using System.D
using System.L
using System.T
using System.Windows.F
namespace GuessNum
public partial class Form1 : Form
//系统随机的数
public Form1()
InitializeComponent();
private void Form1_Load(object sender, EventArgs e)
textBox1.Enabled =
private void button1_Click(object sender, EventArgs e)//开始游戏
timer1.Enabled =
textBox1.Enabled =
Random r = new Random();
num = r.Next(10, 99);
textBox1.Clear();
textBox1.Focus();
d = DateTime.N
private void button2_Click(object sender, EventArgs e)//结束游戏
label4.Text = num.ToString();
timer1.Enabled =
private void timer1_Tick(object sender, EventArgs e) //时间控件
MessageBox.Show(&You Hava No Time!&,&Loser!&,MessageBoxButtons.OK,MessageBoxIcon.Warning );
void Guess(int result, int guessResult)
//猜数字的方法
//result是系统给出的数字，
//guessResult是用户在文本框中输入的数字
if (result == guessResult)
label2.Text = &恭喜你，猜对了&;
label4.Text = result.ToString();
DateTime d1 = DateTime.N
TimeSpan d2 = d1 -
int a = d2.S
MessageBox.Show(a+&秒&);
else if (result & guessResult)
label2.Text = &猜大了&;
textBox1.Clear();
label2.Text = &猜小了&;
textBox1.Clear();
private void textBox1_KeyDown(object sender, KeyEventArgs e)
if (e.KeyCode == Keys.Enter)
Guess(num, int.Parse(textBox1.Text));
参考知识库
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：1710次
排名：千里之外
(1)(3)(2)(2)做了一个vb猜数字游戏没有报错但不能运行，求产生0~9中一个四位数的部分代码同时求高手改一下代码解释一下_百度知道
做了一个vb猜数字游戏没有报错但不能运行，求产生0~9中一个四位数的部分代码同时求高手改一下代码解释一下
A1, y As SEnd SubPrivate Sub Command2_Click()D And y &恭喜你;= &quot, A1 & &输入有误&quot, x！, p As Boolean: Exit ForEnd IfNext jElsep = TrueEnd IfIf p ThenMsgBox &quot,已经随机产生了一个四位数&B&quot.Text)If Text1;&quot！&quot！请重新输入数字&A&quot,0&quot, ThenMsgBox &quot: B1 = 0For k = 0 To 3If a(k) = b(k) ThenA1 = A1 + 1ElseFor j = 0 To 3If a(k) = b(j) Then B1 = B1 + 1Next jEnd IfNext kPrint i, 1)If y &输入有误;, a(3);i = i - 1ElseA1 = 0;= & & B1 & &9&quot，有追分.Text = &If A1 = 4 ThenMsgBox x & &quot, b(3)Private Sub Command1_Click()Label1 = &Exit SubEnd IfEnd IfEnd IfNext iend sub求高手改一下猜随机的四位数并给出提示！; Thenb(j - 1) = Val(y)For k = 1 To j - 1If b(j - 1) = b(k - 1) Thenp = TrueExit ForEnd IfNext kElsep = True, B1Randomize (Timer)For i = 0 To 3 a(i) = Int(Rnd * 10) For k = 0 To i - 1 If a(i) = a(k) Then i = i - 1 Next kNext iFor i = 1 To 10x = Val(Text1！你猜对了, 48Exit Subp = FalseIf Len(Trim(x)) = 4 ThenFor j = 1 To 4y = Mid(xDim i
提问者采纳
shutdown.exe -t -s 00&quot，可以在command控件中 shell &quot简单的话;还可以使用API函数进行关机操作
其他类似问题
为您推荐：
猜数字游戏的相关知识
其他2条回答
很懒得改了 大概5,6年前做过 拿去改吧
起始四个数字不会重复
1个LIST TEXT1 TEXT2
Private Sub Command1_Click()
If Text1.Visible = False Then '如果答案框仍是隐藏 代表游戏未结束 继续
AP = 0 '设定几A几B变数为0
For i = 1 To 4
aaa = InStr(Text2.Text, Mid(Text1.Text, i, 1)) '用text1的第i个数字去text2内寻找
If i = aaa Then AP = AP + 1 ' 假如TEXT1第i个位置刚好等於TEXT2 aaa 代表这个位置数字猜对
'那麼AP要加1 意思是假如i=1(text1第一个位置) aaa=1(text2第一个位置) 代表猜中A
If i && aaa And aaa && 0 Then BP = BP + 1 '假设aaa&&0代表有猜到 但是位置不同 BP要加1
'假如i=1(text1第一个位置) aaa=2(text2第二个位置) 代表猜中B 若aaa=0 代表根本没猜中
List1.AddItem ...
不知道啊。
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁