Question

VB题:定义一个长度为500的一维数组，为这个数组的每一个元素随机赋值一个整数值，

然后对该组数进行从小到大排序，将原始数组和排序结果输出到界面上

Answer 1

Private Sub Command1_Click()

  Randomize

  Dim a(500) As Integer

  For i = 1 To 500

    a(i) = Int(100 * Rnd)

    Print Format(a(i), "@@@");

    If i Mod 25 = 0 Then Print

  Next i

  Print

  For i = 1 To 499

    k = i

    For j = i + 1 To 500

      If a(j) < a(k) Then k = j

    Next j

    t = a(i): a(i) = a(k): a(k) = t

    Print Format(a(i), "@@@");

    If i Mod 25 = 0 Then Print

  Next i

  Print a(500)

End Sub

追问

怎么用 number result 和 ivs三个排序表来做

追答

不懂。