随机生成图形

实验四：随机生成图形

一、         实验目的

让程序随机不定时间生成随机种类的图形并生成多个

二、         实验内容

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

 

Private Sub Timer1_Timer()

Randomize

    Cls

    Dim MaxX As Long

    Dim MaxY As Long

    MaxX = Form1.ScaleWidth

    MaxY = Form1.ScaleHeight

    For I = 1 To Int(Rnd * 50 + 1)

        x = Int(Rnd * (MaxX - 500))

        y = Int(Rnd * (MaxY - 500))

       Shape1.Shape = Int(Rnd * 5 + 1)

    Next

End Sub

三、         心得体会

VB程序设计理论对我们这些初学者来说还是一个广大的高深的领域，许多专业术语我们都不明白，对于编写程序不能准确而深刻理解其中内涵，所以一些语言还需要我们的不断学习和把握。我们只有不断地深入了解弄清这些程序语言，真正明白每个术语所表达的含义才能更好地编写程序，领悟其中的精髓。从而更好地运用VB为我们服务。

四、         遇到的问题及解决问题的方法

问题：不太了解过多的程序语言，无法编写完整的程序理论。

解决办法：通过百度查询不了解的知识，使得程序编写完成。

五、         没有解决的问题

不能完成多个图形的生成，只随机产生了一个；

不能随机不定时间随机产生随机种类的图形。