以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于对比两个字符串问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194816)

--  作者:裴保民
--  发布时间:2025/1/17 6:49:00
--  关于对比两个字符串问题
两个字符串都包含大小写字母,怎样对比两个字符串是否完全相同区分大小写呢?
--  作者:y2287958
--  发布时间:2025/1/17 8:04:00
--  

Compare


--  作者:有点蓝
--  发布时间:2025/1/17 9:06:00
--  
If StrComp("Abc", "aBc") Then
    MsgBox("相同")
Else
    MsgBox("不相同")
End If 

--  作者:裴保民
--  发布时间:2025/1/17 12:11:00
--  
Dim zfc As String ="ABcd"
Dim zfc1 As String  = e.Form.Controls("TextBox1").Text
If StrComp(zfc,zfc1) Then
    MessageBox.Show("不正确")
Else
    MessageBox.Show("正确")
End If

怎么不判断呢?随便写一个字符串都正确

--  作者:有点蓝
--  发布时间:2025/1/17 12:18:00
--  
If StrComp(zfc,zfc1) Then
    MessageBox.Show("正确")
Else
    MessageBox.Show("正确")
End If

--  作者:裴保民
--  发布时间:2025/1/17 12:42:00
--  
都变成不正确了
--  作者:有点蓝
--  发布时间:2025/1/17 13:34:00
--  

If StrComp(zfc,zfc1,CompareMethod.Binary) = 0  Then
    MessageBox.Show("正确")
Else
    MessageBox.Show("正确")
End If