工程1-Form1Code) 回区 Co■and1 lick Private Sub commandl_click n=-1 s= Text1. Text 取字符串 Fori=1T0Len(s)按顺序逐个字符岁断 Ift〈"0"rt"9"Thn数 lid(s,,1)取 k=0 非数字,置k=0 E SE If k=0 Then n=n+1‘指向列表框的下一 ★