mcs/mbas/Test/tests/Variables.vb

   1 Imports System\r
   2 \r
   3 Module Variables\r
   4         Sub Main()\r
   5                 Dim a As Integer\r
   6                 If a<>0 Then\r
   7                         Throw New Exception("Variables : Failed-Error assigning default value to variables")\r
   8                 End If\r
   9                 Dim b 'Default type is Object\r
  10                 If b<>"" Then\r
  11                         Throw New Exception("Variables : Failed-Error in implicit conversion of Object to string")\r
  12                 End If\r
  13                 If b<>0 Then\r
  14                         Throw New Exception("Variables : Failed-Error in implicit conversion of Object to integer")\r
  15                 End If\r
  16                 If b<>0.0 Then\r
  17                         Throw New Exception("Variables : Failed-Error in implicit conversion of Object to double")\r
  18                 End If\r
  19         End Sub\r
  20 End Module\r