vb老师讲的出随机数法

点左边那个commond，双击，输入

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

老师上课讲的要记住写n=n+1，要不可能进入一个死循环，应该在一个适当位置，让n的值改变