mcs/mbas/Test/errors/ExceptionHandlingC6.vb

   1 REM LineNo: 18
   2 REM ExpectedError: BC30451
   3 REM ErrorMessage: Name 'j' is not declared
   4
   5 Imports System
   6
   7 Module ExceptionHandlingC6
   8
   9     Sub Main()
  10         Dim i As Integer
  11         Try
  12             Dim j As Integer = 2
  13             i = j / i
  14             i = 3
  15             Console.WriteLine(i)
  16         Catch e As Exception When i = 0
  17             j = 3    ' Local varables from a Try block are not available in Catch block
  18             Console.WriteLine(e.Message)
  19         Finally
  20             j = 4    ' Local varables from a Try block are not available in Finally block
  21         End Try
  22     End Sub
  23
  24 End Module
  25