我想做一个比较两组数字串或者字符串相似程度的程序

想破头皮正烦恼中，愿能人帮助。我查遍了课本，没有发现能直接求得两个数串相似位数的函数。如果有请告知，然后想用for语句把对应位置的字母或数字抽出来逐一做比较，无奈这个调数字进行比较的语句又不会写，更不要说结合for语句了。本人初学者，不过对编程很热爱。望多指点 谢

我想做一个比较两组数字串或者字符串相似程度的程序

通过程序比较出两个字符串或数串 相同的位数
比如 222和 229的相同位数是2 第一和第二位

应该是用for语句吧，请高手帮帮忙

Private Sub Command1_Click()
Dim a As String
Dim b As String
Dim s As Integer
a = "225"
b = "229"
Dim i As Integer
For i = 1 To 3
If Mid$(a, i, 1) = Mid$(b, i, 1) Then
s = s + 1
End If
Next
Print s
End Sub

如果有许多数串与同一个数串比较 程序该如何写

如果有许多数串与同一个数串比较 程序该如何写