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

Question

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

Answer 1

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 FunctionPrivate Sub Form_Load()
    DeBug.Print yPoint(1, 1, 1, 1) & "mm"
End Sub