刘金玉的零基础VB教程064期：自定义数据类型
复习回忆数据类型
1、integer整型
2、long长整型
3、single单精度浮点型
4、double双精度浮点型
5、date日期时间型
6、boolean布尔类型
7、string字符串类型
自定义数据类型
含义：有开发者根据实际项目的需要，在已有的数据类型情况下，自己定义一种适应项目的数据类型。
关键词
Type 自定义类型名称
’这里写自定义数据类型中详细的内容
End 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 = 1 stu(0).sname = "丁丁" stu(0).ssex = "男" stu(0).sage = 10 stu(1).sno = 2 stu(1).sname = "冬冬" stu(1).ssex = "女" stu(1).sage = 11 stu(2).sno = 3 stu(2).sname = "小刚" stu(2).ssex = "男" stu(2).sage = 10 MsgBox "学生载入成功", vbApplicationModal, "通知" End Sub Private Sub Command2_Click() On Error GoTo catch try: Dim i% For i = 0 To UBound(stu) Step 1 Print "学号：" & stu(i).sno _ & " 姓名：" & stu(i).sname _ & " 性别：" & stu(i).ssex _ & " 年龄：" & stu(i).sage Next i GoTo finally catch: MsgBox "请先载入学生！", vbCritical, "消息" finally: End Sub
