作业呀

按这个程序

Private Sub Command1_Click()
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
End Sub
在我的电脑上可运行，为啥在别的电脑上不行呢。太神奇了？？？