private sub Command1_Click() dim i as Integer for i=0 to list1.listcount-1 if instr(list1.list(i),"这里填入你要查找的内容")<>0 then text1.text=list1.list(i) exit for end if next i end sub
第2个回答 2010-02-17
private sub Command1_Click() dim i% for i=0 to list1.listcount-1 if instr(list1.list(i),"dsfk")<>0 then text1.text=list1.list(i) exit for end if next i end sub本回答被提问者采纳