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