code102a.txt

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

Public Sub Main () 

  If UCase("Abc") = UCase("aBc") Then Debug.Print "They're equal!"
  If LCase("ABC") = LCase("abc") Then Debug.Print "They're equal!"
  If UCase("abcd") = UCase("abc") Then Debug.Print "They're not equal!"
End Sub