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

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

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/evr2fxj37r7vrff33f2.html