随机生成图形

代码编写：

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

心得体会：

第一次自己制作出这么有意思的小游戏，觉得很有兴趣呢！