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真的是一件很神奇的事，编程序的人头脑真不一般啊，
    虽然  每次做题时总是出错不过在别人的帮助下最后做完了，会有一种很强的成就感， 
     这次的程序过程都是在网上找的，也学到了不少东西呢
     每次遇到问题会再网上找答案或是找方法而且还会和同学之间交流，这样很大的提高了我们的做题速度，
      作题变成了一件很愉快的事情   不过最后还是遇见了很多不能解决的问题就是   没有完成多个圆的运动 ，但是我相信通过我和同学之间的交流最后回将问题解决的