trycatch1.vb

来自「大名鼎鼎的mono是.NET平台的跨平台（支持linux」· VB 代码 · 共 14 行

Class TryCatch1
	Sub Test
		Try
			Dim i As Integer
		Catch ex As Exception
			Dim j As Integer
		Catch ex As exception When False
			Dim k As Integer
		Catch When True = True
			Dim l As Integer
		End Try
	End Sub
End Class