Question

谁能将这段代码改成VB6？

代码及用途详见
http://blog.csdn.net/grenet/archive/2009/09/08/4533116.aspx

看不懂VB2005,请帮忙改成VB6，谢谢！

Answer 1

你就慢慢等吧，0分的题，这么多代码，没人会干的！
我只能说大概给你讲讲（改是不可能的，除非重编，因为是不同的语言）：
Public Class clsCalculateStringDistanceEx
表明是个自定义类
Private mStringA As String
你可以把它理解为DIM MSTRINGA AS STRING
Private Function CalculateStringDistance(ByVal StartLower As Integer) As Integer
定义一个函数，返回值为整型
Dim LA As Integer = mStringA.Length
这个等于 DIM LA AS INTEGER:LA =MSTRINGA.LENGTH
AddToDic(LA + 1, LB + 1, 0)
是带入函数，但函数体就在它下面，后面的就都是函数了。
Implements 是接口