基础动态规划

设输入文件为C盘根目录下的1.TXT
CLS
OPEN"C:\1.txt" FOR INPUT AS #1
INPUT #1,n
DIM a$(n)
FOR i=1 TO n
    INPUT #1,a$(i)
NEXT i
FOR i=1 TO n-1:FOR j=i+1 TO n
    IF LEN(a$(i))>LEN(a$(j)) THEN SWAP a$(i),a$(j)
NEXT j,i
m=LEN(a$(1)):t$=""
FOR i=1 TO m
    FOR j=1 TO m+1-i
        s$=MID$(a$(1),i,j):f=1
        FOR k=2 TO n
            IF INSTR(a$(k),s$)=0 THEN f=0:EXIT FOR
        NEXT k
        IF f=1 AND LEN(s$)>LEN(t$) THEN t$=s$
NEXT j,i
IF t$="" THEN PRINT"Not found.":END
PRINT t$
END

哪位同学学到基础动态规划的时候盼望能向我讲解一下.