几个实验之四

实验四：随机生成图形

一、    实验目的

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

二、    实验内容

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是一个深奥的学科，对于我们这些新手来说。但他有自己的规律，只要掌握其规律，戒骄戒躁，逐步完善，就可以完成任务。最大的收获：戒骄戒躁，循序渐进。不要妄想一蹴而就，踏实的一步一步来，总会成功。

五、    没有解决的问题

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