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}