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

2025-02-24 21:33:02

推荐回答（1个）

回答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

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