以下是的大学VB考试题 实在不会帮帮忙谢谢了

[gh2107263]

用钢丝法确定轴系理论中心线，钢丝线在首、尾基准点不同位置处饿挠度Y
Y=q*x(L-x)/(0.99*2T)(mm)
式中 q——钢丝单位长度的重量 N/m
x——所求挠度处到基准点的距离 m
L——首、尾基准点间的距离　m
T——拉力　９.８Ｎ
　　０.９９——修正系数

[博比]

问题呢？

[Sandrer]

Private Function yPoint(ByVal q As Double, ByVal x As Double, ByVal L As Double, ByVal T As Double) As Double
    yPoint = q * x * (L - x) / (0.99 * (2 * T))
End Function

Private Sub Form_Load()
    DeBug.Print yPoint(1, 1, 1, 1) & "mm"
End Sub