（vb编程问题）随机产生10个两位数，显示该十个数，按大到小的顺序排序，并显示出来

Question

Public Class Form1
Dim sl(9) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim i%
For i = 0 To 9
sl(i) = Int(Rnd() * 90 + 10)
Label1.Text &= sl(i) & Space(2)
Next
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim j%, Max%, t%, n%
For i = 0 To n - 1
Max = i
For j = i + 1 To n
If sl(j) > sl(Max) Then Max = j
Next j
t = sl(i)
sl(i) = sl(Max)
sl(Max) = t
Next
Label1.Text = " "
Label2.Text &= sl(j) & " "
End Sub
End Class

Answer 1

import java.util.Arrays;
import java.util.Random;

public class Main
{
public static void main(String[] args)
{
int array[] = new int[10];
for(int i=0;i<10;i++)
{
array[i] = new Random().nextInt(90) + 10;
}
Arrays.sort(array);
System.out.println("生成的随机数的排序结果是："+Arrays.toString(array));
}
}

Answer 2

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim rnd As Random = New Random
        Dim l As List(Of Integer) = New List(Of Integer)
        Dim tmp As Integer = 0
        For i As Integer = 0 To 9 Step 1
            tmp = rnd.Next(10, 100)
            l.Add(tmp)
        Next
        l.Sort()
        For i As Integer = l.Count - 1 To 0 Step -1
            TextBox1.Text += l(i).ToString + vbCrLf
        Next

    End Sub

本回答被网友采纳