别的不说，我就呵呵，干呵呵！

大哥，这是个啥子嘛，

完全不懂嘞！

我就干坐着呵呵！

唉！！！！！！！

Private Sub  Command_Click()

       Cls

       Font.Size = 30

       Dim n As Integer

      

       Dim siderdun (15) As Integer

       n=1

       While n <=15

                 siderdun (n)=Int (Rnd *1000)

                 n=n+1

       Wend

 

       n=1

       While n <=15

                 Print  siderdun(n)

                 n=n+1

      wend