我的第一次作业喔

    这是第一次写所谓的vb作业，虽说之前上过好几节课，但是一直没有写。回忆我的vb课，真是一把辛酸泪。哈哈，各种不会下面就把我的作业分享给大家

Dim n As Integer
 
Dim sierdun(15) As Integer
n = 1
While n <= 15
   sierdun(n) = Int(Rnd * 1000)
   n = n + 1
Wend
    
n = 1
While n <= 15
  Print sierdun(n)
  n = n + 1
Wend