vb题随机生成【0,100】10个数,选择法排序。

Answer 1

Private Sub Command1_Click()

  Dim a(10) As Integer

  For i = 1 To 10

    a(i) = Int(101 * Rnd)

  Next i

  For i = 1 To 9

    k = i

    For j = i + 1 To 10

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

    Next j

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

  Next i

  For i = 1 To 10

    Print a(i);

  Next i

  Print: Print

End Sub

Answer 2

Dim a(1 To 10) As Integer, zc As Integer
For i = 1 To 10
a(i) = Int(Rnd * 101) '0~100一共101个数，从零开始，所以是int(rnd*101+0)，+0省略
Print a(i); '打印原始数据
Next i
Print
For i = 1 To 10
For j = 1 To 9
If a(j + 1) < a(j) Then '如果下标较大的比下标较小的还要小
zc = a(j + 1) '就替换
a(j + 1) = a(j)
a(j) = zc
End If
Next j
Next i
For i = 1 To 10
Print a(i); '打印排序后数据
Next i

如果要在Form中成功打印需要把Form.AutoRedrew设置成True

Answer 3

Timer1 嗯嗯嗯...