您所在位置：主题：请教这个嵌套怎么执行？急……
kuner2008
[专家分：0] 发布于 2008-05-29 09:46:00
DECLARE SUB COMB(A,B,C)
U=0:X=4
FOR Y=0 TO 4
CALL COMB(X,Y,Z)
U=U+Z
NEXT Y
PRINT U
END
SUB COMB(A,B,C)
IF B=0 OR B>=A THEN
C=1
ELSE
CALL COMB(A-1,B-1,C)
C1=C
CALL COMB(A-1,B,C)
C=C1+C
END IF
END SUB
U=0:X=4
FOR Y=0 TO 4
CALL COMB(X,Y,Z)
U=U+Z
NEXT Y
PRINT U
END
SUB COMB(A,B,C)
IF B=0 OR B>=A THEN
C=1
ELSE
CALL COMB(A-1,B-1,C)
C1=C
CALL COMB(A-1,B,C)
C=C1+C
END IF
END SUB
