UC知道vb匀速直线运动计算器如何设计
来源：百度知道 编辑：UC知道 时间：2024/06/20 22:29:11
就是说比如5个txet控件 随便找三个出来 便可以计算出其他两个 随便的
比如 txet1，2，3给出，可以求4，5。1，2，4给出，可求3，5。反正就是任意的三项。给个思路。如何写代码。
匀速直线运动和匀加速直线运动是二个不同的物理概念，根据你的题意，可能是匀加速直线运动。
在中学物理中关于匀加速直线运动的基本公式如下：
S=Vo*t+a*t^2/2 ，我们称公式1，在编程的注释中用到
Vt=Vo+a*t ，我们称公式2，在编程的注释中用到
根据上面二个基本公式，用VB实现你的要求是不困难的，下面是VB60的代码：
Private Sub Command1_Click()
'计算过程
Dim S As Single, T As Single, Vo As Single, Vt As Single, A As Single
S = Val(Text1.Text): T = Val(Text2.Text): Vo = Val(Text3.Text): Vt = Val(Text4.Text): A = Val(Text5.Text)
If S <> 0 And T <> 0 And Vo <> 0 Then
'已知路程、时间、初速度，求末速度和加速度
'根据公式1，可以求得加速度a，根据公式2，可以求得末速度Vt
A = (2 * S - 2 * Vo * T) / T ^ 2 '根据公式1
Vt = Vo + A * T '根据公式2
Text5.Text = A
Text4.Text = Vt
ElseIf S <> 0 And T <> 0 And Vt <> 0 Then
'已知路程、时间、末速度，求初速度和加速度
A = (2 * Vt * T - 2 * S) / T ^ 2 '根据公式1和公式2复合解得
Vo = Vt - A * T '根据公式2
Text5.Text = A
Text3.Text = Vo
ElseIf S <> 0 And T <> 0