Question

制作一个跳动的小球,加速下落,减速弹起用vb怎么回事

Answer 1

Private Sub Form_Click()  '点击窗体可启动或暂停小球
Timer1.Enabled = Not Timer1.Enabled
End Sub

Private Sub Form_Load()
Shape1.Shape = 3
Shape1.Width = 450
Shape1.Height = 450
Shape1.Move (Me.ScaleWidth - 450) \ 2, 0
Shape1.FillStyle = 0
Shape1.FillColor = vbRed
Shape1.BorderStyle = 0
Timer1.Enabled = False
Timer1.Interval = 50
End Sub

Private Sub Timer1_Timer()
Static s As Integer, t As Integer
If t = 0 Then t = 1
s = s + t
Shape1.Top = 10 * s ^ 2
If Shape1.Top >= Me.ScaleHeight - Shape1.Height Then
    t = -1
ElseIf Shape1.Top <= 0 Then
    t = 1
End If
End Sub

程序中用到两个控件：shape1、Timer1，均采用默认值即可