回 帖 发 新 帖 刷新版面

主题:[讨论]求助高高高高高非常高的高手

我要做个一个由十几个数字组成的程序
       数字随即相加为一个整数
                 不能相加的要输出
 列: 123456789
    5相加不成  则输出 
            请高高高高高非常高的高手帮忙啊~
                 还不明白题目的高高高高高非常高的高手   请加QQ
                 34552046
              非常感谢!!!

回复列表 (共6个回复)

沙发

??????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????

板凳

什么意思?????????????????????????

3 楼

什么意思啊,看不明白

4 楼

你在说啥???????????????????????

5 楼

CLS
INPUT a$
la = LEN(a$)
DIM a(la)
FOR i = 1 TO la
a(i) = VAL(MID$(a$, i, 1))
NEXT i
FOR i = 1 TO la
FOR j = la TO i + 1 STEP -1
c = a(i) + a(j)
IF c MOD 10 = 0 THEN a(i) = 0: a(j) = 0
NEXT j, i
FOR i = 1 TO la
IF a(i) <> 0 THEN PRINT a(i);
NEXT i

6 楼


我要做个一个由十几个数字组成的程序
       数字随即相加为一个整数
                 不能相加的要输出
 列: 123456789
    5相加不成  则输出 
            请高高高高高非常高的高手帮忙啊~
                 还不明白题目的高高高高高非常高的高手   请加QQ
                 34552046
              非常感谢!!! 
CLS
INPUT a$
la = LEN(a$)
DIM a(la)
FOR i = 1 TO la
a(i) = VAL(MID$(a$, i, 1))
NEXT i
FOR i = 1 TO la
FOR j = la TO i + 1 STEP -1
c = a(i) + a(j)
IF c MOD 10 = 0 THEN a(i) = 0: a(j) = 0
NEXT j, i
FOR i = 1 TO la
IF a(i) <> 0 THEN PRINT a(i);
NEXT i
你写的不能运行

我来回复

您尚未登录,请登录后再回复。点此登录或注册