本人初学vb，有一个复杂很长的计算式，总是不能运行，听说有可以编辑计算式的软件，在软件里编辑完计算式后，可以直接复制到vb代码里，现求助大家！！！！！！！！！

这种事情还需要用辅助软件？把那个复杂的式子发出来，让吧友们给你解答

Val(Text6.Text)*Val(Text6.Text)*Val(Text14.Text)*Val(Text14.Text)*0.5*(Val(Text9.Text)+Val(Text12.Text))*(sin(Val(Text10.Text))-sin(Val(Text11.Text)))-0.008468*(Val(Text10.Text)-Val(Text10.Text))*（Val(Text9.Text)+Val(Text12.Text)）*0.5*(Val(Text9.Text)+Val(Text12.Text))*(sin(Val(Text10.Text))-sin(Val(Text11.Text)))-0.008468*(Val(Text10.Text)-Val(Text10.Text))*（Val(Text9.Text)+Val(Text12.Text)）/(Val(Text13.Text)*Val(Text13.Text))

你不会用变量么……用变量可以把这样一行代码拆分成多行，从而缩短每一行的长度，关键是这个表达式不会看起来太复杂
大致像下面这样：（我不知道你的原始式子中都用了什么字母，就这样用a~i表示了）
dim a as double,b as double,c as double
dim d as double,e as double,f as double
dim g as double,h as double,i as double
a=val(text6.text)
b=val(text7.text)
c=val(text8.text)
d=val(text9.text)
e=val(text10.text)
f=val(text11.text)
g=val(text12.text)
h=val(text13.text)
i=val(text14.text)
'a*a*i*i*0.5*(d+g)*(sin(e)-sin(f))-0.008468*(e-e)*(d+g)*0.5*(d+g)*(sin(e)-sin(f))-0.008468*(e-e)*(d+g)/(h*h)
'表达式简化如上，可以看到有两处(e-e)，这样就变成0了，肯定不是你希望的结果，请根据你的原始式子自行修改

a^2*i^2*0.5*（d+g）*（Sin（e））-Sin（f）
好像最后是这样

这么复杂的算式

楼上各位，楼主的原始公式的数找不到了，可能被原始天尊拿走了，你们要原谅他

个人觉得使用VBscript的eval应该也可以吧。。