Dim j As Integer
For j = 1 To 9
For i = j + 1 To 10
If a(j) < a(i) Then
swap a(j), a(i)
End If
Next i
Next j
For i = 1 To 10
Print a(i)
Next i
同样是230的二进制,但是呢?这次比上次的程序容易多了。上次的方法比较复 杂,这次的简单,也许这就是学多VB程序的效果吧!这次的程序简单明了,通俗易懂。
希望我能够更好的学习VB程序,对它更进一步了解、学习。