求一个关于Q-BASIC的程序

先介绍什么是“回文数”。“回文数”指从左到右或从右到左顺序读一个数，这个数

不变的数。例如：1221，4444，232，667766等
现给出任意一个正整数，都可以通过以下计算过程得到一个回文数。

例如给出正整数647，我们用以下计算方法
1、将647倒序重写，变为746
2、647+746=1393，1393不是回文数，不满足要求，将1393倒序为3931
3、1393+3931=5324，5324不是回文数，不满足要求，将5324倒序为4235
4、5324+4235=9559，9559是回文数，满足要求
附加：2031倒序是1302，4570倒序是754，2000倒序是2

程序要求：任输入一个正整数，程序会自动按照上述算法计算，直到得到第一个回文数，

将其输出即可。

附加一个正整数位数计算程序：（可能用到）
m=0
INPUT x
DO
x=x/10
m=m+1
LOOP UNTIL x<1
PRINT m
END

求一个关于Q-BASIC的程序 求计算24点的BASIC程序 谁给我一个Visual Basic 程序 我想看下Visual Basic 程序是什么样子的 关于visual basic程序中数据类型的问题 visual basic 6.0一个简单的程序问题 关于BASIC的 Basic的一个问题 求一个关于暴风影音的程序！！！！！！！！ 求关于线性表的一个程序 跪求请教编程序basic