Question

用VF语言编写程序给N个个位数例如求出前面的减去后面的数值如果前面的小于后面的刚前面的数加9减去后面的（这样减的答案肯定

Answer 1

accept '输入个位数' to k

n=len(k)

DIMENSION M(10)

DIMENSION S(n)

M=' '

for i=1 to n-1

IF VAL(SUBSTR(K,I,1))>=VAL(SUBSTR(K,I+1,1))

A=VAL(SUBSTR(K,I,1))-VAL(SUBSTR(K,I+1,1))

ELSE

A=9+VAL(SUBSTR(K,I,1))-VAL(SUBSTR(K,I+1,1))

ENDIF

M(I)=STR(A,1)

S(I)=STR(I,2)

FOR J=1 TO I-1

IF M(J)=M(I)

M(I)=' '

S(I)=' '

EXIT

ENDIF

ENDFOR

ENDFOR

FOR I=1 TO 10

IF M(I)' '

? M(I)+': '

? S(I)

ENDIF

ENDFOR