vb程序设计 第一个按钮是随机生成10个两位整数，第二个按钮是从小到大排序 第一个我会，已编好，求

利用数组存储数字，用array.sort方法排序

Private Sub rank(n As Integer, a() As Long) 
For i = 1 To n - 1 
    tmax = i 
        For j = i + 1 To n 
            If a(j) > a(tmax) Then tmax = j 
        Next j 
            If tmax <> i Then t = a(i): a(i) = a(tmax): a(tmax) = t 
Next i 
End Sub

Private sub Command2_Click()
Call Rank(10,a)
text2.text=text2.text & a(i) & " "
End Sub

还没上机测试呢，自己先试试吧，自己调整一下

Private Sub Command2_Click()
Dim a, i, t
a = Split(RTrim(TExt1.Text)," ")
For i = 0 To 8
For j = i To 9
If a(j) t = a(i)
a(i) = a(j)
a(j) = t
End If
Next
Next
Text1.Text = Join(a," ")
End Sub