大哥,这是个啥子嘛,
完全不懂嘞!
我就干坐着呵呵!
唉!!!!!!!
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