vb编写程序 随机产生10个10—99之间的的任意整数，并按从大到小的顺序输出。

Question

要求：1）程序功能与设计方法的简要说明
2）随机产生的整数有输出
3）排序后的结果有输出

Answer 1

Private Sub Command1_Click()
Dim m(9) As Integer
Dim a As Integer
Dim i As Integer
Dim j As Integer

a = 0

For i = 0 To 9
    m(i) = 10 + Int(Rnd * 89)
Next
Text1.Text = m(0) & "," & m(1) & "," & m(2) & "," & m(3) & "," & m(4) & "," & m(5) & "," & m(6) & "," & m(7) & "," & m(8) & "," & m(9)
For i = 0 To 9
    For j = i To 8
        If m(i) < m(j + 1) Then

        a = m(i)
        m(i) = m(j + 1)
        m(j + 1) = a
    End If
    Next j
Next i
Text2.Text = m(0) & "," & m(1) & "," & m(2) & "," & m(3) & "," & m(4) & "," & m(5) & "," & m(6) & "," & m(7) & "," & m(8) & "," & m(9)

End Sub

Answer 2

重置随机数沙盒，把10个数放入数组。冒泡排序。OK