就是下面这个程序,查1470369258最后三位的位置总是返回0,s(I)是数组,公用的,高手给看一下呀,谢谢
Sub 判断201()
For I = 1 To 3

If InStr("1470369258", s(I)) <= 3 Then
R(I) = 1
R1(I) = R2(I) + 1
ElseIf InStr("1470369258", s(I)) > 3 <= 7 Then
R(I) = 0
R0(I) = R0(I) + 1
ElseIf InStr("1470369258", s(I)) > 7 Then
R(I) = 2
R2(I) = R1(I) + 1
End If
Next I
End Sub