vb用户自定义的数据类型.doc

《vb用户自定义的数据类型.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、用户自定义的数据类型------记录保存多个相同或不同类型数值的结构称为记录（record）。在VISUALBASIC中定义记录，用Type语句，其语法如下：TypevarTypeVariable1AsvarTypeVariable2AsvarType…VariablenAsvarTypeEndType例如定义一个名为CheckRecord的记录：TypeCheckRecordCheckNumberasIntegerCheckDateasDateCheckAmountasSingleEndTypeCheckRecord结构可以像普通变量类型一样使用。要定

2、义这个类型的变量，使用如下语句：Dimcheck1AsCheckRecord要对结构的各个字段访问，可使用如下语句：check1.CheckNumber=123check1.CheckDate=#08/14/1996#check1.CheckAmount=240.00例：简单例（自定义类型1.frm）数组自定义类型1.FRM用一维数组存放学生年龄。并可通过学生姓名输入或显示该学生的年龄。PrivateTypeStudentInformationStudentAgeAsIntegerStudentNameAsStringEndTypeDimNAsBoole

3、anDimInformation(1To4)AsStudentInformationDiminfIndexAsIntegerDimstuNameAsStringPrivateSubcmdInputname_Click()Fori=1To4Information(i).StudentName=InputBox("PLinputname")NextiEndSubPrivateSubcmdInput_Click()infIndex=1N=FalsestuName=txtName.TextDoWhileinfIndex<=4IfInformation(infIn

4、dex).StudentName=stuNameThenInformation(infIndex).StudentAge=Val(txtAge.Text)N=TrueExitDoEndIfinfIndex=infIndex+1LoopIfN=FalseThenMsgBox"invalidstudentname",vbInformation,"dataerror"EndIftxtName.Text=""txtAge.Text=""EndSubPrivateSubcmdOutput_Click()infIndex=1N=FalsestuName=txtNam

5、e.TextDoWhileinfIndex<=4IfInformation(infIndex).StudentName=stuNameThentxtAge.Text=Information(infIndex).StudentAgeN=TrueExitDoEndIfinfIndex=infIndex+1LoopIfN=FalseThenMsgBox"invalidstudentname",vbInformation,"dataerror"EndIfEndSubPrivateSubcmdExit_Click()EndEndSub