4 Public Const a As Integer = 10
\r
5 Const b As Boolean = True, c As Long = 20
\r
8 Const f% = 10, g# = 20
\r
10 If a.GetTypeCode() <> TypeCode.Int32 Then
\r
11 Throw New System.Exception("#A1, Type mismatch found")
\r
13 If b.GetTypeCode() <> TypeCode.Boolean Then
\r
14 Throw New System.Exception("#A2, Type mismatch found")
\r
16 If c.GetTypeCode() <> TypeCode.Int64 Then
\r
17 Throw New System.Exception("#A3, Type mismatch found")
\r
19 If d.GetTypeCode() <> TypeCode.Int32 Then
\r
20 Throw New System.Exception("#A4, Type mismatch found")
\r
22 If e.GetTypeCode() <> TypeCode.Int32 Then
\r
23 Throw New System.Exception("#A5, Type mismatch found")
\r
25 If f.GetTypeCode() <> TypeCode.Int32 Then
\r
26 Throw New System.Exception("#A6, Type mismatch found")
\r
28 If g.GetTypeCode() <> TypeCode.Double Then
\r
29 Throw New System.Exception("#A7, Type mismatch found")
\r