模块：

        '相似度使用方法   xx = Replace(FormatPercent(xsd(Text1.Text, Text2.Text), 0, vbTrue), "%", "")

        Public Function xsd(ByVal s1 As String, ByVal s2 As String) As Double

        Dim d() As Integer, l1 As Integer, l2 As Integer

        Dim i As Integer, j As Integer, T As Integer

        l1 = Len(s1)

        l2 = Len(s2)

        ReDim d(l1, l2)

        For i = 0 To l1

            d(i, 0) = i

        Next

        For i = 0 To l2

            d(0, i) = i

        Ne。。。。。。。。。。。。。。