Jangogo ： 

支持 VB , VBS  及 SC
  

VB
  1. Dim aa As Variant, bb() As String, prt As Variant  
  2.      
  3.   
  4.   aa = Array("刘畅", "李辉", "张丰", "王强", "张家佳", "牛宏伟", "赵志国", "宋伟明", "刘方", "姚辰程", "陈晨", "孙伟", "侯言书", "张逸凡", "韩强", "金泽佑", "谭梅", "吕南", "王刚", "李欢欢", "马晟辉")   
  5.   bb = Filter(aa, Text1.Text, True, vbTextCompare)  '搜索符合条件的字符   
  6.   
  7.   For Each prt In bb   
  8.   
  9.       MsgBox (prt)   
  10.   
  11.   Next  
2012年02月12日 20:35
回复(0)分类(1)转发(0)
文档中心
Copyright © 2000-2016 粤ICP05021785号
地址：广州市天河区员村二横路8号全丰商业大厦808室 邮编：510600