mcs/btests/CharacterLiteralsC1.vb

   1 Imports System
   2 Module CharacterLiteral
   3         Sub Main()
   4                 Try
   5                         Dim a As Char="R"c
   6                         Dim b As Char="W"c
   7                         Dim i As Char=23
   8                         Dim bl As Char=True
   9                         Dim f As Char=1.23
  10                         Dim c As Char
  11                         Dim d As Char
  12                         c=a+b
  13                         d=a*b
  14
  15                 Catch e As Exception
  16                 End Try
  17         End Sub
  18 End Module