用VB或者C语言都行帮我编个计算公式的程序~~~~~~输入已知条件a,b,d,l,ft,fr的值输出fc,fs,f,g的值（值有负数以及小数点后面有4位）公式为：fc=(64*fr*a*a*b*b)/(3*3.14*210000*l*d*d*d*d)fs=(64*ft*a*a*b

Question

用VB 或者C语言 都行帮我编个计算公式的程序~~~~~~输入已知条件 a ,b ,d,l, ft ,fr的值 输出fc,fs,f,g的值（值有负数以及小数点后面有4位） 公式为：fc=(64*fr*a*a*b*b)/(3*3.14*210000*l*d*d*d*d) fs=(64*ft*a*a*b*b)/(3*3.14*210000*l*d*d*d*d) f=fc的平方和+fs的平方和 再开根号 g=(64*fr*a*b*(b-a))/（3*3.14*210000*l*d*d*d*d） 大概有10组数据会重复用到这些公式，希望大神能帮忙编个程，计算方便点，谢了哈！！

Answer 1

用vb写 Private Sub Form_Load() ' Dim a As Double Dim b As Double Dim d As Double Dim l As Double Dim ft As Double Dim fr As Double Dim fc As Double Dim fs As Double Dim f As Double Dim g As Double Do While MsgBox("是否继续？", 4 + 32) = vbYes a = CDbl(InputBox("请输入a的值")) b = CDbl(InputBox("请输入b的值")) d = CDbl(InputBox("请输入d的值")) l = CDbl(InputBox("请输入l的值")) ft = CDbl(InputBox("请输入ft的值")) fr = CDbl(InputBox("请输入fr的值")) fc = (64 * fr * a * a * b * b) / (8 * 3.14 * 210000 * l * d * d * d * d) fs = (64 * ft * a * a * b * b) / (3 * 3.14 * 210000 * l * d * d * d * d) f = Sqr((fc ^ 2) + (fs ^ 2)) g = (64 * fr * a * b * (b - a)) / (3 * 3.14 * 210000 * l * d * d * d * d) MsgBox "fc=" & fc & ",fs=" & fs & ",f=" & f & ",g=" & g Loop End Sub