[asto]

ج1:
تضيفها الى لست

و بعدين

كود :

xx=list1.listcount-1
for i=0 to xx
text1.text=list1.list(0)
for  for ii=0 to xx
if text1.text = list1.list(ii) then
list1.removeitem(ii)
endif
next ii
x=list1.listcount-1
list1.additem(x)
list1.list(x)=text1.text
next i
للترتيب من خصائص اللست توجد خاصية stored اجعلها true
ج2: تضع المصفوفة في لست ثم
text2.text =list1.listcount