Cls Dim n As Integer Dim wzs(10) As Integer n = 1 While n <= 10 wzs(n) = Int(Rnd * 1000) n = n + 1 Wend n = 1 While n <= 10 Print wzs(n) n = n + 1 Wend