mcs/btests/VariablesC.vb

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