用QBASIC语言的，进来看看题目

求各位了，

题目是：有些三位数性质独特，每位上的数字各不相同，且都不大于7，特别的是有十位数字等于百位数字与个位数字之差，求出所有这种的三位数字的个位数字及输出这些三位数     拜托了

Dim i,j,d1,d2,d3

For i=100 to 999

 d1=i mod 10

 j=(i-d1)/10

 d2=j mod 10

 j=(j-d2)/10

 d3=j mod 10

 if abs(d1-d3)=d2 then

 print i

 end if
Next