三个问题一样的帖子，帮忙UP者有分……解决则另开帖加500分……在线等待……

Question

地址写错了……正确的如下数据结构问题，在线等待，请帮UP下，谢谢http://www.csdn.net/Expert/TopicView1.asp?id=810968
关于集合的问题
http://www.csdn.net/Expert/TopicView1.asp?id=810812数据结构问题
结构如下班级列表(多项)---- 班级名称 
                   班级表名 
                   科目数
                   科目(多项)---- 科目名
                                  科目项名原用数组表示多项资料,现想改为集合    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

Answer 1

建立一个类模块
里面写：
Public 班级名称 As String
Public 班级表名 As String
Public 创建人 As String
Public 科目数 As String
Public 科目 As Collection()Private Sub Class_Initialize()
    '创建类后创建集合
    Set 科目 = New Collection
End SubPrivate Sub Class_Terminate()
    '类终止后破坏集合
    Set 科目 = Nothing
End Sub

Answer 2

是“Public 科目 As Collection”

Answer 3

也许这样能行
Structure 班级类型
　　Dim 班级名称 As String
　　Dim 班级表名 As String
　　Dim 创建人 As String
　　Dim 科目数 As String
　　Dim 科目 As 科目类型()
End Structure

Answer 4

下面本来就是比较好的RECORD方法集，喜欢求次？Type 科目类型
    科目名 As String
    科目项名 As String
    创建人 As String
End typeType 班级类型
    班级名称 As String
    班级表名 As String
    创建人 As String
    科目数  As 科目类型
End Type

Answer 5

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 SubPrivate 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 StructurePrivate Record As ClassTypeSub 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)了,有意见发短信给我

Answer 6

他的回答在
http://www.csdn.net/Expert/TopicView1.asp?id=810816