Private Sub Command1_Click()
Dim a(), b(), c%(13), t%
a = Array(1, 3, 5, 8, 10, 12)
b = Array(2, 4, 6, 7, 9, 11, 13, 15)
For i = 0 To 5
c(i) = a(i)
Next i
For j = 0 To 7
c(6 + j) = b(j)
Next j
For i = 0 To 12
For j = 0 To 12 - i
If c(j) > c(j + 1) Then
t = c(j): c(j) = c(j + 1): c(j + 1) = t
End If
Next j
Next i
For i = 0 To 13
Print c(i);
Next i
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除！