VisualBasic程序设计(第二版) 丁爱萍第9章 用户定义与枚举类型.pptVIP

第9章 用户定义与枚举类型 ;9.1 用户定义类型 ;表9-1 学生成绩表 ; 9.1.2 创建用户定义类型 记录与数组一样由多个数据项目组成，但是，记录与数组最大的不同就是数组中的每一元素必须具有相同的数据类型，而记录中的每一个数据项目却可以具有不同的数据类型。 在VB中提供了定义记录结构的语句，称这种语句为用户定义数据类型(user defined data type)。 ;用户可以用Type语句来定义自己的数据类型，其格式为 [Public | Private] Type 〈用户类型名〉 〈字段名1〉 As 〈类型名1〉 [〈字段名2〉 As 〈类型名2〉] [〈字段名n〉 As 〈类型名n〉] End Type ; 9.1.3 建立和使用用户定义类型变量 1. 建立用户定义类型变量 用户数据类型定义后，可以用Dim、Redim、Static建立一个具有这种数据类型的变量。例如定义一个具有studentrec类型的变量stu： Dim stu AS studentrec 用户定义数据类型也可以作为数组元素的数据类型。例如，定义一个拥有20个记录元素的数组student： Dim student(1 To 20) As studentrec ; 2. 使用用户定义类型变量 如果要存取用户数据类型变量中的某个字段的数据，其格式如下： 〈用户数据类型变量名〉.〈字段名〉 ; 【例9-1】 把数据值分别赋给stu变量中的各个字段。 设计步骤如下： (1) 建立应用程序用户界面并设置对象属性，如图9.1所示。 (2) 在窗体模块的通用段创建用户定义类型： ;Private Type studentrec stunum As String * 7 学号元素为7个字符的定长字符串 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 = 2000108 stu.names = 欧阳美丽 ;图9.1 程序运行结果 ; stu.credit = 70 stu.avg = 88.5 Text1.Text = stu.stunum Text2.Text = stu.names Text3.Text = stu.credit Text4.Text = stu.avg End Sub 程序运行结果如图9.1所示。 ; 9.1.4 用户定义类型数组 如果一个数组中元素的数据类型是用户定义类型，则称其为用户定义类型数组或记录数组(Array of records)。存取记录数组元素中某个字段数据的语法为 〈记录数组元素〉.〈字段名〉 ; 【例9-2】 假设某班有40位学生，每位学生一个记录，定义一个包含40个元素的用户定义数组，并给第10位学生赋值。 ;首先在窗体模块的通用段创建用户定义类型： Private Type studentrec stunum As String * 7 names As String * 8 credit As Integer avg As Single End Type ;编写命令按钮的Click事件代码为 Private Sub Command1_Click() Dim student(1 To 40) As studentrec 定义记录数组 student(10).stunum = 2000010 student(10).names = 孙小京 student(10).credit = 55 student(10).avg = 78.5 Text1.Text = student(10).stunum ;Text2.Text = student(10).names Text3.Text =