ElseIf zf1<>zf2 VBS zf=zf1&zf2 VBS is2=InStr(dan(0),zf) If is2>0 VBS jguo=Left(dan(0),2):weizhi=1 Else VBS is2=InStr(dan(1),zf) If is2>0 VBS jguo=Left(dan(1),2):weizhi=2 Else VBS is2=InStr(dan(2),zf) If is2>0 VBS jguo=Left(dan(2),2):weizhi=3 Else VBS is2=InStr(dan(3),zf) If is2>0 VBS jguo=Left(dan(3),2):weizhi=4 Else VBS is2=InStr(dan(4),zf) If is2>0 VBS jguo=Left(dan(4),2):weizhi=5 Else VBS is2=InStr(dan(5),zf) If is2>0 VBS jguo=Left(dan(5),2):weizhi=6 Else //只识别了一位zf1 VBS is2=InStr(dan(2),zf1) If is2>0 VBS jguo=Left(dan(2),2):weizhi=3 Else VBS is2=InStr(dan(4),zf1) If is2>0 VBS jguo=Left(dan(4),2):weizhi=5 Else VBS is2=InStr(dan(3),zf1) If is2>0 VBS jguo=Left(dan(3),2):weizhi=4 Else VBS is2=InStr(dan(1),zf1) If is2>0 VBS jguo=Left(dan(1),2):weizhi=2 Else VBS is2=InStr(dan(5),zf1) If is2>0 VBS jguo=Left(dan(5),2):weizhi=6 Else VBS is2=InStr(dan(0),zf1) If is2>0 VBS jguo=Left(dan(0),2):weizhi=1 Else //只识别了一位zf2 VBS is2=InStr(dan(2),zf2) If is2>0 VBS jguo=Left(dan(2),2):weizhi=3 Else VBS is2=InStr(dan(4),zf2) If is2>0 VBS jguo=Left(dan(4),2):weizhi=5 Else VBS is2=InStr(dan(3),zf2) If is2>0 VBS jguo=Left(dan(3),2):weizhi=4 Else VBS is2=InStr(dan(1),zf2) If is2>0 VBS jguo=Left(dan(1),2):weizhi=2 Else VBS is2=InStr(dan(5),zf2) If is2>0 VBS jguo=Left(dan(5),2):weizhi=6 Else VBS is2=InStr(dan(0),zf2) If is2>0 VBS jguo=Left(dan(0),2):weizhi=1 Else VBS jguo=Left(dan(2),2):weizhi=3 //连一个都找不对就默认答案3 EndIf EndIf EndIf EndIf EndIf EndIf // EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf Return {luweijile}