恩，刚试了下，有个小bug 在第4次就猜对了，跳出成功提示了，但接着没跳回重玩。还在第五次输入提示下

输入大于9999的数会出错，跳出

ok了。兄弟，不错，程序不错，人也不错，但我老了，眼花啊，能把窗体放大点嘛，关键是字要大点啊。

无限感激！我可以给我儿子玩。。。。练一练逻辑

人身攻击啊？
1976年生人
能大我多少？

二月.....

风吹过b兄，经测试，还有点小问题。
1、如果刚好是第8次猜出来，会出现
"不好意思，在8次机会里您都没有猜对这个数字，真遗憾！这个数字是" 这句话，8次以内猜对没问题。
2、一开始随机生成的数字会有 0519 这个可能,没有对四位数进行判断.
3、求你了，用窗体，用Text.做吧，我百度了，VB下了，细细看了，亮瞎了！！！全是响应！！！

33楼兄弟，结贴了才看见你，十分内疚！

If a<>0 and a <> b And a <> c And a <> d And b <> c And b <> d And c <> d Then e = 1000 * a + 100 * b + 10 * c + d Else GoTo loop10

Print "   现在我有这个四位数了。"

两处要改改，前面要+上千位上的a 不能为零判断
print 这里不要出现答案了

收到的鲜花

• Artless 于 2012-10-22 13:55 送鲜花  1朵   附言：已经结贴， 还可以评分。

还有个小问题，窗口的高度不够，第四次以后输入，前面的会消失，就看不见前面猜的过程和提示了