code96a.txt

来自「VB大全（精华版）源代码」· 文本 代码 · 共 11 行

Public Sub Main ()
AllCaps = "JOHN"
NoCaps = "john"

If AllCaps = NoCaps then 		' Now they are evaluated as the same
  Debug.Print "These are the same name."
Else
   Debug.Print "These are not the same name."
End If
End Sub