数组
利用Dim语句定义的数组系统会自动初始化
Dim Sum(10) As Double '定义双精度一维数组下标为0到10 11个元素
Dim d(3, 4) As Integer '定义整型二维数组d
Dim s(0 To 10) As Integer '定义整型一维数组下标为0到10 11个元素
结构体
'创建结构体
Structure SS
Dim NO As String
Dim SEX As Char
End Structure
'创建结构体对象
Dim S1 As SS
'结构体数组
Dim S2(12) As SS
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
'运用结构体
S1.NO = "123"
'With方式运用结构体
With SS
.NO = "12"
.SEX = "男"
End With
End Sub