Question

跪求大神帮忙用VB程序写这道题！！！

一列火车在某地时的速度为V=40km/h,现以加速度a=0.15m/s^2加速行驶,试编写一个程序.求2min后的速度V和距开始点的距离S.

Answer 1

Private Sub Command1_Click()
dim TS as integer,Tv0 integer, Tv1 as integer,Ta as integer,Tt as integer
TV0=40*1000/3600
Tt=2*60
'先化简，统一各单位 v=40KM/h=100/9 m/s ,a = 0.15 m/s, t=120 s
Tv1=Tv0+Ta*Tt '由公式v2=v1+at得
TS=Tv0*Tt+Ta*(Tt)^2/2 '由公式s=v0t+at^2/2得
text1.text=Tv1 '2min后速度V
text2.text=TS '距开始点的距离S
end sub

‘必要的话可以进行单位换算