VB中列出10个数

Private Sub Command1_Click()
    Cls
    Font.Size = 30
    Dim n As Integer

    Dim sierdun(10) As Integer
    n = 1
    While n <= 10
        sierdun(n) = Int(Rnd * 1000)
        n = n + 1
    Wend

    n = 1
    While n <= 10
        Print sierdun(n)
        n = n + 1
    Wend
End Sub

今天的第一项任务已经完成，再接再厉（不用排序真爽）