腥红之月亚索有特效吗:模拟一个小球在屏幕上匀速直线运动,当小球碰到屏幕第四个边时便会弹回,用QBASIC怎么编程序

来源：百度文库编辑：高考问答时间：2024/05/14 02:51:50

首先创建一个不规则形状的窗口,网上很多例子.
然后声明2个整数变量CX,CY和两个Boolean 变量ToLeft,ToTop
窗口上添加一个Timer控见.
添加如下代码:
Private sub Timer1_timer()
if cx<=0 Then
toleft=true
else
toleft=false
end if
if cy<=0 then
totop=false
else
totop=true
end if
if toleft then
cx=cx-10
else
cx=cx+10
end if
if totop then
cy=cy-10
else
cy=cy+10
end if
move cx,cy
end sub

模拟一个小球在屏幕上匀速直线运动，当小球碰到屏幕第四个边时便会弹回模拟一个小球在屏幕上匀速直线运动,当小球碰到屏幕第四个边时便会弹回,用QBASIC怎么编程序一个表面粗糙的小球在绝对光滑的平面上能做匀速直线运动吗?会有摩擦力产生吗? 用绳子栓住一个小球在光滑的水平面上做匀速圆周运动，当绳子突然断开，小球将（）请问在VB中如何模拟一个重力场中小球飞行的轨迹？一个小球爱好者一个小球有静止开始在一个斜坡上向下滚动，其速度每秒增加2米/秒。到达坡底时，小球速度达到40米/秒。一个小球从1.5米长的斜面上滚下,用了0.3秒的时间,求小球在斜面上运动时的平均速度. 一个重8牛的小球，受到5牛的拉力，作匀速直线运动，那么阻力为多少？有一小球悬浮在20度的水中,当温度升高时,小球将上浮还是悬浮还是下沉