另外对数组补充的实例

Private Type CJ '创建一个自定义数据类型
        XueHao As Integer '类型包含:学号
       ChengJi As Integer '类型包含:成绩
End Type
Private Sub Command1_Click()
       Dim a(4) As CJ '定义数组a为自定义类型
       Dim px As CJ, i%, j%, k% '排序用变量 '赋初值
For i = 0 To 4
       a(i).XueHao = i + 1 '为数组a赋学号初值
       a(i).ChengJi = Int(100) * Rnd '为数组a赋成绩初值(用随即成绩)
Next '以成绩为基础按从大到小的顺序排序
For i = 0 To 3
       k = i
       For j = i + 1 To 4
              If a(k).ChengJi < a(j).ChengJi Then k = j
       Next j
       px = a(i): a(i) = a(k): a(k) = px
Next i
'将排序完成的数组a打印到窗体上.
For i = 0 To 4
       Print a(i).XueHao; a(i).ChengJi
Next
End Sub