vb用户自定义的数据类型
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
用户自定义的数据类型------记录
保存多个相同或不同类型数值的结构称为记录（record）。
在VISUAL BASIC 中定义记录，用Type语句，其语法如下：
Type varType
Variable1 As varType
Variable2 As varType
…
Variablen As varType
End Type
例如定义一个名为CheckRecord的记录：
Type CheckRecord
CheckNumber as Integer
CheckDate as Date
CheckAmount as Single
End Type
CheckRecord结构可以像普通变量类型一样使用。要定义这个类型的变量，使用如下语句：
Dim check1 As CheckRecord
要对结构的各个字段访问，可使用如下语句：
check1. CheckNumber=123
check1. CheckDate=#08/14/1996#
check1. CheckAmount=240.00
例：
简单例（自定义类型1.frm）
数组自定义类型1.FRM
用一维数组存放学生年龄。并可通过学生姓名输入或显示该学生的年龄。
Private Type StudentInformation
StudentAge As Integer
StudentName As String
End Type
Dim N As Boolean
Dim Information(1 To 4) As StudentInformation
Dim infIndex As Integer
Dim stuName As String
Private Sub cmdInputname_Click()
For i = 1 To 4
Information(i).StudentName = InputBox("PL input name")
Next i
End Sub
Private Sub cmdInput_Click()
infIndex = 1
N = False
stuName = txtName.Text
Do While infIndex <= 4
If Information(infIndex).StudentName = stuName Then Information(infIndex).StudentAge = Val(txtAge.Text)
N = True
Exit Do
End If
infIndex = infIndex + 1
Loop
If N = False Then
MsgBox "invalid student name", vbInformation, "data error" End If
txtName.Text = ""
txtAge.Text = ""
End Sub
Private Sub cmdOutput_Click()
infIndex = 1
N = False
stuName = txtName.Text
Do While infIndex <= 4
If Information(infIndex).StudentName = stuName Then txtAge.Text = Information(infIndex).StudentAge
N = True
Exit Do
End If
infIndex = infIndex + 1
Loop
If N = False Then
MsgBox "invalid student name", vbInformation, "data error" End If
End Sub
Private Sub cmdExit_Click()
End
End Sub