15电气李书鹏VB作业3（1）

15个没有顺序的随机数

点击左侧Command  双击输入

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