vb实现能动图形

一·实验目的

  为了对vb语言的运用有更好的把握，同时能够运用vb语言实现不同图形随机的运动。

二·实验内容

  首先，在form1上画出commandbutton,写上开始运动，在画一个闹钟timer1,再点击画图工具选择第三种类型画出一个小球。双击小球进行编程，语言如下;

Dim g As Boolean

Dim x As Long

    再双击开始运动按钮，编写程序语言，语言如下：

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

    再双击窗体，编写程序语言，语言如下：

Private Sub Form_Load()

g = True

x = Shape1.Left

End Sub

    再双击闹钟，编写程序语言，语言如下：

Private Sub Timer1_Timer()

If g Then

x = x - 300

Else

x = x + 300

End If

 

 

If x < 0 Or x > (Me.ScaleWidth - Shape1.Width) Then

g = Not g

End If

 

Shape1.Move x

 

End Sub

最后点击运行实现整个程序的运行。

三·心得体会

  通过对vb几个实验题的训练，我能够了解vb的基础运作和编写一些简单的vb程序，同时也使我对vb产生了一些兴趣，最重要的是学习vb使我掌握了一种学习方法就是在遇到困难的时候要尽可能地想办法去解决并且能够充分地利用一切有效的资源，掌握更多的知识。但是我在学习vb的时候也存在着很多问题，比如说作为一个vb语言入门者，觉得很多词汇都很陌生，就觉得很入门很吃力。但我还是尽可能地学好它。

四·遇到的问题及解决问题的方法

  不能准确的运用vb语言，在学姐学长的指导下纠正了所犯的错误，常常再输入vb语言的时候出现词汇的拼写错误，解决方法，熟悉vb语言，加上细心耐心专心，突破这个障碍。对于vb的程序语言不能理解，最终通过上网和收集各种资料解决这个问题。

五·没有解决的问题

对于vb语言很陌生，不知道灵活地运用vb语言，脱离了编好的程序语言，自己就不会编写程序语言，对于这个问题我还没有解决，我希望解决这个问题老师能够协助，在学习vb的时候，先给我们讲讲vb语言的基本含义和运用方法。