mcs/mbas/Test/tests/VariablesC.vb

   1 Imports System
   2
   3 Class cls
   4 End Class
   5
   6 Module VariableC
   7     Dim a As Integer = 10
   8     Dim b As String = "abc"
   9     Dim c As cls = New cls()
  10
  11
  12     Dim e() As Integer = {1, 2, 3, 4, 5}
  13
  14     Sub Main()
  15         Console.WriteLine(b)
  16
  17         If a <> 10 Then
  18             Throw New Exception("#A1, value mismatch")
  19         End If
  20         If b <> "abc" Then
  21             Throw New Exception("#A2, value mismatch")
  22         End If
  23
  24
  25
  26     End Sub
  27 End Module