新学的 还不算太懂 但急着 要这个程序 希望大家帮写一些下啦
Private Sub Form_Click()
  Const n = 90
  Dim a(n) As Long, t As Long
  For i = 10 To n
    n = Int(Rnd * 90 + 10)
   a(i) = Val(InputBox("输入数据", "排序"))
   Print a(i);
  Next i
  Print
  For i = 10 To n - 1
   For j = i + 1 To n
    If a(i) < a(j) Then
     t = a(i)
     a(i) = a(j)
     a(j) = t
    End If
   nextj
 Next i
 For j = 10 To n
   Print a(j);
   Next j
 End Sub
我写的这个运行不了我也不知道哪错啦

有没有人给我写一下啊

Dim R(10) As Integer

Private Sub Form_Load()
    Me.AutoRedraw = True
    Dim i As Integer
    For i = 0 To 9
        R(i) = 0
    Next
End Sub

Private Sub Form_Click()
    Me.Cls
    Randomize
    For i = 0 To 9
        R(i) = Int(Rnd * 90 + 10)
    Next
    Me.Print "排序前："
    Call PrintN(R)
    Me.Print "升序排序："
    Call Sort(R, "asc")
End Sub

Private Sub Sort(Rc() As Integer, Typec As String)
    Dim m, n, temp As Integer
    If (Typec = "desc") Then
        For m = 0 To UBound(Rc) - 1
            For n = m To UBound(Rc) - 1
                If (Rc(m) < Rc(n)) Then
                    temp = Rc(m)
                    Rc(m) = Rc(n)
                    Rc(n) = temp
                End If
            Next
        Next
    End If
    If (Typec = "asc") Then
        For m = 0 To UBound(Rc) - 1
            For n = m To UBound(Rc) - 1
                If (Rc(m) > Rc(n)) Then
                    temp = Rc(m)
                    Rc(m) = Rc(n)
                    Rc(n) = temp
                End If
            Next
        Next
    End If
    Call PrintN(Rc)
End Sub

Private Sub PrintN(P() As Integer)
    Dim n As Integer
    For n = 0 To UBound(P) - 1
        Me.Print P(n)
    Next
End Sub

应该可以满足你要求！

谢谢   这么长啊

不长，我把功能分开写而已，好了就结贴给分

我都看不懂

不好意思。忘了给你些代码注记了

里面的 代码我都没看见过 我没法用 我要考试用

第一个Sort函数是对数组里面的元素进行冒泡排序，降序和升序两种
第二个PrintN函数是在窗体上按顺序打印数组里面的元素！
够明白了吧，其实是很简单的代码，又不复杂

那就是我笨吧但老师都没讲的我写出来好像不太好