四、生成随即图形

一、  实验目的

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

二、  实验内容

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是一个深奥的学科。但他有自己的规律，只要掌握其规律，戒骄戒躁，逐步完善，就可以完成任务。最大的收获：戒骄戒躁，循序渐进，由基础做起！！。

五、  没有解决的问题

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