7个回答
展开全部
可以使用一个函数来计算。
Function Eval(ByVal str As String) As Double
Set Mssc = CreateObject("MSScriptControl.ScriptControl")
Mssc.Language = 旦枝"vbscript"
Eval = Mssc.Eval(str)
End Function
调族伍用方法:
将以上代码放入通兆迟或用中;
在相应事件(click)中加入以下代码:
text2.text = eval(text1.text)
'注:text1为输入算式的文本框,text2为输出文本框。
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
在VB中,我给出几个常用转换函数。余虚
(1)Val(字符串函数):将字符串转换为数值,如;2+Val("12")的结果是14
(2)Str(数值):将数值转换为字符串,如:Str(5)的结果为“5”
(3)Asc(字符):求字符对应的字符代码,如:Asc(A)的结果为65
(4)Cint(表达式):将表达式竖庆燃的结果转换为整数,小数部分四舍五入,如:Cint(差羡3.1415926535*2)的结果为6
(1)Val(字符串函数):将字符串转换为数值,如;2+Val("12")的结果是14
(2)Str(数值):将数值转换为字符串,如:Str(5)的结果为“5”
(3)Asc(字符):求字符对应的字符代码,如:Asc(A)的结果为65
(4)Cint(表达式):将表达式竖庆燃的结果转换为整数,小数部分四舍五入,如:Cint(差羡3.1415926535*2)的结果为6
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
这涉及到表达式计算了,不是简单一两行代码就搞得定的。
记得以前做过一个竖李简单的表达式让纤扮计算的,坦灶你一定要的话我去找找
记得以前做过一个竖李简单的表达式让纤扮计算的,坦灶你一定要的话我去找找
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
根据你的假如,这个问题实际已经不仅仅是将文本转换成数值那样简单了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询