Question

vb 音乐播放器

首先，说一下功能。能搜索，能在线播放，能下载！我做过一个，但是搜索都不太准确，而且搜索结果和想要搜索的歌大相径庭！
迅蓝团队第二大作”迅蓝音乐（Music of Centlan）”6月28日迅蓝首发！

Answer 1

Public Const 长度偏差 = 3
public const 布尔定义 = 80
'常数根据需要自行设置
Public Function SimilarityRatio(str1 As String, str2 As String) As String
If Len(str1) - Len(str2) < 长度偏差 And Len(str1) - Len(str2) > -长度偏差 Then
For i = 1 To Len(str1)
Str1EqualStr2 = Mid(str1, i, 1) Like Mid(str2, i, 1)
If Str1EqualStr2 Then Counter = Counter + 1
Next
SimilarityRatio = CCur(Counter / Len(str1)) * 100& & "%" '要不要"%"都可以,我弄上"%"只是为了方便看而已
End If
'返回一个百分数,指出两个字符串的相似百分比
End Function

Public Function 判断(Percentage) As Boolean
Select Case Percentage
Case Is < 布尔定义
判断 = False
Case Is >= 布尔定义
判断 = True
End Select
End Function

呃，百度音乐到从来没碰过，你可以设定一下那些常数来匹配要求
当然，这个函数太简单了，你可以使它更人性化

Answer 2

这个有点麻烦!

追问

6月28日哦！讯蓝首发！