Type 自定义类型名
元素名[(下标)] As 类型名
……
元素名[(下标)] As 类型名
End Type
元素名
表示自定义类型中的一个成员
下标(可选)
表示是数组
类型名
为标准类型
定义一个学生信息的自定义类型
Type studtype
No As Integer ' 定义学号
Name As String*10 ’ 定义姓名
Sex As String*2 ' 定义性别
Mark(1 TO 4) As Single ’ 定义4门课程的成绩
Total As Single ' 定义总分
End Type
注意事项
自定义类型一般在标准模块(.bas)中定义,默认是Public
自定义类型中的元素可以是字符串,但应是定长字符串
不可把自定义类型名与该类型的变量名混淆
注意自定义类型变量与数组的差别
由若干元素组成,前者的元素代表不同性质、不同类型的数据,以元素名表示不同的元素
后者存放的是同种性质、同种类型的数据,以下标表示不同元素
自定义型变量的声明和使用
使用形式
Dim 变量名 As 自定义类型名
例如
Dim student As studtype, mystud As studtype
自定义类型中元素的表示方法是
student。name student。mark(4)
为了简单起见,可以用With …… End With 语句进行简化
With student
.no=99001
。name=””
。sex=””
.total=0
for I=1 to 4
。mark(I)=int(rnd*101) ’随机产生0 — 100之间的分数
.total=。total+。may(I)
next I
End With
Mystud=student ' 同种自定义类型变量可以直接赋值