名为阿尔托莉雅的少女:模拟一个小球在屏幕上匀速直线运动,当小球碰到屏幕第四个边时便会弹回,用QBASIC怎么编程序
来源:百度文库 编辑:高校问答 时间:2024/10/06 10:57:02
首先创建一个不规则形状的窗口,网上很多例子.
然后声明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度的水中,当温度升高时,小球将上浮还是悬浮还是下沉