可以将结构与数组、对象和过程以及其他结构一起使用。 这些交互操作使用与这些元素单独使用时相同的语法。

结构和数组

结构可以包含一个数组，作为它的一个或多个元素。 下面的示例阐释了这一点。

Public Structure systemInfo
    Public cPU As String
    Public memory As Long
    Public diskDrives() As String
    Public purchaseDate As Date
End Structure 

访问结构内数组的值的方法与访问对象属性的方法相同。 下面的示例阐释了这一点。

Dim mySystem As systemInfo
ReDim mySystem.diskDrives(3)
mySystem.diskDrives(0) = "1.44 MB"

还可以声明结构数组。 下面的示例阐释了这一点。

Dim allSystems(100) As systemInfo

访问此数据结构的组件要遵循相同的规则。 下面的示例阐释了这一点。

ReDim allSystems(5).diskDrives(3)
allSystems(5).CPU = "386SX"
allSystems(5).diskDrives(2) = "100M SCSI"

结构和对象

结构可以包含一个对象，作为它的一个或多个元素。 下面的示例阐释了这一点。

Protected Structure userInput
    Public userName As String
    Public inputForm As System.Windows.Forms.Form
    Public userFileNumber As Integer
End Structure

应在这样的声明中使用特定的对象类，而不是 Object。

结构和过程

可以将结构作为过程参数传递。 下面的示例阐释了这一点。

Public currentCPUName As String = "700MHz Pentium compatible"
Public currentMemorySize As Long = 256
Public Sub fillSystem(ByRef someSystem As systemInfo)
    someSystem.cPU = currentCPUName
    someSystem.memory = currentMemorySize
    someSystem.purchaseDate = Now
End Sub

前面的示例通过引用来传递结构，这允许过程修改结构的元素以使更改在调用代码中生效。 如果要保护结构，避免这种修改，可通过值来传递结构。

还可以从 Function 过程返回结构。 下面的示例阐释了这一点。

Dim allSystems(100) As systemInfo
Function findByDate(ByVal searchDate As Date) As systemInfo
    Dim i As Integer
    For i = 1 To 100
        If allSystems(i).purchaseDate = searchDate Then Return allSystems(i)
    Next i
   ' Process error: system with desired purchase date not found.
End Function

结构中的结构

结构可以包含其他结构。 下面的示例阐释了这一点。

Public Structure driveInfo
    Public type As String
    Public size As Long
End Structure
Public Structure systemInfo
    Public cPU As String
    Public memory As Long
    Public diskDrives() As driveInfo
    Public purchaseDate As Date
End Structure
Dim allSystems(100) As systemInfo
ReDim allSystems(1).diskDrives(3)
allSystems(1).diskDrives(0).type = "Floppy"

也可使用此技术将一个模块中定义的结构封装在另一个模块中定义的结构内。

结构可以将其他结构包含到任意深度。

原文链接：https://docs.microsoft.com/zh-cn/previous-versions/visualstudio/visual-studio-2010/78kf2xd4(v=vs.100)