"从100到500随机选10个不同的数从小到大排列"vb编程

Question

如题所述

Answer 1

Private Sub Command1_Click()
    Me.Cls
    Dim n(10) As Integer, i As Integer, j As Integer
    Dim Num As Integer
    Dim str As String, str1 As String
    '产生10个10-100的随机数并写入数组
    Randomize
    For i = 1 To 10
        n(i) = Int((500 - 100 + 1) * Rnd + 100)
        str = str & n(i) & " "
        If i Mod 5 = 0 Then str = str & vbCrLf '令10个随机数分为两行显示
    Next i
    str = "产生10原始数据为：" & vbCrLf & str
    
    '冒泡法排序
    For i = 1 To 10
         For j = i + 1 To 10
             If n(j) < n(i) Then  '这里使用<比较，产生升序排列效果
                 Num = n(i)
                 n(i) = n(j)
                 n(j) = Num
             End If
         Next j
         str1 = str1 & n(i) & " "
         If i Mod 5 = 0 Then str1 = str1 & vbCrLf
    Next i
    Print str & vbCrLf
    Print "排序后的数据：" & vbCrLf & str1 & vbCrLf
    Print "最大值为：" & n(10)
    Print "最小值为：" & n(1)
End Sub

运行效果