VB简便15顺序

上次忘交作业了

但我这次有很努力

虽然半懵半会

好吧 但我相信我总有一天会不错的

有点难是真的

还有点不知所措

但是我会变得细心耐心加油哒

Private Sub Command1_Click()

Cls
Font.Size = 30
Dim a As Integer

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

n = 1
While n <= 15
    Print sierdun(n)
    n = n + 1
Wend


End Sub