用vb计算text给出的式子的函数

如果你定义很多个变量的话,实现代码怎么着都不会简短的,可以用数组实现,下面代码可以参考一下：OptionExplicitDimgrp()AsStringPrivateSubForm_Load()ReD

distance是用来计算指定点到最外面圈(以下简称圈9)的圈心的距离Shape1(9).Height\2是圈9的y半径长度Shape1(9).Top+Shape1(9).Height\2是指从圈9的

OptionExplicitPrivateSubCommand1_Click()Label1.Visible=TrueDimrAs__single___Dim____s___AsDouble_cons

原式=e^-∫{2,3}xdx=e^-2.5≈0.0820849986239022101433257932968

PrivateSubCommand2_Click()ScriptControl1.Language="VBScript"y1=ScriptControl1.Eval(Text1)EndSu

4个text1-text4,Label1(0-3).PrivateSubCommand1_Click()Dimk1AsSingle,k2AsSingle,k3AsSingle,k4AsSinglek1

PrivateSubCommand1_Click()Dima,xAsSinglea=Val(Text1.Text)Ifa再问：x=x+a*0.2+3000*0.2怎么都乘0.2呀？

组合框1的值不为空并且组合框2的值不为空并且C

把变量的取值范围贴出来.再问：求公式p=v*Z*F(s,x,y)/I。其他的一样求，其中F(s,x,y)=π/M，M=ln[2ch(πs/2y)]+ln{[shπ(x/y-s/2y)*shπ(x/y+

'引用 Microsoft Script Control 1.0 '应该是你说的,但你说的3x 这样的公式 要写成

text指文本也就是一般的短消息相对于现在比较多的multimediamessage彩信

ound((ProgressBar1.Value/Text2.Text)*10)不过最好执行公式之前判断text2.text是否为数值且不能为0val(text2.text)会比较好点

8*log(2)log(x):求以e为底的自然对数

Privatefunctione()Dime1,n,jcn=0e1=1jc=1Don=n+1jc=n*jce1=e1+1/jcLoopUntil1/jc

Text1.Text=Replace(Text1.Text,"二十一","abc")Replace函数描述返回一个字符串,该字符串中指定的子字符串已被替换成另一子字符串,并且替换发生的次数也是指定的.

DimcAsObjectSetc=CreateObject("MSScriptControl.ScriptControl")c.Language="vbscript"MsgBoxc.Eval("2+4

PrivateSubCommand1_Click()Dimi%DimsAsSingles=0Fori=1To10s=s+1/compu(i)NextiText1.Text=sEndSubFunctio

Functionfactorial(nAsInteger)AsLongDimiAsIntegerDimretAsLongret=1Fori=1Tonret=ret*iNextifactorial=re

就是得到一个范围从0-19之间的随机数因为rnd（）*100就是取0-100之间的随机数但拿这个数再mod20,相当于限制了0-100的范围在0-19之间其实这完全是多余的做法,如果想取这样的随机数,

具体的运算在附件的图里只想再补充一句这其实是运用了完全弹性碰撞的性质即碰撞前后相对速度不变~