2011年度计算机等级考试二级VB(23)

2011年度计算机等级考试二级VB(23) #

5.6自定义数据类型

#

1. 自定义数据类型的定义

#

是指由若干标准数据类型组成的一种复合类型，也称为记录类型。 #

(1)定义方式：

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 #

(2)注意事项 #

1)自定义类型一般在标准模块(.bas)中定义，默认是Public

2)自定义类型中的元素可以是字符串,但应是定长字符串

#

3) 不可把自定义类型名与该类型的变量名混淆

4) 注意自定义类型变量与数组的差别：它们都由若干元素组成，前者的元素代表不同性质、不同类型的数据，以元素名表示不同的元素;后者存放的是同种性质、同种类型的数据，以下标表示不同元素。

#

2. 自定义型变量的声明和使用 #

使用形式： 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 ’ 同种自定义类型变量可以直接赋值 #

3.自定义类型数组的使用

自定义类型数组就是数组中的每个元素都是自定义类型。

#

例如：自定义一个由学生姓名、成绩组成的学生记录类型，用来存放100个学生的记录。 #