大家好，我是小十，我来为大家解答以上问题。vb语言编程实例，vb编程实例很多人还不知道，现在让我们一起来看看吧！

控件：

image,picture,timer

代码：

Dim x As Integer Dim y As Integer

Private Sub Form_Load() x = 100 y = 100 Timer1.Interval = 100 End Sub

Private Sub Timer1_Timer() If img.Top >= pic.Height - img.Height Then y = -100 End If If img.Top <= 0 Then y = 100 End If If img.Left >= pic.Width - img.Width Then x = -100 End If If img.Left <= 0 Then x = 100 End If img.Top = img.Top + y img.Left = img.Left + x End Sub 以上代码实现的是图片框中的一个小球做的规律的运动，当小球碰到图片框边缘时便反弹继续运动

本文到此讲解完毕了，希望对大家有帮助。