合肥市青年路小学信息学
模拟测试题（十）
1、数学黑洞6174
     已知：一个任意的四位正整数。将数字重新组合成一个最大的数和最小的数相减，重复这个过程，最多七步，必得6174。即：7641-1467=6174。将永远出不来。
     求证：所有四位数数字（全相同的除外），均能得到6174。输出掉进黑洞的步数。
2、输入10个学生的姓名，编一程序将它们按字母的顺序排列。
3、输入一个十进制数，将其转换成二进制数。
4、将字符串中的大写字母转换成小写字母，并反相输出。
           如输入'abcABC234!$',输出为'$!432cbacba'
5、从屏幕上输入一个多位自然数，然后将各位重新排列成一个仍由原来的那些数字组成的位数不变的最大数和最小数。
我都会，不过出点题给你们而已~~~

表示刚学QB半小时的路过

这些题，我都做腻了。因为我一上编程课，老师就发这些题。

第1题有点意思
CLS
DIM m(4)
INPUT n
FOR s = 1 TO 7
GOSUB bijiao
IF max - min = 6174 THEN
PRINT max; "-"; min; "="; max - min
PRINT s
END
ELSE
n = max - min
PRINT max; "-"; min; "="; n
END IF
NEXT
PRINT "over"
END
bijiao:
m(1) = INT(n / 1000)
m(2) = INT(n / 100) - INT(n / 1000) * 10
m(3) = INT(n / 10) - INT(n / 100) * 10
m(4) = n - INT(n / 10) * 10
DO
FOR j = 1 TO 3
IF m(j) > m(j + 1) THEN SWAP m(j), m(j + 1)
NEXT j
LOOP UNTIL m(1) <= m(2) AND m(2) <= m(3) AND m(3) <= m(4)
max = m(4) * 1000 + m(3) * 100 + m(2) * 10 + m(1)
min = m(1) * 1000 + m(2) * 100 + m(3) * 10 + m(4)
RETURN


好怀念那些简简单单的，功能专一的   小   程序啊！