mcs/mbas/Test/tests/VariablesB.vb

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