function istrue(arr,str)for i=0 to ubound(arr)if str=arr(i) thenistrue="数组第"&i&"条记录为"&strelseistrue="数组不包含"&strend ifnextend functionstr
