CLEAR
SET TALK OFF
Local i,j
Dime A(i,j)
For nRow = 1 To i
A(nRow,1) = 1
For nCol = 2 To nRow - 1
A(nRow,nCol) = A(nRow - 1,nCol - 1) + A(nRow - 1,nCol)
EndFor
A(nRow,nRow) = 1
EndFor
For m = 1 To i
cc = ''
For n = 1 To m
cc = cc + alltrim(Str(A(m,n))) + ' '
EndFor
? Padc(cc,100)
EndFor
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024