个位大大早上好， i 值与 (i-1h) 的值不能正确获取，导致结果计算不正确

q305309847

个位大大早上好，朋友们早上好，最近小弟迷上彩票游戏，想自己统计数据，奈何半路出家，水平着实有限，代码大部分也不是自己写的，

弄了几个小时通过百度chatgpt等给出的建议通过debug方法检查出 i 的值和（i-1，h）的值不正确，导致输出的xx123 判断结果都不正确，
折腾到凌晨无奈发帖求助，还望各位赐教，小弟在这有礼了。

如题，需要判断三种形态  
1邻： i与（i-1，h）不相同，且绝对值为1或者9 ，
2传： i与（i-1，h）其中一个相同。
else
3孤：

dragonthree

看明白了，你的逻辑完全是乱的
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

dragonthree

1。代码要缩进。2。为什么有三个“If i >= 2 Then”？

q305309847

dragonthree 发表于 2023-12-9 13:39
1。代码要缩进。2。为什么有三个“If i >= 2 Then”？

不加这一句会报错下标越界。

q305309847

dragonthree 发表于 2023-12-9 14:18
看明白了，你的逻辑完全是乱的
m1 = 0: n1 = 0: m2 = 0: n2 = 0: m3 = 0: n3 = 0
     For h = 1 To 3

我的代码在对固定的单元格位置判断时而不是对arr（i - 1，h）判断时可以正确判断，比如cells（1，h)  h=1 to 3,
而且我是要判断当前结果  （arr 1 ，1/2/3)分别判断，最后输出的结果为brr(i, 18) = xx1 & xx2 & xx3 ,
现在检测到 i  的值和 i - 1,h  的值都不能正确获取

q305309847

dragonthree 发表于 2023-12-9 14:18
看明白了，你的逻辑完全是乱的
m1 = 0: n1 = 0: m2 = 0: n2 = 0: m3 = 0: n3 = 0
     For h = 1 To 3

仔细排列了一下，我的逻辑确实错了，我漏掉了一部分同时存在相等和绝对值为1和9情况，我在检查检查

q305309847

dragonthree 发表于 2023-12-9 14:18
看明白了，你的逻辑完全是乱的
m1 = 0: n1 = 0: m2 = 0: n2 = 0: m3 = 0: n3 = 0
     For h = 1 To 3

我明白您的意思了，感谢大哥悉心指导，祝大哥天天开心 ，日进斗金 。

q305309847

dragonthree 发表于 2023-12-9 13:39
1。代码要缩进。2。为什么有三个“If i >= 2 Then”？

对不起大哥，我已经改了，一个就够了。

q305309847

q305309847 发表于 2023-12-9 19:19
不加这一句会报错下标越界。

好的大哥，我一定养成缩进代码的好习惯。