考智力小逻辑游戏，用QBasic实现，求大神做个安卓上能用的。（供源程序）

源程序如下：忘了从哪个地方看见的游戏了 后面附图
2 CLS
COLOR 6
LOCATE 3, 10
PRINT "   欢迎您,让我们来玩猜数字游戏吧!现在我有一个四位数,您可以猜8次。"
PRINT "   记住,这个四位数每个数位上的数字是不相同的。"
PRINT "   还有，您每猜测一次，我都会给出一个提示的，好好利用提示，"
PRINT "   您肯定会胜利的，把脑筋动起来吧！"
PRINT "   提示方法：Ａ和Ｂ，Ａ表示您猜的数字中有一个数位上的数字与答案的"
PRINT "   数位相同，数字也相同。Ｂ表示您猜的数字中有一个数字与答案中的一个"
PRINT "   数字相同,但数位不对。"
PRINT "   例子：比如答案是1234,你猜5243,我给出的提示就是1A2B,1A表示有一个数字对了(指百位上的2),"
PRINT "   2B表示有两个数字对了(指3和4)，但数位不对，您明白了吗？"
COLOR 7
PRINT "   那让我们开始吧！"
10 RANDOMIZE TIMER
a = 0
b = 0
c = 0
d = 0
k = 0
a = INT(RND * 10)
b = INT(RND * 10)
c = INT(RND * 10)
d = INT(RND * 10)
IF 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 10
COLOR 11
PRINT "   现在我有这个四位数了。"
5 k = k + 1
IF k = 9 THEN GOTO 100
20 PRINT "   这是您第"; k; "次猜数，您猜猜是多少？"
COLOR 11
INPUT z
IF z < 1000 OR z > 9999 THEN PRINT "   您输入错误了，记住，您要猜的是一个4个数字都不相同的四位数。请重新输入吧！": GOTO 20
IF z = e THEN PRINT "   您太聪明能干了，您猜对了，这个数字就是"; e; "。": GOTO 150
a1 = 0
b1 = 0
c1 = 0
d1 = 0
a1 = INT(z / 1000)
b1 = INT((z - a1 * 1000) / 100)
c1 = INT((z - a1 * 1000 - b1 * 100) / 10)
d1 = z - a1 * 1000 - b1 * 100 - c1 * 10
IF a1 = b1 OR a1 = c1 OR a1 = d1 OR b1 = c1 OR b1 = d1 OR c1 = d1 THEN PRINT "您输入错误了，记住，您要猜的是一个4个数字都不相同的四位数。请重新输入吧！": GOTO 20
n = 0
m = 0
q = 0
w = 0
o = 0
r = 0
t = 0
y = 0
IF a1 = a THEN m = 1 ELSE IF a1 = b THEN n = 1 ELSE IF a1 = c THEN n = 1 ELSE IF a1 = d THEN n = 1
IF b1 = a THEN q = 1 ELSE IF b1 = b THEN w = 1 ELSE IF b1 = c THEN q = 1 ELSE IF b1 = d THEN q = 1
IF c1 = a THEN o = 1 ELSE IF c1 = b THEN o = 1 ELSE IF c1 = c THEN r = 1 ELSE IF c1 = d THEN o = 1
IF d1 = a THEN t = 1 ELSE IF d1 = b THEN t = 1 ELSE IF d1 = c THEN t = 1 ELSE IF d1 = d THEN y = 1
m1 = 0
n1 = 0
m1 = m + w + r + y
n1 = n + q + o + t
PRINT "   这是您第"; k; "次猜数，可惜了，不对，这次的提示是"; m1; "A"; n1; "B"
GOTO 5
100 PRINT "   不好意思，在8次机会里您都没有猜对这个数字，真遗憾！这个数字是"; e; "。"
150 INPUT "   重玩一次请输入(Y/y)，不想玩了请输入(N/n)"; h$
IF h$ = "Y" OR h$ = "y" THEN GOTO 2 ELSE IF h$ = "N" OR h$ = "n" THEN GOTO 200 ELSE PRINT "您输入错误，请重新输入!": GOTO 150
200 END




也发在VB那边了，还有EXE文件和玩法，喜欢的自个去下。