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

1 / 2
下载文档,编辑使用

©2015-2020 m.777doc.com 三七文档.

备案号:鲁ICP备2024069028号-1 客服联系 QQ:2149211541

×
保存成功