看明白了,你的逻辑完全是乱的
m1 = 0: n1 = 0: m2 = 0: n2 = 0: m3 = 0: n3 = 0
For h = 1 To 3
If arr(i, 1) = arr(i - 1, h) Then
m1 = m1 + 1
Else
If (Abs(arr(i, 1) - arr(i - 1, h)) = 1 Or Abs(arr(i, 1) - arr(i - 1, h)) = 9) Then
n1 = n1 + 1
End If
End If
If arr(i, 2) = arr(i - 1, h) Then
m2 = m2 + 1
Else
If (Abs(arr(i, 2) - arr(i - 1, h)) = 1 Or Abs(arr(i, 2) - arr(i - 1, h)) = 9) Then
n2 = n2 + 1
End If
End If
If arr(i, 3) = arr(i - 1, h) Then
m3 = m3 + 1
Else
If (Abs(arr(i, 3) - arr(i - 1, h)) = 1 Or Abs(arr(i, 3) - arr(i - 1, h)) = 9) Then
n3 = n3 + 1
End If
End If
Next
If m1 = 0 Then
If n1 = 0 Then
xx1 = "孤"
Else
xx1 = "邻"
End If
Else
xx1 = "传"
End If
|