s1:VB之摆出15个数

清明假期三天，因为家远没能回家，无所事事的待在寝室的我，终于想起了VB这项作业

首先，

如何利用VB摆出15个数呢？

先上我的效果图：

是不是很神奇....

具体程序如下：

Private Sub 排序_Click()

Cls

Font.Size = 30

Dim n As Integer

Dim xierdun(15) As Integer

n = 1

  While n <=15

      xierdun(n) = Int(Rnd * 1000)

       n = n + 1

  Wend

n = 1

While n <= 15

Print xierdun(n)

n = n + 1

Wend

 

End Sub

小结：这次的作业利用了数组的知识，大大的减少了程序的篇幅，化繁为简，在这里，应该注意中间的n=n+1部分，避免程序进入死循环。