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许可证，提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案，具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势，专为企业上云打造定制，能够满足用户丰富、多元化的应用场景需求。

分享题目：Visual.Basic语法基础之四-创新互联
文章分享：http://whjierui.cn/article/gooce.html