Question

VB程序实现小球的下落,单击窗体小球下落,小球接触到地面时返回顶部

Answer 1

Dif f As Boolean
Private Sub Form_Click()

Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If f Then
Shape1.FillColor = QBColor(Int(13*Rnd+1))
Shape1.Top = 0
f = False
Else
Shape1.Top = Shape1.Top + 100
If Shape1.Top + Shape1.Height >= Line1.Top Then f = True
End If
End Sub

Private Sub Shape1_Click()
If Timer1.Enable = False Then Exit Sub '小球没有下落时，点击Shape1不退出
Unload me
End Sub

Answer 2

你看看这个可以吧！看附件好了。

追问

您看，这段代码着怎么写呢？？？