用 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语句试一下，可以得到不同的结果