参考代码
try Dim flag As Boolean = True try Dim i As Integer = "abc" catch exx As exception msgbox(3) flag = False End try If flag = False Then msgbox("中间有错") End Ifcatch ex As exception msgbox(2)finally msgbox(1)End try