解释该段程序.

Question

Type EWK_PRE                         
    ZYUCHUYMD     As Long            
    Zyuchuymdg    As String          
    Tantonm       As String          
    Shozoku       As String          
    Uksoshiki     As String          
    Uksoshikinm   As String          
    Zasoshiki     As String          
    Urasoshiki    As String          
End TypeType的用法是什么?
请指教,谢谢

Answer 1

和Long, Integer，String等一样，是一种类型，是由用户自己定义的类型，它包含了内部申明的分量：
    ZYUCHUYMD     As Long            
    Zyuchuymdg    As String          
    Tantonm       As String          
    Shozoku       As String          
    Uksoshiki     As String          
    Uksoshikinm   As String          
    Zasoshiki     As String          
    Urasoshiki    As String    
使用时可以如下：Type EWK_PRE                         
    ZYUCHUYMD     As Long            
    Zyuchuymdg    As String          
    Tantonm       As String          
    Shozoku       As String          
    Uksoshiki     As String          
    Uksoshikinm   As String          
         As String          
    Urasoshiki    As String          
End Typedim AA as EWK_PRE 
这样可以读取或者赋值它的分量咯。
如： aa.ZYUCHUYMD=54.3    '数字是我瞎掰的没有考虑意义：）
     aa.Zasoshiki="asssfds gfd"     dim bb as string 
     bb=aa.Zasoshiki
等等。
比如，我们研究包装，那么我们可以定义一个包装箱类Box
我们知道包装箱有长度，高度，宽度，表面印刷文字等
那么我们定义如下：Type Box
    lenth as single
    width as single
    height as single
    strSurface as string
 end Type这样我们就可以很方便地使用这个新定义的Box类来设计研究包装，而不会遗失数据。

Answer 2

Type 语句      在模块级别中使用，用于定义包含一个或多个元素的用户自定义的数据类型。语法[Private | Public] Type varname
elementname [([subscripts])] As type
[elementname [([subscripts])] As type]
. . .End TypeType 语句的语法包含下面部分：部分 描述 
Public 可选的。用于声明可在所有工程的所有模块的任何过程中使用的用户定义类型。 
Private 可选的。用于声明只能在包含该声明的模块中使用的用户自定义的类型。 
varname 必需的。用户自定义类型的名称；遵循标准的变量命名约定 
elementname 必需的。用户自定义类型的元素名称。除了可以使用的关键字，元素名称也应遵循标准变量命名约定。 
subscripts 可选的。数组元素的维数。当定义大小可变的数组时，只须圆括号。subscripts 参数使用如下语法： 
  [lower To] upper [,[lower To] upper] . . . 
  如果不显式指定 lower，则数组的下界由 Option Base 语句控制。如果没有 Option Base 语句则下界为 0。 
type 必需的。元素的数据类型；可以是Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal（目前尚不支持）、Date、String（对变长的字符串）、String * length（对定长的字符串）、Object、Variant、其它的用户自定义的类型或对象类型。 
说明Type 语句只能在模块级使用。使用 Type 语句声明了一个用户自定义类型后，就可以在该声明范围内的任何位置声明该类型的变量。可以使用 Dim、Private、Public、ReDim 或 Static 来声明用户自定义类型的变量。在标准模块中，用户自定义类型按缺省设置是公用的。可以使用 Private 关键字来改变其可见性。而在类模块中，用户自定义类型只能是私有的，且使用 Public 关键字也不能改变其可见性。在 Type...End Type 块中不允许使用行号和行标签。用户自定义类型经常用来表示数据记录，记录一般由多个不同数据类型的元素组成。下面的示例演示了一个用户自定义类型的大小固定的数组的用法：Type StateData
   CityCode (1 To 100) As Integer   ' Declare a static array.
   County As String * 30
End TypeDim Washington(1 To 100) As StateData在上述示例中，StateData 中包括了一个 CityCode 静态数组，且记录Washington 的结构与 StateData 相同。当在用户自定义类型中声明大小固定的数组时，必须用数字文字或常数而不能用变量来声明数组的维数。数组的下界由 Option Base 语句的设置确定。
Type 语句示例
该示例使用 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