vb问题 如：str(123456)和 str(353497) 返回2

来源：百度知道 编辑：UC知道 时间：2024/05/04 16:04:20
如：str(123456)
str(353497)
能返回2这个值，vb中有没这种函数，讲解一下。
第3和4位数是相同的，所以返回2，在线等！！！！！！

函数如下，调用的时候用 ff(数字1, 数字2)
例如：MsgBox ff(123456, 353497)就弹对话框，内容是2

Function ff(fa As Long, fb As Long)
ff = 0
For i = 1 To Len(fa)
If Mid(fa, i, 1) = Mid(fb, i, 1) Then ff = ff + 1
Next
End Function