本来以为不是什么难题，去百度搜了看了很多，结果竟然一个没看懂
看惯书上的讲解了，没有讲解看不明白了~
现在我需要 从输入的6个Text数字中 按从小到大排序 然后把结果显示在 Text7中
最后保存Text7到文本，最后一步保存书上看会了，就是排序网上搜了很多看不懂~
谁能发个 代码，随便哪种方法， + 讲解上来  万分感谢！！

[[it] 本帖最后由 woa 于 2009-7-17 14:00 编辑 [/it]]

dim a(5) as integer
dim i,j as integer
'输入a数组
a(1)=1
a(2)=3
a(3)=2
a(4)=5
a(5)=0

for i=1 to 4
 for j=i+1 to 5
  if a(i)>a(j) then
    a(i)=a(i)+a(j)
    a(j)=a(i)-a(j)
    a(i)=a(i)-a(j)
  end if
 next
next

msgbox a(1)
msgbox a(2)
msgbox a(3)
msgbox a(4)
msgbox a(5)

随便写写的，很多年没写了，可能有语法错误、逻辑错误和运行时错误，请谅解。

网上搜了那么多没一个看懂，你发的一下看了半懂，又看了5分钟，也把
if a(i)>a(j) then
    a(i)=a(i)+a(j)
    a(j)=a(i)-a(j)
    a(i)=a(i)-a(j)
看懂了，谢谢了

a(i)=a(i)+a(j)
    a(j)=a(i)-a(j)
    a(i)=a(i)-a(j)

这段代码,我只知道是干什么,但也不懂是怎么来的.

Option Base 1
Private Sub Command1_Click()
Dim a(6) As Integer
For i = 1 To 6
a(i) = InputBox("请输入6个数")
Next i
For i = 6 To 2 Step -1
For j = 1 To i - 1
If a(j) > a(j + 1) Then
x = a(j)
a(j) = a(j + 1)
a(j + 1) = x
End If
Next j
Next i
For i = 1 To 6
Text1.Text = Text1.Text & Space(4) & a(i)
Next i

End Sub

你的x没定义。

Sort

挺好的，数据结构课要学的排序和数据结构课不要学的排序都有了。

哦，呵呵，忘记了，不用定义也可以运行的。