UC知道求助:编译一个在固定的公式下进行计算的程序!!
来源：百度知道 编辑：UC知道 时间：2024/06/03 17:04:01
可以自由输入的数字是:(用字母代替)A、B、C、D、F
E、X为未知数:
公式一:E=(A+B+C+2D)/5;
公式二:X=E+(A-B);
公式三:X＝2E－B；
公式四：X＝2E－A；
公式五：X＝E－（A－B）；
公式六：X＝E＋（1－2＋3＋4）/5：
公式七：X＝（5＋F）/2：
由于懒的每次后要套公式，想只要输入几个数字就可以得到答案，加大工作效率，所以求助软件编译高手帮个忙，编个小软件用用～！
呵呵～～悬赏分就不给拉，不过给出最佳答案的人，我会用这些公式的用途来感谢他．这些公式用的好的话就可以用来赚钱哦！～！
楼下的~~
好象不行啊~~我写了,但是错误啊!!
E、X为未知数:
公式一:E=(A+B+C+2D)/5;
公式二:X=E+(A-B);
公式三:X＝2E－B；
公式四：X＝2E－A；
公式五：X＝E－（A－B）；
公式六：X＝E＋（1－2＋3＋4）/5：
公式七：X＝（5＋F）/2：
由于懒的每次后要套公式，想只要输入几个数字就可以得到答案，加大工作效率，所以求助软件编译高手帮个忙，编个小软件用用～！
呵呵～～悬赏分就不给拉，不过给出最佳答案的人，我会用这些公式的用途来感谢他．这些公式用的好的话就可以用来赚钱哦！～！
楼下的~~
好象不行啊~~我写了,但是错误啊!!
下面的内容用记事本另存为a.vbs,双击运行.
缺少的公式你自己补全
'-------------
Dim a,b ,c,d,e
a=InputBox( "input a:")
b=InputBox( "input b:")
c=InputBox( "input c:")
d=InputBox( "input d:")
f=InputBox( "input f:")
WScript.echo "e=" & (A+B+C+2*D)/5
WScript.echo "x=" & E+(A-B)