mcs/mbas/Test/tests/VariablesB.vb

   1 Imports System\r
   2 \r
   3 Class cls1\r
   4 End Class\r
   5 \r
   6 Module VariableB\r
   7     Dim a As Integer, b As Boolean\r
   8     Dim c, d, e As Long\r
   9     Dim f As String\r
  10     Dim g(5) As Integer\r
  11     Dim h(5, 7) As Long\r
  12     Dim i As New Integer()\r
  13     Dim j(5) As Integer\r
  14     Dim k(5) As Integer\r
  15     Dim l(5), m(6), n(7) As Integer\r
  16     Dim o\r
  17     Dim p As New cls1()
  18     Dim q%, r&, s@, t!, u#
  19     Sub main()
  20         If a.GetTypeCode() <> TypeCode.Int32 Then\r
  21             Throw New System.Exception("#A1, Type mismatch found")\r
  22         End If\r
  23         If b.GetTypeCode() <> TypeCode.Boolean Then\r
  24             Throw New System.Exception("#A2, Type mismatch found")\r
  25         End If\r
  26         If c.GetTypeCode() <> TypeCode.Int64 Then\r
  27             Throw New System.Exception("#A3, Type mismatch found")\r
  28         End If\r
  29         If d.GetTypeCode() <> TypeCode.Int64 Then\r
  30             Throw New System.Exception("#A4, Type mismatch found")\r
  31         End If\r
  32         If e.GetTypeCode() <> TypeCode.Int64 Then\r
  33             Throw New System.Exception("#A5, Type mismatch found")\r
  34         End If\r
  35         f = "abc"\r
  36         If f.GetTypeCode() <> TypeCode.String Then\r
  37             Throw New System.Exception("#A6, Type mismatch found")\r
  38         End If\r
  39         If i.GetTypeCode() <> TypeCode.Int32 Then\r
  40             Throw New System.Exception("#A7, Type mismatch found")\r
  41         End If
  42         If q.GetTypeCode() <> TypeCode.Int32 Then\r
  43             Throw New System.Exception("#A8, Type mismatch found")\r
  44         End If
  45         If s.GetTypeCode() <> TypeCode.Decimal Then\r
  46             Throw New System.Exception("#A9, Type mismatch found")\r
  47         End If
  48         If u.GetTypeCode() <> TypeCode.Double Then\r
  49             Throw New System.Exception("#A10, Type mismatch found")\r
  50         End If
  51     End Sub\r
  52 End Module\r