今天学习了刘金玉老师零基础VB教程的第64期，学习的主要内容是自定义数据类型。

一、常用的数据类型

1、integer整型

2、long长整型

3、single单精度浮点型

4、double双精度浮点型

5、date日期时间型

6、boolean布尔类型

7、string字符串类型

二、自定义数据类型

1.开发者根据需要，在已有数据类型的基础上，自己定义一种适应项目需要的数据类型。为了使得我们自定义的数据类型能在各个sub中使用,我们常把数据类型定义在通用中，即作为全局变量。当然我们也可以定义在某个模块或者类中使用。

2.自定义的关键词type，表达为：

type自定义类型名称（自定义类型名称命名规范按照变量命名规范执行）

自定义数据类型的具体内容。

End type

3.补充知识：Err.description表示错误描述。

案例：定义一个学生属性的类型（学生属性包括：姓名、学号、性别、年龄等），录入并输出几组数据。

Private Type studen

Sname As String

Snumber As Long

Ssex As String

Sage As Integer

End Type

Dim student() As studen

Private Sub Command1_Click()

ReDim student(2) As studen

student(0).Sname = "李逵"

student(0).Snumber = 2020111

student(0).Ssex = "男"

student(0).Sage = 20

student(1).Sname = "李丽"

student(1).Snumber = 2020112

student(1).Ssex = "女"

student(1).Sage = 22

student(2).Sname = "史蒂夫"

student(2).Snumber = 2020113

student(2).Ssex = "男"

student(2).Sage = 19

MsgBox "初始化成功"

End Sub

Private Sub Command2_Click()

Dim i%

On Error GoTo catch

try:

For i = 0 To UBound(student) Step 1

Print " 姓名：" & student(i).Sname & " 学号：" & student(i).Snumber & " 性别：" & student(i).Ssex & " 年龄：" & student(i).Sage

Next i

GoTo finally

catch:

MsgBox "请先初始化"

finally:

End Sub