VB 2010 （25）Try语句

https://docs.microsoft.com/zh-cn/dotnet/visual-basic/language-reference/statements/try-catch-finally-statement

Exception.InnerException 属性

https://docs.microsoft.com/zh-cn/dotnet/api/system.exception.innerexception?view=netframework-4.8#System_Exception_InnerException

Exception.TargetSite 属性

https://docs.microsoft.com/zh-cn/dotnet/api/system.exception.targetsite?view=netframework-4.8#System_Exception_TargetSite

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sngAvg As Single
        sngAvg = GetAverage(0, 100)
    End Sub
    
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim sngAvg As Single
        sngAvg = GetAverage2(0, 100)
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Try
            Dim sngAvg As Single
            sngAvg = GetAverage3(0, 100)
        Catch exc As Exception
            MessageBox.Show("Back in the click event after an error")
        Finally
            MessageBox.Show("Finally block in clidk event")
        End Try
    End Sub

    Private Function GetAverage(ByVal iItems As Integer, ByVal iTotal As Integer) As Single
        Try
            Dim sngAverage As Single
            sngAverage = CSng(iTotal \ iItems)
            MessageBox.Show("Calculation successful.")
            Return sngAverage
        Catch ex As Exception
            MessageBox.Show("Calculation unsuccessful-exeption caught")
            Return 0
        End Try
    End Function

    Private Function GetAverage2(ByVal iIte