不同图形随机的运动

一·实验目的

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

二·实验内容

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

Dim gAs Boolean

Dim xAs Long

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

PrivateSub 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语言。不会自主的便成为，上网百度。

五·没有解决的问题

听不懂一些术语，无法熟练运用，提升兴趣。