请问一道QBASIC的应用题？高手进！

来源：百度知道 编辑：UC知道 时间：2024/05/10 14:17:51
题目很简单！就是0-9这10个数里面任意组合成
一个三位数加一个三位数等于一个四位数！
但是0-9这10个数每个都要出现且只能出现一次！
那么请问用QBASIC来求解！
如何做？
请回答详细过程！并写出qbasic中的所有代码！

10 for a1=1 to 9
20 for a2=0 to 9
30 for a3=0 to 9
40 if a1=a2 or a2=a3 or a3=a1 then goto 250
50 for b1=1 to 9
60 for b2=0 to 9
70 for b3=0 to 9
80 if b1=b2 or b2=b3 or b3=b1 then goto 220
90 for c1=1 to 9
100 for c2=0 to 9
110 for c3=0 to 9
120 for c4=0 to 9
130 if c1=c2 or c2=c3 or c3=c4 or c4=c1 then goto 180
140 a=a1*100+a2*10+a3
150 b=b1*100+b2*10+b3
160 c=c1*1000+c2*100+c3*10+c4
170 if (a<>b) and (a+b=c) then print a,b,c
180 next c4
190 next c3
200 next c2
210 next c1
220 next b3
230 next b2
240 next b1
250 next a3
260 next a2
270 next a1

中间生成三位数和四位数以及检验的部分可以写一个sub，然后直接调用就行，不过不清楚你用的qb版本(qb1.0不支持子程序)，以及我也记不清qb的sub如何定义了，就用个最麻烦的方法来了，不过应该可行。

程序没经过测试，不过应该没什么太大问题