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
谁可以告诉为在最下端的时候运动有问题

你没有在vb里试过吗?.
那些字没有变大写?你没有在vb里运行过?

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

那你看我的代码吧.
我之前有贴过.

这个光用看的看不出来。。。你跟踪调试一下

是的.

简单看了看 觉得逻辑有问题呀

case 1
shape1.move shape1.left-20,shape1.top-20
if shape1.left<=0then
s=2
else
s=3
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

如果form很大 shape很小 岂不就是s在1 和 3 跳来跳去 左移20 下移20 再右移20 上移20 反复这个循环

我之前就贴过代码啊..找找吧.