我的第一次作业喔

    这是第一次写所谓的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