vb System.Char.ToUpper类(方法)实例源码

' 导入命名空间
Imports System.Globalization

Module Example
   Public Sub Main()
      Dim cultures() As CultureInfo = { CultureInfo.CreateSpecificCulture("en-US"), 
                                        CultureInfo.InvariantCulture, 
                                        CultureInfo.CreateSpecificCulture("tr-TR") }
      Dim chars() As Char = {"ä"c, "e"c, "E"c, "i"c, "I"c }

      Console.WriteLine("Character     en-US     Invariant     tr-TR")
      For Each ch In chars
         Console.Write("    {0}", ch)
         For Each culture In cultures
            Console.Write("{0,12}", Char.ToUpper(ch, culture))
         Next
         Console.WriteLine()
      Next   
   End Sub
End Module

Module Example
   Public Sub Main()
      Dim chars() As Char = { "e"c, "E"c, "6"c, ","c, "ж"c, "ä"c }
      For Each ch In chars
         Console.WriteLine("{0} --> {1} {2}", ch, Char.ToUpper(ch),
                           If(ch = Char.ToUpper(ch), "(Same Character)", ""))
      Next
   End Sub
End Module

' 导入命名空间
Imports System

Public Class MainClass

   Shared Sub Main()
      Console.WriteLine("to upper case: " & Char.ToUpper("aaa") )
  End Sub ' Main

End Class