VB实验报告

                                                                    系别：电子信息科学与技术               班级：电子2班                 姓名： 李金颖                     日期：3月20号

  一      实验目的：制作实现能动图形

      二      实验内容；打开窗口，再左边的工具栏中查找相应的选项，再右边窗口，拖拉产生按钮，再在右下角进行编辑，单机按钮输入 相应程序如下：

Private Sub Command1_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真的是一件很神奇的事，编程序的人头脑真不一般啊，

    虽然  每次做题时总是出错不过在别人的帮助下最后做完了，会有一种很强的成就感， 

     这次的程序过程都是在网上找的，也学到了不少东西呢

     每次遇到问题会再网上找答案或是找方法而且还会和同学之间交流，这样很大的提高了我们的做题速度，

      作题变成了一件很愉快的事情   不过最后还是遇见了很多不能解决的问题就是   没有完成多个圆的运动 ，但是我相信通过我和同学之间的交流最后回将问题解决的