mcs/mbas/Test/errors/ExceptionHandlingC15.vb

   1 REM LineNo: 16
   2 REM ExpectedError: BC30384
   3 REM ErrorMessage: 'Try' must end with a matching 'End Try'
   4
   5 REM LineNo: 16
   6 REM ExpectedError: BC30030
   7 REM ErrorMessage: Try must have at least one 'Catch' or a 'Finally'
   8
   9 Imports System
  10
  11 Module ExceptionHandlingC15
  12
  13     Sub Main()
  14
  15         Dim i As Integer = 0
  16         Try
  17             i = 1 / i
  18
  19     End Sub
  20
  21 End Module
  22