用 Option Compare 来指定二进制比较或文本比较。在英文中,二进制比较要区分大小写;文本比较则不区分大小写。
Option Explicit
'Option Compare Binary '区分大小写,不等
'Option Compare Text '不区分大小写,相等
Private Sub Command1_Click()
Dim s1, s2
s1 = "A"
s2 = "a"
If s1 = s2 Then
MsgBox "相等"
Else
MsgBox "不等"
End If
End Sub
分别注释掉上面的一条 Option Compare语句试一下,可以得到不同的结果