vb问题，如：val1(456123) 和 val2(123789) 返回3

来源：百度知道 编辑：UC知道 时间：2024/07/08 19:43:17
Vb中有这种函数吗？如：val1(456123) 和 val2(123789) 返回3
因为val1中和val2中有相同的数值就是：123
所以是返回3 请问：Vb中有这种函数吗？
在线等..........
你怎么用我上次问的问题的答案回答我这次的问题啊！上次的行，但这次不行!给个正确的答案来吧!!!!!!

要用自定义函数，函数如下，调用格式为： ff(数字1, 数字2)

例如：MsgBox ff(456123, 123789)就弹对话框，内容是3

Function ff(ByVal a As Long, ByVal b As Long)
fa = Trim(Str(a))
fb = Trim(Str(b))
ff = 0
For i = 1 To Len(fa)
If InStr(1, fb, Mid(fa, i, 1)) Then ff = ff + 1
Next
End Function

刚才写错，修改了一下，现在好了