Visual.Basic语法基础之四-创新互联

1、过程

Public|Private Sub 过程名(形参, ...)

    ...

End Sub

注：Exit Sub强制退出过程

2、函数

Public|Private Function 函数名(形参, ...) As 返回数据类型

    ...

    函数名=返回值

End Function

注：Exit Function强制退出函数

3、类模块

 Private 变量名 As 数据类型

 Property Get 属性名() As 属性类型

    属性名=变量名

 End Property

 Property Let 属性名（ByVal 形参名 As 数据类型）

    变量名＝形参名

 End Property

 Property Set 属性名（ByVal 形参名 As 数据类型）

   ...

 End Property

4、异常处理

 On Error GoTo 标签

 ...

 Exit Sub

 标签:

 ...

 Err.clear

另外有需要云服务器可以了解下创新互联scvps.cn，海内外云服务器15元起步，三天无理由+7*72小时售后在线，公司持有idc许可证，提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案，具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势，专为企业上云打造定制，能够满足用户丰富、多元化的应用场景需求。