mcs/btests/ConstantA.vb

   1 Imports System\r
   2 \r
   3 Module ConstantA\r
   4     Public Const a As Integer = 10\r
   5     Const b As Boolean = True, c As Long = 20\r
   6     Const d = 20\r
   7     Const e% = 10\r
   8     Const f% = 10, g# = 20\r
   9     Sub Main()\r
  10         If a.GetTypeCode() <> TypeCode.Int32 Then\r
  11             Throw New System.Exception("#A1, Type mismatch found")\r
  12         End If\r
  13         If b.GetTypeCode() <> TypeCode.Boolean Then\r
  14             Throw New System.Exception("#A2, Type mismatch found")\r
  15         End If\r
  16         If c.GetTypeCode() <> TypeCode.Int64 Then\r
  17             Throw New System.Exception("#A3, Type mismatch found")\r
  18         End If\r
  19         If d.GetTypeCode() <> TypeCode.Int32 Then\r
  20             Throw New System.Exception("#A4, Type mismatch found")\r
  21         End If\r
  22         If e.GetTypeCode() <> TypeCode.Int32 Then\r
  23             Throw New System.Exception("#A5, Type mismatch found")\r
  24         End If\r
  25         If f.GetTypeCode() <> TypeCode.Int32 Then\r
  26             Throw New System.Exception("#A6, Type mismatch found")\r
  27         End If\r
  28         If g.GetTypeCode() <> TypeCode.Double Then\r
  29             Throw New System.Exception("#A7, Type mismatch found")\r
  30         End If\r
  31     End Sub\r
  32 End Module\r