关于type自定义数据类型的问题
1。给个例子:
该示例使用 Type 语句,定义用户自定义的数据类型。Type 语句只能在模块级使用。如果要在类模块中使用,则必须在 Type 语句前冠以关键字 Private。
Type EmployeeRecord '创建用户自定义的类型。
ID As Integer '定义元素的数据类型。
Name As String * 20
Address As String * 30
Phone As Long
HireDate As Date
End Type
Sub CreateRecord()
Dim MyRecord As EmployeeRecord '声明变量。 ...全部
1。给个例子:
该示例使用 Type 语句,定义用户自定义的数据类型。Type 语句只能在模块级使用。如果要在类模块中使用,则必须在 Type 语句前冠以关键字 Private。
Type EmployeeRecord '创建用户自定义的类型。
ID As Integer '定义元素的数据类型。
Name As String * 20
Address As String * 30
Phone As Long
HireDate As Date
End Type
Sub CreateRecord()
Dim MyRecord As EmployeeRecord '声明变量。
'对 EmployeeRecord 变量的赋值必须在过程内进行。
MyRecord。ID = 12003 '给一个元素赋值。
End Sub
2。
比如我想定义一个数据类型 Qian ,它的数据类型成员包括0-1000的整数,这该怎样定义?
这个可以用数组来实现:
Dim Qian (1000) As Integer
For I = 0 To 1000
Qian(I)=I
Next I
。收起