VB随机产生10个100到200之间的整数,将其按从大到小顺序排列

Private Sub Form_Load()
    Me.AutoRedraw = True
    Dim Number(9) As Integer    ' 储存随机数
    Dim Temp As Integer         ' 缓存

    ' 对变量数组进行赋值
    Randomize
    For i = 0 To UBound(Number)
        Number(i) = Int(Rnd * (200 - 100)) + 100
    Next i

    ' 使用冒泡排序法排列变量数组
    For j = 0 To UBound(Number) - 1
        For x = j + 1 To UBound(Number)
            If Number(j) < Number(x) Then
                Temp = Number(j)
                Number(j) = Number(x)
                Number(x) = Temp
            End If
        Next x
    Next j

    ' 打印到屏幕
    For i = 0 To 9
        Print Number(i)
    Next i
End Sub

Private Sub Command1_Click()
Text1.Text = ""
Dim A(1 To 10) As Integer, K As Integer
For I = 1 To 10
    Randomize
    A(I) = Int(Rnd * 100 + 100)
Next I
For I = 1 To 9
    For J = I + 1 To 10
        If A(I) < A(J) Then
        K = A(I)
        A(I) = A(J)
        A(J) = K
        End If
    Next J
Next I
For I = 1 To 10
If I < 10 Then
Text1.Text = Text1.Text & A(I) & ","
Else
Text1.Text = Text1.Text & A(I)
End If
Next I
End Sub

本回答被提问者和网友采纳