正文
关于vb.net字符串相似度的信息
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
VB中怎样判断两个字符串是否相等？
可以参考下面的代码：
str1="abcde"
str2=inputbox("请输入一个字符串!")
if str1=str2 then
msgbox "它们是一样的呀!"
else
msgbox "它们是不一样的!"
end if
扩展资料：
VB函数
And 运算符： 执行两个表达式的逻辑连接。
Array 函数： 返回含一数组的变体 。
Asc 函数： 返回字符串首字母的 ANSI 字符代码。
赋值运算符 (=)：给变量或属性赋值。
Description 属性： 返回或者设置说明某个错误的字符串。
Dictionary 对象： 存储数据键、项目对的对象。
Dim 语句： 声明变量并分配存储空间。
除法运算符 (/)： 两数相除并以浮点数格式返回商。
参考资料来源：百度百科-Visual Basic
相关问答
Q1: vb.net如何判断两个字符串是否相似?
用 Like
% = 任意数量的字符
？= 单个字符
类似简易的正规则比对。
具体可参照MSDN
例：(以下代码可以直接放到程序里执行)
dim str as string
str = "abc123"
if str like "a%" then msgbox "yes"
if str like "%a%2%" then msgbox "yes"
if str like "%3" then msgbox "yes"
if str like "%3?" = false then msgbox "no"
Q2: VB如何判断两个字符串的相似度
直接用=号判断，比如
Private Sub Command1_Click()
If InputBox("输入字符串") = "123" Then
GoTo A
Else
GoTo B
End If
A:
Print 1
GoTo C
B:
Print 2
C:
End Sub
Q3: vb.net比较字符串
vb.net规定如果要比较字符串，不能用“=”，strcomp(str1,str2,n)或者string.compare(str1,str2)
例如：
Dim a As String = "c"
Dim b As String = "c"
Dim n As Integer = String.Compare(a, b)
If n = 0 Then
MsgBox("=")
Else
MsgBox("")
End If
Q4: VB计算字符串的相似度，来个可执行文件最好
Function xsd(s1 As String, 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
Next
For i = 1 To l1
For j = 1 To l2
If Mid(s1, i, 1) = Mid(s2, j, 1) Then
t = 0
Else
t = 1
End If
d(i, j) = min3(d(i - 1, j - 1) + t, d(i, j - 1) + 1, d(i - 1, j) + 1)
Next
Next
If l1 l2 Then
xsd = l1
Else
xsd = l2
End If
xsd = 1 - d(l1, l2) / xsd
End Function
Function min3(x1, x2, x3)
If x1 x2 And x1 x3 Then
min3 = x1
ElseIf x2 x3 And x2 x1 Then
min3 = x2
Else
min3 = x3
End If
End Function
Private Sub Command1_Click()
MsgBox "相似度：" FormatPercent(xsd(Text1.Text, Text2.Text), 2, vbTrue)
End Sub
在Text1和Text2分别输入一段文字，再点Command1就会告诉你两段文字的相似度了。
vb.net字符串相似度的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于、vb.net字符串相似度的信息别忘了在本站进行查找喔。
