在VB中,如何从文本框里获取算式直接计算?

比如说我在文本框里输入一个算式:1×2+3÷4+5
按下“计算”按键,文本框里即出现计算结果。不用太复杂的计算器代码。

添加加ScriptControl部件,用这个控件Eval方法来实现
如 Print ScriptControl1.Eval(Replace(Replace("1×2+3÷4+5", "×", "*"), "÷", "/"))
等价式为 Print ScriptControl1.Eval("1*2+3/4+5")
输出的是 7.75.
要注意 替换 × ÷ 等 非法运算符为VB可以识别的运算符 * / .
温馨提示:内容为网友见解,仅供参考
第1个回答  2011-10-31
就只有4个运算符号还是随便不确定计算符号的数目?要是只有4个运算符号的话简单很多,大概方法是,先找出这个算式的运算符,然后取出它两边的数值并先计算乘号和除号的值,然后再做加减的,要是有括号就需要再判断了~~~
第2个回答  2011-10-31
这个算法,不是一般的算法.有点难度!!!我也想学习学习!

在VB中,如何从文本框里获取算式直接计算?
要注意 替换 × ÷ 等 非法运算符为VB可以识别的运算符 * \/ .

VB 如何在text中输入算式并计算其值?
用for循环逐一取出text的内容,用select case进行判断,如果取出的是数字,就把这个数字转换成字符串并保存到一个变量(比方说a)中(之所以转换成字符串是为了以后连接下一个数字之时方便),然后继续for循环去取下一个字符。直到取出的字符是加减乘除中的一个,然后将这个运算符保存在另一个变量(比方...

在VB中怎样才能把字符串当作算式来运算?
按以下方法即可Function Eval(ByVal Expressions As String) As String '文本运算vbs Dim Mssc As Object Set Mssc = CreateObject("MSScriptControl.ScriptControl") Mssc.Language = "vbscript" On Error GoTo EvalErr Eval = Mssc.Eval(Expressions) Exit FunctionEvalErr: Exit ...

VB 把文本框里面的1+2计算出来
建议楼主你写函数是最好的了,比如说:你在里面输入一个算式如:1+2,那么你的函数首先检测里面是有哪一个运算符,是+-*\/里面的哪一个,这个容易吧。然后再找出算式符前面的数字和后面的数字。找出来后,就可以直接调用某个函数运算了,+-*\/,你写四个函数。结果不就出来了吗?

vb.net里怎么把文本框的科学记数法带入算式?
private void button1_Click(object sender, EventArgs e) { textBox1.Text = "9.0*10ˆ2";\/\/注意乘方符号被百度篡改了 MessageBox.Show(F(textBox1.Text).ToString());\/\/900 } public static double F(string s) { string f = s.Substring(0, s.IndexOf("*...

怎样在VB中将文本转换成数值
1、首先在电脑中找到并打开VB软件,找到一句输出的函数。2、然后在其数组变量中,套上一个Str函数。3、这里注意函数的关键字,是没有区分大小写的。4、然后函数是可以多个嵌套使用。5、最后点击运行按钮,这样就可以成功运行测试,如下图所示,转换就完成了。

vb 如何把x替换为输入框内的公式
你直接在text1这个文本框中输入 算式 (2 \/ b) * ((-1 + 2 * n \/ b) ^ 2 - 1) ,点按钮1 就行了 不过你加上 s=a+的话就执行不了了。可以换其他的东西 比如用这个 Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As...

关于vb计算公式
如果想直接查看结果:msgbox 12+4*(20-(3*4+3)-1)\/2 如果是变化的计算式:那需要先创建控件,为了使用Eval函数:Set Calculater=CreateObject("MSScriptControl.ScriptControl")Calculater.language="VBScript"msgbox Calculater.Eval(Text1.text)

在vb中怎么把输入的字符串转换为算式?
直接利用VB6提供的 Script Control 控件来做就行了,很简单又支持特别多的功能。如你所述要计算2*4,只需用此控件的eval方法,如 Ans=Script1.Eval("2*4") 就行了。当然用文本控件作为输入如:Ans=Script1.Eval(Text1.text) 。此控件支持复杂的数学运算式,同时也支持VB其它的属性、方法等的调...

vb6.0怎么在窗口输入数学算式,像课本上那样,比如指数不用∧表示,直接在...
有一个软件叫做mathtype

相似回答