实验四:随机生成图形
一、 实验目的
让程序随机不定时间生成随机种类的图形并生成多个
二、 实验内容
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程序设计理论对我这个初学者来说是很神秘,很难的,一些语言还需要我们的不断学习和把握。我们只有不断地深入了解弄清这些程序语言,不断地练习,上网学习,才能更好地编写程序,领悟其中的精髓。
四、 遇到的问题及解决问题的方法
不太了解过多的程序语言,无法编写完整的程序理论。
通过百度查询不了解的知识,使得程序编写完成。
不看书几乎就不会编写程序,不大理解一些术语。
上网查资料,问老师,请教同学,把问题解决。
五、 没有解决的问题
不能完成多个图形的生成,只随机产生了一个。
计算机程序老师不告诉,不看书,就不会编写。