中科新闻网反派皆男神txt书包网:用户自定义数据类型
来源：百度文库 编辑：中科新闻网 时间：2024/05/15 03:55:46
定义数据类型TelBook的代码：
Type TelBook
Name As String*10
TelNum As Integer
End Type
请问String*10中为什么要*10呢？谢谢！
Type TelBook
Name As String*10
TelNum As Integer
End Type
请问String*10中为什么要*10呢？谢谢！
如果需要声明一个定长的String类型的变量，则可在类型名后加上长度。例如，可用下面的语句声明一个长度为30的字符串类型变量：
Dim Name As String*30
如果赋予Name的字符少于30个，则用空格将Name的不足部分填满。如果赋予字符串的字符超过30个，则Visul Basic会自动截去超出部分的字符。
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