16,547
社区成员
发帖
与我相关
我的任务
分享
Public Class 专业
Public Name As String
Public 班级列表 As New List(Of 班级)
End Class
Public Class 班级
Public Name As String
Public 人员列表 As New List(Of 人员)
End Class
Public Class 人员
Public Name As String
End Class
Module Module1
Sub Main()
'=================================
Dim 人员J_201_1 As New 人员 With {.Name = "张某"}
Dim 人员J_201_2 As New 人员 With {.Name = "王某"}
Dim 人员J_201_3 As New 人员 With {.Name = "李某"}
Dim 人员列表J_201 As New List(Of 人员)
人员列表J_201.Add(人员J_201_1)
人员列表J_201.Add(人员J_201_2)
人员列表J_201.Add(人员J_201_3)
Dim 班级J_201 As New 班级 With {.Name = "201班", .人员列表 = 人员列表J_201}
'=================================
Dim 人员J_202_1 As New 人员 With {.Name = "张某"}
Dim 人员J_202_2 As New 人员 With {.Name = "王某"}
Dim 人员J_202_3 As New 人员 With {.Name = "刘某"}
Dim 人员列表J_202 As New List(Of 人员)
人员列表J_202.Add(人员J_202_1)
人员列表J_202.Add(人员J_202_2)
人员列表J_202.Add(人员J_202_3)
Dim 班级J_202 As New 班级 With {.Name = "202班", .人员列表 = 人员列表J_202}
'======================================
Dim 人员K_301_1 As New 人员 With {.Name = "杨某"}
Dim 人员K_301_2 As New 人员 With {.Name = "刘某"}
Dim 人员K_301_3 As New 人员 With {.Name = "赵某"}
Dim 人员列表K_301 As New List(Of 人员)
人员列表K_301.Add(人员K_301_1)
人员列表K_301.Add(人员K_301_2)
人员列表K_301.Add(人员K_301_3)
Dim 班级K_301 As New 班级 With {.Name = "301班", .人员列表 = 人员列表K_301}
'=====================================
Dim 计算机专业班级列表 As New List(Of 班级)
计算机专业班级列表.Add(班级J_201)
计算机专业班级列表.Add(班级J_202)
Dim 会计专业班级列表 As New List(Of 班级)
会计专业班级列表.Add(班级K_301)
'=============================
Dim 计算机专业 As New 专业 With {.Name = "计算机", .班级列表 = 计算机专业班级列表}
Dim 会计专业 As New 专业 With {.Name = "会计", .班级列表 = 会计专业班级列表}
End Sub
End Module
'班级人员列表定义
Public Structure ClassList
ClasName As String '班级名称
StudNum As Integer '表示人员数量
StudName() As String '人员列表
End Structure
'专业列表
Public Structure SpecList
SpecName As String '专业名称
ClasNum As Integer '表示班级数量
ClasInfo() As ClassList '班级列表
End Structure
Dim a() As SpecList
public class 专业
public Name As String
public 班级列表 As New List(of 班级)
end class
public class 班级
public Name As String
public 人员列表 As New List(of 人员)
end class
public class 人员
public Name As String
end class
Dim classe201 As New List(Of String)
classe201.Add("张三")
classe201.Add("李四")
classe201.Add("王五")
Dim classe202 As New List(Of String)
classe202.Add("孙大")
classe202.Add("刘七")
classe202.Add("赵乙")
Dim classe301 As New List(Of String)
classe301.Add("李甲")
classe301.Add("杨丙")
classe301.Add("胡丁")
classe301.Add("方小三")
Dim computer As New List(Of List(Of String))
computer.Add(classe201)
computer.Add(classe202)
Dim accounting As New List(Of List(Of String))
accounting.Add(classe301)
Debug.Print(computer(1)(0))
Public Class Form1
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim classe201() As String = {"张三", "李四", "王五"}
Dim classe202() As String = {"孙大", "刘七", "赵乙"}
Dim classe301() As String = {"李甲", "杨丙", "胡丁", "方小三"}
Dim Computer() As Object = {classe201, classe202}
Dim accounting() As Object = {classe301}
Dim specializedfield() As Object = {Computer, accounting}
Debug.WriteLine(specializedfield(0)(1)(2).ToString)
End Sub
End Class