求vb.net(vb2010)程序代码 产生30个50以内的随机正整数，将他们从大到小排序后输出

Question

求vb.net(vb2010)程序代码 产生30个50以内的随机正整数，将他们从大到小排序后输出 谢谢

Answer 1

vb2010写的：
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Dim str As String = ""
        Dim a(30) As Integer
        Dim temp As Integer
        str = str & "生成的30个随机数字是 " & vbCrLf
        For i = 1 To 30
            a(i) = Int(Rnd() * 50 + 1)
            str = str & a(i) & " "
            If i Mod 10 = 0 Then
                str = str & vbCrLf
            End If
        Next
        str = str & vbCrLf
        For i = 1 To 30
            For j = 1 To 30 - i
                If a(j) < a(j + 1) Then
                    temp = a(j + 1)
                    a(j + 1) = a(j)
                    a(j) = temp
                End If
            Next j
        Next i
        str = str & "排序后的数字是 " & vbCrLf
        For i = 1 To 30
            str = str & a(i) & " "
            If i Mod 10 = 0 Then
                str = str & vbCrLf
            End If
        Next
        TextBox6.Text = str
    End Sub

运行结果：

生成的30个随机数字是
36 27 29 15 16 39 1 39 41 36
3 21 44 40 19 49 44 3 48 19
27 39 3 30 24 15 32 33 14 14

排序后的数字是
49 48 44 44 41 40 39 39 39 36
36 33 32 30 29 27 27 24 21 19
19 16 15 15 14 14 3 3 3 1