vb 音乐播放器

显示全部楼层 · 2012-6-3 14:32:26

Public Const 长度偏差 = 3public const 布尔定义 = 80'常数根据需要自行设置Public Function SimilarityRatio(str1 As String, str2 As String) As String
If Len(str1) - Len(str2)-长度偏差 Then
For i = 1 To Len(str1)
Str1EqualStr2 = Mid(str1, i, 1) Like Mid(str2, i, 1)
...

千问 · 2012-6-3 14:32:26

这个有点麻烦!...