vb用户自定义的数据类型

用户自定义的数据类型------记录保存多个相同或不同类型数值的结构称为记录（record）。在VISUALBASIC中定义记录，用Type语句，其语法如下：TypevarTypeVariable1AsvarTypeVariable2AsvarType…VariablenAsvarTypeEndType例如定义一个名为CheckRecord的记录：TypeCheckRecordCheckNumberasIntegerCheckDateasDateCheckAmountasSingleEndTypeCheckRecord结构可以像普通变量类型一样使用。要定义这个类型的变量，使用如下语句：Dimcheck1AsCheckRecord要对结构的各个字段访问，可使用如下语句：check1.CheckNumber=123check1.CheckDate=#08/14/1996#check1.CheckAmount=240.00例：1.简单例（自定义类型1.frm）2.数组自定义类型1.FRM用一维数组存放学生年龄。并可通过学生姓名输入或显示该学生的年龄。PrivateTypeStudentInformationStudentAgeAsIntegerStudentNameAsStringEndTypeDimNAsBooleanDimInformation(1To4)AsStudentInformationDiminfIndexAsIntegerDimstuNameAsStringPrivateSubcmdInputname_Click()Fori=1To4Information(i).StudentName=InputBox(PLinputname)NextiEndSubPrivateSubcmdInput_Click()infIndex=1N=FalsestuName=txtName.TextDoWhileinfIndex=4IfInformation(infIndex).StudentName=stuNameThenInformation(infIndex).StudentAge=Val(txtAge.Text)N=TrueExitDoEndIfinfIndex=infIndex+1LoopIfN=FalseThenMsgBoxinvalidstudentname,vbInformation,dataerrorEndIftxtName.Text=txtAge.Text=EndSubPrivateSubcmdOutput_Click()infIndex=1N=FalsestuName=txtName.TextDoWhileinfIndex=4IfInformation(infIndex).StudentName=stuNameThentxtAge.Text=Information(infIndex).StudentAgeN=TrueExitDoEndIfinfIndex=infIndex+1LoopIfN=FalseThenMsgBoxinvalidstudentname,vbInformation,dataerrorEndIfEndSubPrivateSubcmdExit_Click()EndEndSub