mcs/mbas/Test/tests/Variables.vb

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