Privavte Sub Command_Click()
Timer1.Enabled = True
Timer1.Interval = 100
End Sub
Private Sub Command2_Click()
Form1.Cls
End Sub
Private Sub Command3_Click()
Timer1 = False
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Form1.Circle (Int(Rnd * 8000), Int(Rnd * 8000)), Int(Rnd * 800)
'FillStyle = Int(Rnd * 7)
'FillColor = QBColor(Int(Rnd * 15))
'Timer1.Interval = 10
End Sub
Private Sub Timer1_Timer()
Form1.Circle (Int(Rnd * 8000), Int(Rnd * 8000)), Int(Rnd * 800)
FillStyle = Int(Rnd * 7)
FillColor = QBColor(Int(Rnd * 15))
Line (Int(Rnd * 8000),
心得体会: 在编写程序时总会遇到一些或大或小的问题 ——没有结束语,单词拼写错误,或公式错误等等,这都必须耐下心来,静静思考,而且需要 反复实验,不断摸索,成功是在经历无数次的失败后取得的,正所谓“失败是成功之母”。以后必须要认真学习 VB知识,不断丰富自己,现在学到知识的就是日后的财富 !