200分懸賞VisualFoxPro編程程序：將輸入的N位數拆開成N個數(比如1234拆成1 2 3 4)

input?"輸入："?to?sr

csr=ALLTRIM(STR(sr))

cd=LEN(csr)

DIMENSION?myarrayname(cd)

FOR?m=1?TO?cd

myarrayname(m)=INT(VAL(SUBSTR(csr,m,1)))

myarrayname(m)

endf

上一篇:學習51單片機時用什麽軟件編寫程序代碼啊

下一篇:編程輸出二百到四百的所有奇數（要求每行輸出五個）及這些奇數的和