7 Dim a As Integer, b As Boolean
\r
12 Dim i As New Integer()
\r
15 Dim l(5), m(6), n(7) As Integer
\r
18 Dim q%, r&, s@, t!, u#
20 If a.GetTypeCode() <> TypeCode.Int32 Then
\r
21 Throw New System.Exception("#A1, Type mismatch found")
\r
23 If b.GetTypeCode() <> TypeCode.Boolean Then
\r
24 Throw New System.Exception("#A2, Type mismatch found")
\r
26 If c.GetTypeCode() <> TypeCode.Int64 Then
\r
27 Throw New System.Exception("#A3, Type mismatch found")
\r
29 If d.GetTypeCode() <> TypeCode.Int64 Then
\r
30 Throw New System.Exception("#A4, Type mismatch found")
\r
32 If e.GetTypeCode() <> TypeCode.Int64 Then
\r
33 Throw New System.Exception("#A5, Type mismatch found")
\r
36 If f.GetTypeCode() <> TypeCode.String Then
\r
37 Throw New System.Exception("#A6, Type mismatch found")
\r
39 If i.GetTypeCode() <> TypeCode.Int32 Then
\r
40 Throw New System.Exception("#A7, Type mismatch found")
\r
42 If q.GetTypeCode() <> TypeCode.Int32 Then
\r
43 Throw New System.Exception("#A8, Type mismatch found")
\r
45 If s.GetTypeCode() <> TypeCode.Decimal Then
\r
46 Throw New System.Exception("#A9, Type mismatch found")
\r
48 If u.GetTypeCode() <> TypeCode.Double Then
\r
49 Throw New System.Exception("#A10, Type mismatch found")
\r