vb用户自定义的数据类型

用户自定义的数据类型------记录
保存多个相同或不同类型数值的结构称为记录（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。