Private Sub Command1_Click()
Dim c()
c = Array(23, 22, 11, 56, 12, 18)
For i = 0 To UBound(c)
Print c(i);
Next i
Print
For i = 0 To UBound(c) - 1
For j = i + 1 To UBound(c)
If c(i) > c(j) Then
d = c(i): c(i) = c(j): c(j) = d
End If
Next j
Next i
For i = 0 To UBound(c)
Print c(i);
Next i
Print
End Sub
Sub chiefzjh()
Dim mAr, i%, k%, t%
mAr = Array(8, 9, 3, 1, 4, 6)
For i = 0 To 5
For k = 5 To i Step -1
If mAr(i) < mAr(k) Then t = mAr(i): mAr(i) = mAr(k): mAr(k) = t
Next k
Next i
Print Join(mAr, ", ")
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024