求一个去重复的程序 双色球
有一组双色球号码01 32 03 04 12 03 23 24 23 24 26 去掉重复的 并按从小到大排列
程序代码：Clear
lcString = "01 32 03 04 12 03 23 24 23 24 26"
lnCount = Getwordcount(lcString, " ")
Create Cursor temp (aa c(3))
For m.i = 1 To lnCount
Insert Into temp (aa) Values (Getwordnum(lcString, m.i, " "))
Next
Select distinct aa From temp Order By aa Into Cursor tmp
Scan
?? tmp.aa
Endscan
