导航：首页 > 互联网科技 >

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

发表于：2025-01-23 作者：千家信息网编辑

千家信息网最后更新 2025年01月23日，今天就跟大家聊聊有关type使用方法以及萨姆森异常捕获，可能很多人都不太了解，为了让大家更加了解，小编给大家总结了以下内容，希望大家根据这篇文章可以有所收获。自定义数据类型为了使得我们自定义的数据类型

千家信息网最后更新 2025年01月23日type使用方法以及萨姆森异常捕获

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

自定义数据类型

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

案例：

定义一个学生的数据类型

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

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

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

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

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

补充异常捕获的异常描述

使用Err关键字

Err.Description表示错误描述

课堂总结

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

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

3、学会排错，异常捕获

4、异常信息的输出

本期界面：

本期源代码：

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