dim s as integer
private sub form_load()
s=1
end sub
private sub timer1_timer()
select case s
case 1
shape1.move shape1.left-20,shape1.top-20
if shape1.left<=0then
s=2
else
s=3
end if
case 2
shape1.move shape1.left+20,shape1.top-20
if shape1.top<=0
s=3
else: s=4
end if
case 3
shape1.move shape1.left+20,shape1.top+20
if shape1.left+shape1.width>=form1.width then
s=4
else
s=1
end if
case 4
shape1.move shape1.left-20,shape1.top+20
if shape1.left<=0
s=2
else
s=1
end if
end select
end sub
谁可以告诉为在最下端的时候运动有问题

我在宿舍运行过,在最下端的时候,它不是靠边就上弹