十个数输出！！！

Cls ﹉﹉擦出屏幕

Font.Size=30﹉﹉字体大小等于30

Dim n As Integer

Dim sierdun(10) As Integer

﹉﹉﹉﹉下面给上面创建的15个空间赋予一个随机变量

n=1

While n<=10

        sierdun(n)=Int(Rnd * 1000)

        n=n+1

 Wend

﹉﹉﹉将其中的10个整数在屏幕上显示

 n=1

while n<=10

      print sierdun(n)

      n=n+1

 Wend

﹉﹉﹉显示结束

心得体会:在上机操作时我在程序里加上cls和font.size=30时无法操作成功，去掉这部分时正常运行，于是我就问老师，老师讲解了这些代码的意思后我理解了，并且一一操作了这几个代码的事例，我边看边感觉vb太神奇了，太好玩了，特别值得一提的是我以前就把这些代码当作字母的拼接，在老师的指导下我知道了这些代码要和英文单词联系起来。同学们呀，有不懂的一定要问老师呦，你一定会学到好多东西。