Question

VB怎样实现一个小球碰壁反弹的效果？要简单点。还没有学复杂的函数。

Answer 1

假设高的移动速度为v1，横的移动速度为v2，小球的控件名为Ball
dim v1 as integer
dim v2 as integer

'下面为小球的移动
Ball.top=ball.top+v '向着右下移动
ball.left=ball.left+v

if ball.top>=me.top then '撞击底部
v1=v1*-1 '重点：此处将高的移动速度乘以-1，表示让其反方向移动，下面同样
endif

if ball.left>=me.left then '撞击右边
v2=v2*-1
endif

if ball.top=<0 then '撞击顶部
v1=v1*-1
endif

if ball.left=<0 then '撞击左边
v2=v2*-1
endif

这是最基本的反弹效果，可以根据你的需要做适当更改

Answer 2

s=v0*t
s-返回的路程
v0-返回的速度（move 属性）
t-返回的时间（timer 控件）