一直的没思想

写了半天终于能运行了，但不知道啥玩意。。。。。。

Cls

   Font.Size = 30

   Dim n As Integer

   

   Dim sierdum(15) As Integer

    n= 1

   While n <= 15

       sierdum(n) = Int(Rnd * 1000)

       n = n + 1

   Wend

   

    n= 1

   While n <= 15

       Print sierdum(n)

       n = n + 1

   Wend