我的程序出现低级奇怪问题 请求帮助

Question

Dim a As String
            Dim b As String
            Dim k As Integer
            dim flag as boolean
            dim ss as string
            dim st as string
            flag = True
            p = Len(ss)
          For i1 = 1 To p
            k = 0
            a = Mid(ss, i1, 1)
            b = Mid(st, i1, 1)
            If a > b Then    '如果ss的第i1个字符比st的第i1个字符大 那么退出循环
             flag = False
             Exit For
            Else
             If a = b Then  ' 如果ss的第i1个字符和st的第i1个字符一样 那么k加一
              k = k + 1
             End If
            End If
        Next i1
           If flag = False Then
            ff = 0
           Else
            ff = k / p
           End If
           
        End If
        
        sc_fx = sc_fx + ff * sc
    Next
我监视k 当k=1时中断 没有中断
但是我监视 a=b 当a=b时中断 中断了，我很不明白这是什么回事。
救命阿

Answer 1

没看清楚，先问一下，你的大小写是否一样，不一样加option compare text

Answer 2

测试数据ss="AB"
        st="B"
这里ff不是该等于0.5吗？
我的程序运行结果是0？？