我是一个VB的初学者.谁愿意帮助我??

用循环作判断呀。
比如用户输入的字符保存到sInput中，
变量暂定为  代码:sCode  类型 :sType 型号:sModel 变量类型可以是数组或集合，则：for i=1 to MaxCount
    if instr(1, sInput,sCode(i)）>0 or instr(1, sInput,sType (i)）>0 or instr(1, sInput,sModel (i)）>0 then
     msgbox "代码为" & scode(i) & "的已存在。",vbImformation
    exit for
    end if
next