Visual Basic程序设计教程 第2版 教学课件 ppt 作者 刘瑞新 电子教案 第8章 变量与过程的作用范围.ppt

8.4.2 创建用户定义类型 例如，要建立一个学生成绩处理程序，由于每一位学生都需要学号、姓名、学分和平均成绩等数据项（字段），则可以使用Type语句来定义一个名称为studentrec的记录。 Private Type studentrec stunum As String * 6 学号元素为6个字符的定长字符串 names As String * 8 姓名元素为8个字符的定长字符串 credit As Integer 学分元素为整型 avg As Single 平均成绩为单精度型 End Type 8.4.3 建立和使用用户定义类型变量 在使用用户定义类型之前，必须用Type语句创建数据类型。 1. 建立用户定义类型变量 用户定义类型被创建后，可以用Dim、Redim、Static建立一个具有这种数据类型的变量。例如定义一个具有 studentrec类型的变量stu： Dim stu AS studentrec 用户定义类型也可以作为数组元素的数据类型。例如，定义一个拥有100个记录元素的数组student： Dim student(1 To 100) As studentrec 2. 使用用户定义类型变量 如果要存取用户定义类型变量中的某个字段的数据，其格式如下。 〈用户数据类型变量名〉.〈字段名〉 例如，要存取用户定义类型变量stu中names这个字段的数据，要写为：s。 【例8-5】把数据值分别赋给stu变量中的各个字段。 首先在窗体模块的通用段创建用户定义类型： Private Type studentrec stunum As String * 6 学号元素为6个字符的定长字符串 names As String * 8 姓名元素为8个字符的定长字符串 credit As Integer 学分元素为整型 avg As Single 平均成绩为单精度型 End Type 编写命令按钮的Click事件代码： Private Sub Command1_Click() Dim stu As studentrec ‘ 定义一个具有studentrec类型的变量 stu stu.stunum = 990001 s = 王 平 stu.credit = 65 stu.avg = 88 Text1(0).Text = stu.stunum Text1(1).Text = s Text1(2).Text = stu.credit Text1(3).Text = stu.avg End Sub 图8-11 运行结果 程序运行结果如图8-11所示。 8.4.4 用户定义类型数组 如果一个数组中元素的数据类型是用户定义类型，则称为用户定义类型数组或记录数组（Array of records）。存取记录数组元素的某个字段数据的语法为： 〈记录数组元素〉.〈字段名〉 例如，存取第1、第28位学生的平均分数，要写为 student(1).avg student(28).avg 8.4.4 用户定义类型数组 【例8-6】假设某班有50位学生，每位学生一个记录，定义一个包含50个元素的用户定义数组，并给第32位学生赋值。 首先在窗体模块的通用段创建用户定义类型： Private Type studentrec stunum As String * 6 names As String * 8 credit As Integer avg As Single End Type 编写命令按钮的Click事件代码： Private Sub Command1_Click() Dim student(1 To 50) As studentrec 定义记录数组 student(32).stunum = 960001 student(32).names = 张大力 student(32).credit = 65 student(32).avg = 88 Text1(0).Text = student(32).stunum Text1(1).Text = student(32).names Text1(2).Text = student(3