写一个函数

函数是在执行期间将被多次调用的代码块。可以在函数内部编写此代码，并在需要时调用该函数，而不是一次又一次地编写同一段代码。

功能：

• 必须在类或模块中声明
• 返回一个值（由返回类型指定）
• 有修饰语
• 可以通过参数来进行处理

Private Function AddNumbers(X As Integer, Y As Integer) As Integer
    Return X + Y
End Function

函数名称可以用作 return 语句

Function sealBarTypeValidation() as Boolean
    Dim err As Boolean = False

    If rbSealBarType.SelectedValue = "" Then
        err = True
    End If

    Return err
End Function

和…一样

Function sealBarTypeValidation() as Boolean
    sealBarTypeValidation = False        

    If rbSealBarType.SelectedValue = "" Then
        sealBarTypeValidation = True
    End If

End Function