[已回复] 这种函数怎么写？

if findcolor（0,0,0,0，“FFFFFF” ，0.9） and findcolor（0,0,0,0，“FFFFFF” ，0.9） and  findcolor（0,0,0,0，“FFFFFF” ，0.9）    then

     showmessage “找到了！”

end if

if findcolor（0,0,0,0，“FFFFFF” ，0,0,0,0，“FFFFFF” ，0,0,0,0，“FFFFFF” ） then

     showmessage “找到了！”

end if

Function zhaotu(var1,var2,var3,var4,var5,var6,var7,var8,var9,var10,var11,var12,var13,var14,var15)
	
     Dim ret1,ret2,ret3
     Dim 返回值
		
     ret1 = Array(var1, var2, var3, car4, var5)
     ret2 = Array(var6, var7, var8, car9, var10)
     ret3 = Array(var11, var12, var13, car14, var15)	

     If FindColor(ret1(0), ret1(1), ret1(2), ret1(3), ret1(4), 0.9) And FindColor(ret2(0), ret2(1), ret2(2), ret2(3), ret2(4), 0.9) And FindColor(ret3(0), ret3(1), ret3(2), ret3(3), ret3(4), 0.9) Then 
          返回值 = True
     Else 
          返回值 = False
     End If
		
     zhaotu() = 返回值 

	
End Function

Dim colorTb={_
{1,1,1,1,"FFFFFF"}_
,{2,2,2,2,"FFFFFF"}_
,{3,3,3,3,"FFFFFF"}_
,{4,4,4,4,"FFFFFF"}_
,{5,5,5,5,"FFFFFF"}_
}
If FindColorEx(colorTb) Then 
    TracePrint "满足条件"
Else 
    TracePrint "不满足条件"
End If
Function FindColorEx(tb)
    Dim x,y
    FindColorEx = True
    For Each k , v In tb
        If FindColor(v[1], v[2], v[3], v[4], v[5], 0, 0.9, x, y) = -1 Then 
            FindColorEx = False
            Exit For
        End If
    Next
End Function