您所在位置：主题：关于WHILE......WEND语句的求助
dfljz
[专家分：10] 发布于 2009-01-24 17:26:00
ＩＮＲＵＴ a$,b$
La=len(a$)
Lb+LEN(b$)
Lc=La+Lb
DIMa(La),b(Lb),c(Lc)
FORi=1TO La:FOR j=1TO Lb
x=a(i)*b(j):w=i+j-1
c(w)=c(w)+xMOD10
C(W+1)=C(W+1)+C(W)\10+X\10
C(W)=C(W)MOD10
NEXT j,i
PRINTa$;"*";b$;"="
WHILE c(Lc)=0
Lc=Lc-1
WEND
FORi=Lc TO 1 STEP -1
PRINT USING "#";c(i)
NEXT I
PRINT
END
请问＂ＷＨＩＬＥ．．．．．．ＷＥＮＤ＂程序段是何意？[em18]
La=len(a$)
Lb+LEN(b$)
Lc=La+Lb
DIMa(La),b(Lb),c(Lc)
FORi=1TO La:FOR j=1TO Lb
x=a(i)*b(j):w=i+j-1
c(w)=c(w)+xMOD10
C(W+1)=C(W+1)+C(W)\10+X\10
C(W)=C(W)MOD10
NEXT j,i
PRINTa$;"*";b$;"="
WHILE c(Lc)=0
Lc=Lc-1
WEND
FORi=Lc TO 1 STEP -1
PRINT USING "#";c(i)
NEXT I
END
请问＂ＷＨＩＬＥ．．．．．．ＷＥＮＤ＂程序段是何意？[em18]
