主题：简单
Lovely哆啦
[专家分：1360] 发布于 2007-04-04 18:09:00
123
最后更新于：2007-04-08 17:15:00
回复列表 （共8个回复）
沙发
小精灵LS [专家分：580] 发布于 2007-04-05 17:26:00
CLS
INPUT A$
A$ = A$ + " "
A = LEN(A$): DIM D$(A)
FOR I = 1 TO A
B$ = MID$(A$, I, 1)
IF ASC(B$) > 47 AND ASC(B$) < 58 THEN
C$ = C$ + B$
ELSE
IF C$ <> "" THEN D = D + 1: D$(D) = C$: C$ = ""
END IF
NEXT I
FOR I = 1 TO D
SUM = SUM + VAL(D$(I))
PRINT D$(I);
IF I < D THEN PRINT "+";
NEXT I
IF D <> 0 THEN PRINT "=";
PRINT SUM
END
板凳
黑白猪-- [专家分：420] 发布于 2007-04-08 16:25:00
CLS
INPUT A$
A$ = A$ + " "
A = LEN(A$): DIM D$(A)
FOR I = 1 TO A
B$ = MID$(A$, I, 1)
IF ASC(B$) > 47 AND ASC(B$) < 58 THEN
C$ = C$ + B$
ELSE
IF C$ <> "" THEN D = D + 1: D$(D) = C$: C$ = ""
END IF
NEXT I
FOR I = 1 TO D
SUM = SUM + VAL(D$(I))
PRINT D$(I);
IF I < D THEN PRINT "+";
NEXT I
IF D <> 0 THEN PRINT "=";
PRINT SUM
END
3 楼
游戏之王 [专家分：540] 发布于 2007-04-08 16:50:00
CLS
INPUT A$
A$ = A$ + " "
A = LEN(A$): DIM D$(A)
FOR I = 1 TO A
B$ = MID$(A$, I, 1)
IF ASC(B$) > 47 AND ASC(B$) < 58 THEN
C$ = C$ + B$
ELSE
IF C$ <> "" THEN D = D + 1: D$(D) = C$: C$ = ""
END IF
NEXT I
FOR I = 1 TO D
SUM = SUM + VAL(D$(I))
PRINT D$(I);
IF I < D THEN PRINT "+";
NEXT I
IF D <> 0 THEN PRINT "=";
PRINT SUM
END
4 楼
Lovely哆啦 [专家分：1360] 发布于 2007-04-08 16:52:00
不存在加分
5 楼
随便你好 [专家分：530] 发布于 2007-04-08 17:10:00
CLS
INPUT A$
A$ = A$ + " "
A = LEN(A$): DIM D$(A)
FOR I = 1 TO A
B$ = MID$(A$, I, 1)
IF ASC(B$) > 47 AND ASC(B$) < 58 THEN
C$ = C$ + B$
ELSE
IF C$ <> "" THEN D = D + 1: D$(D) = C$: C$ = ""
END IF
NEXT I
FOR I = 1 TO D
SUM = SUM + VAL(D$(I))
PRINT D$(I);
IF I < D THEN PRINT "+";
NEXT I
IF D <> 0 THEN PRINT "=";
PRINT SUM
END
6 楼
天尝地酒 [专家分：870] 发布于 2007-04-08 17:12:00
CLS
INPUT A$
A$ = A$ + " "
A = LEN(A$): DIM D$(A)
FOR I = 1 TO A
B$ = MID$(A$, I, 1)
IF ASC(B$) > 47 AND ASC(B$) < 58 THEN
C$ = C$ + B$
ELSE
IF C$ <> "" THEN D = D + 1: D$(D) = C$: C$ = ""
END IF
NEXT I
FOR I = 1 TO D
SUM = SUM + VAL(D$(I))
PRINT D$(I);
IF I < D THEN PRINT "+";
NEXT I
IF D <> 0 THEN PRINT "=";
PRINT SUM
END
7 楼
蓝莎菲莹 [专家分：370] 发布于 2007-04-08 17:12:00
CLS
INPUT A$:A$=A$+" "
DIM S$(LEN(A$))
FOR I=1 TO LEN(A$)
B$=MID$(A$,I,1)
IF ASC(B$)>47 AND ASC(B$)<58 THEN
C$=C$+B$
ELSE
IF C$<>"" THEN K=K+1:S$(K)=C$
C$=""
END IF
NEXT I
FOR I=1 TO K
SUM=SUM+VAL(S$(I))
PRINT SUM;
IF I<K THEN PRINT "+";
NEXT I
IF K<>0 THEN PRITN "=";
PRINT SUM
END
8 楼
爱丽斯LING [专家分：560] 发布于 2007-04-08 17:15:00
CLS
INPUT A$
A$ = A$ + " "
A = LEN(A$): DIM D$(A)
FOR I = 1 TO A
B$ = MID$(A$, I, 1)
IF ASC(B$) > 47 AND ASC(B$) < 58 THEN
C$ = C$ + B$
ELSE
IF C$ <> "" THEN D = D + 1: D$(D) = C$: C$ = ""
END IF
NEXT I
FOR I = 1 TO D
SUM = SUM + VAL(D$(I))
PRINT D$(I);
IF I < D THEN PRINT "+";
NEXT I
IF D <> 0 THEN PRINT "=";
PRINT SUM
END
我来回复
您所在位置：