本想排序的3，5，6，9.可运行结果为3，9，5，6
Private Sub Command1_Click()
Dim m(4) As Integer
Dim temp As Integer
Dim i As Integer
Dim j As Integer
m(1) = 9
m(2) = 3
m(3) = 6
m(4) = 5
 For i = 1 To 3
    For j = 2 To 4
    If m(i) > m(j) Then
    temp = m(i)
    m(i) = m(j)
    m(j) = temp
     End If
    Next j
Next i
Text1.Text = m(1)
Text2.Text = m(2)
Text3.Text = m(3)
Text4.Text = m(4)
End Sub

会不会是你在放入文本框的时候，把顺序放错了呀，不是text1,text2,text3,text4 这样放的， ，也只是随口说说，

不会错啊，我本来编的是6个随机数排序，可只有第一个是最小，其他的无序排列，我这只是个简单的程序，好看清楚是如何排的。请大家指点，是不是vb程序问题?

我编了一个产生双色球产生随机号码的程序，不知道为什么他不排序，大家给看看吧，不会大家都不知道吧！

知道自己错哪里了应改为For j = i+1 To 4
用自己编的程序去买个彩票去，O(∩_∩)O哈哈~