甜橘子，专注成都网站制作网站设计与营销型网站建设与优化

QQ :532337155
电话：028-86922220
 
成都网站建设设计

将想法与焦点和您一起共享

type使用方法以及萨姆森异常捕获

今天就跟大家聊聊有关type使用方法以及萨姆森异常捕获，可能很多人都不太了解，为了让大家更加了解，小编给大家总结了以下内容，希望大家根据这篇文章可以有所收获。

双辽网站制作公司哪家好，找成都创新互联！从网页设计、网站建设、微信开发、APP开发、响应式网站等网站项目制作，到程序开发，运营维护。成都创新互联于2013年创立到现在10年的时间，我们拥有了丰富的建站经验和运维经验，来保证我们的工作的顺利进行。专注于网站建设就选成都创新互联。

自定义数据类型

为了使得我们自定义的数据类型在各个sub中使用，就把它定义在通用中，即作为全局变量。

案例：

定义一个学生的数据类型

学生属性：学号、姓名、性别、年龄

建议将自定的 名称的首字母大写，并且不要用中文，自定义的名称的规范就按照变量命名规范

自定义数据类型往往比较喜欢跟数组一起连用

自定义数据类型，其实往往都是定义的是类似于一个对象

注：自定义数据类型，要求私有Private

补充异常捕获的异常描述

使用Err关键字

Err.Description表示错误描述

课堂总结

1、学会自定义数据类型type

2、掌握数据类型的注意点

3、学会排错，异常捕获

4、异常信息的输出

本期界面：

type使用方法以及萨姆森异常捕获

本期源代码：

Private Type Student
    sno As Long '学号    sname As String '姓名    ssex As String '性别    sage As Integer '年龄
End Type
Dim stu() As Student
Private Sub Command1_Click()
ReDim stu(2) As Student
stu(0).sno = 1stu(0).sname = "丁丁"stu(0).ssex = "男"stu(0).sage = 10
stu(1).sno = 2stu(1).sname = "冬冬"stu(1).ssex = "女"stu(1).sage = 11
stu(2).sno = 3stu(2).sname = "小刚"stu(2).ssex = "男"stu(2).sage = 10MsgBox "学生载入成功", vbApplicationModal, "通知"End Sub
Private Sub Command2_Click()On Error GoTo catchtry:Dim i%For i = 0 To UBound(stu) Step 1
    Print "学号：" & stu(i).sno _        & " 姓名：" & stu(i).sname _        & " 性别：" & stu(i).ssex _        & " 年龄：" & stu(i).sage
Next iGoTo finallycatch:MsgBox "请先载入学生！", vbCritical, "消息"finally:
End Sub

看完上述内容，你们对type使用方法以及萨姆森异常捕获有进一步的了解吗？如果还想了解更多知识或者相关内容，请关注创新互联行业资讯频道，感谢大家的支持。


网站栏目：type使用方法以及萨姆森异常捕获
本文来源：http://chengdu.cdxwcx.cn/article/ihccsi.html

其他资讯