代码在VFP9运行时出现错误
程序代码：clear
Local lcstr,lcma,lns
LOCAL ARRAY lastr(50) as Character
lcstr="01 02 05 07 08 09 21 33 45 32 11 12 12 12 12 12 49 49 49 32 32 11 13 14 15 16 40 39 17 18 19 36 37 38 40 40 45 46 14 15 16 17 18 19 41 42 43 43 43 43"
lastr=[]
For i=1 To 50
lcma=Padl(i,2,'0')
lns=Occurs(lcma,lcstr)
lastr(lns+1) = lastr(lns+1) + lcma+' '
Endfor
?[统计结果：]
For i=1 To 10
If !Empty(lastr(i))
?'{'+Padl(i-1,2)+'次}: '+[(]+lastr(i)+[码)]+Chr(13)
Endif
Endfor该段代码为什么在VFP9下运行时出现错误[ 本帖最后由 sdta 于 2013-1-24 14:22 编辑 ]
