一、 实验目的
让程序随机不定时间生成随机种类的图形并生成多个
二、 实验内容
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是一个深奥的学科。但他有自己的规律,只要掌握其规律,戒骄戒躁,逐步完善,就可以完成任务。最大的收获:戒骄戒躁,循序渐进,由基础做起!!。
五、 没有解决的问题
不能完成多个图形的生成,只随机产生了一个