VB如何创建含10个公共结构实例的数组及对应封装模块

错误点修正 #

你的现有代码存在两处逻辑和语法问题：

• 学生数组TabÉlève定义在Élève结构内部不符合逻辑：Élève是单个学生的属性集合，存储所有学生的数组应该作为Module的公共成员存在
• VB不允许在结构内部的数组声明时直接指定长度，同时你的模块名Module 1包含空格，不符合命名规范

正确实现代码 #

Module Module1
    ' 公共学生结构定义
    Public Structure Élève
        Dim Nom As String
        Dim Prénom As String
        Dim Note As Integer
        Dim Rendement As Integer
    End Structure

    ' 声明包含10个结构实例的公共数组：下标默认从0开始，写9对应0~9共10个元素
    Public TabÉlève(9) As Élève
End Module

动态调整数组长度方案 #

如果需要在运行时动态指定数组长度，可先声明空数组，后续用ReDim初始化：

' 模块内先声明空数组
Public TabÉlève() As Élève

' 业务逻辑中需要初始化时调用，创建10个元素的数组
ReDim TabÉlève(9)

' 重设数组大小且保留已有数据时使用ReDim Preserve
ReDim Preserve TabÉlève(19) ' 扩容到20个元素，原有前10个元素的数据不会丢失

内容的提问来源于stack exchange，提问作者Sophie Beauchesne