UC知道三道编程，QB高手入
来源：百度知道 编辑：UC知道 时间：2024/05/26 10:52:17
1.
输入N，
N=4
1 3 4 10
2 5 9 11
6 8 12 15
7 13 14 16
N=5
1 3 4 10 11
2 5 9 12 19
6 8 13 18 20
7 14 17 21 24
15 16 22 23 25
输入N
并打印
2.
回文数猜想
一个两位或两位以上的数，若不是回文数，则与其倒置数（如1992---2991）相加，若不是回文数，则再与其倒置数相加，直到成为回文数。
打印步骤与总步数。
3.
把0、1、2、3、4、5、6、7、8、9分别组成一个一位数，一个两位数，一个三位数，一个四位数，每个数只能用一次，有几种方法，每种方法结果是什么？
要程序，不要结果，谁会我再送50分
一定要用QB
输入N，
N=4
1 3 4 10
2 5 9 11
6 8 12 15
7 13 14 16
N=5
1 3 4 10 11
2 5 9 12 19
6 8 13 18 20
7 14 17 21 24
15 16 22 23 25
输入N
并打印
2.
回文数猜想
一个两位或两位以上的数，若不是回文数，则与其倒置数（如1992---2991）相加，若不是回文数，则再与其倒置数相加，直到成为回文数。
打印步骤与总步数。
3.
把0、1、2、3、4、5、6、7、8、9分别组成一个一位数，一个两位数，一个三位数，一个四位数，每个数只能用一次，有几种方法，每种方法结果是什么？
要程序，不要结果，谁会我再送50分
一定要用QB
回文数的QB题目答案: 自己写的哦~~ 有一句版权, Powered by Lionet, 如果要拿来交的话, 就把它删掉. 为了简便, 没有写注释, 反正注释也是英文, 也不知道你愿意看不. 所以就不写了.
代码如下:
DECLARE FUNCTION StrRev$ (s AS STRING)
DECLARE FUNCTION ToString$ (n AS DOUBLE)
DIM n AS DOUBLE
DIM s AS STRING
DIM count AS LONG
PRINT
PRINT
DO
INPUT "Input an integer more then 9: ", n
LOOP WHILE n < 10
PRINT
n = INT(n)
s = ToString$(n)
DO
IF s = StrRev$(s) THEN
PRINT "Now that"; n; "is the number!"
PRINT "Total steps: "; count
EXIT DO
ELSE
count = count + 1
PRINT s; "+"; StrRev$(s); "=";
n = n + VAL(StrRev$(s))
PRINT n
s = ToString$(n)
END IF
LOOP
PRINT "The end! Powered by Lionet 23:10 2007-2-