主题：请教两个字符串比较相似度思路？

Dim sa As String = "abcdek"
Dim sb As String = "cedmnk"
Dim c As Integer
For i As Integer = 0 To sa.Length - 1
   For j As Integer = 0 To sb.Length - 1
      If sa(i) = sb(j) Then
         c + = 1
      End If
   Next
Next
MessageBox.Show("有百分之" & Format(c/sa.Length*100,"#0.00") & "字符相同")

把产品目录传上来，看看其中有无规律，根据规律减少循环判断的次数。