VB之数组

1.动态数组 一直给每一个数组赋值，直到空的停止，最多a（0.1.2） 2.排序 Dim a(9) As Long Private Sub Command1_Click() Dim i As Long, j As Long, b As Long For i = 1 To 9 For j = 0 To 9 - i 'Debug.Print i If a(j) < a(j + 1) Then b =

>>阅读原文<<