要求: (1)在标准模块定义自定义类型 type studtype name as string * 5 sex as string * 1 telephone as long school as string * 10 end type (2)在窗体模块的声明的该类型的数组和变量名n: dim stud(99) as studtype dim n%
我的代码如下 Dim stud(99) As studtype Dim n% Public Sub myprogram() Type studtypename As String * 5 sex As String * 1 telephotone As Long school As String * 10 End Type End Sub
Private Type studtype name As String * 5 sex As String * 1 telephotone As Long school As String * 10 End Type Public Sub myprogram() Dim stud(99) As studtype Dim n% End Sub