zyl910(910:分儿,我来了!) (L2002)
你说的方法在
Public 班级名称 As String
Public 班级表名 As String
Public 创建人 As String
Public 科目数 As String
Public 科目 As Collection()
Private Sub Class_Initialize() <----无法通过
'创建类后创建集合
Set 科目 = New Collection <----无法通过
End Sub
Private Sub Class_Terminate() <----无法通过
'类终止后破坏集合
Set 科目 = Nothing <----无法通过
End Sub
我是在.NET下用的,大概在6.0应该通过吧,没试过,不过还是要谢谢你:)
下面是sumtec(Psydian) 给的答案
Structure ClassType
Dim ClassName As String
Dim ClassTableName As String
Dim Creator As String
Dim SubjectCount As String 'Why not use "Integer"??
Dim Subjects As Collection
End Structure
Private Record As ClassType
Sub Add()
Record.ClassName = "xxx"
Record.Creator = "xxx"
Record.Subjects = New Collection
Record.Subjects.Add("xxxxxx")
End Sub
根据他的方法写了一个
Dim 所有班级列表 As Collection
Dim 班级 As 班级类型
Dim 科目 As 科目类型
Structure 科目类型
Dim 科目名 As String
Dim 科目项名 As String
Dim 创建人 As String
End Structure
Structure 班级类型
Dim 班级名称 As String
Dim 班级表名 As String
Dim 创建人 As String
Dim 科目数 As Integer
Dim 科目 As Collection
End Structure
Sub adds()
班级.班级名称 = "笨蛋99(1)班"
班级.班级表名 = "笨蛋99(1)班"
班级.科目数 = 1
班级.创建人 = "笨QQ"
班级.科目 = New Collection()
科目.创建人 = "笨QQ"
科目.科目名 = "傻瓜学"
科目.科目项名 = "傻瓜学"
班级.科目.Add(科目)
所有班级列表.Add(班级)
End Sub
呵呵!大家都有分,不过大头给sumtec(Psydian)了,有意见发短信给我
Public 班级列表 As New Collection()
Structure 科目类型
Dim 科目名 As String
Dim 科目项名 As String
Dim 创建人 As String
End Structure
Structure 班级类型
Dim 班级名称 As String
Dim 班级表名 As String
Dim 创建人 As String
Dim 科目数 As String
Dim 科目 As New Collection() <-提示结构里的成员不能声明为 "new"
End Structure