在VB中如何将字符串 "(10+20)*2+2" 执行并得到结果 62
解决方案 »
- MSFlexGrid控件中加入复选框
- 如何能使用已有的窗体和其代码
- 高分悬赏:VB6.0 鼠标划词复制 源代码或实现方法
- 下标越界
- VB中用下列函数发邮件,为什么我收到邮件的日期是1970年?
- 求助:两个数据库之间插入,删除数据问题
- 我用VB打过包后,在XP下安装时为什么提问“Path Or File not found ! 对话框?”单击确定按钮退出安装程序!请问怎么解决?(在win98正常)
- 新手求救!!!!急!!!!关于数据用写字板分次记录问题!!
- 请教 ObjPtr()
- 请问众位高手,Visual Studio.net是一个什么概念,是一种编程工具,还是什么?
- spreadsheet 控件的单元格内容的长度如何控制?高分相送!
- 在线求救!我都快弄晕了!
你还不如做四个文本框 运用标签标明 (xxx+xxx)*xxx+xxxx在用一个算式算出结果 w=(val(trim(text1)+.......这是我的苯方法,讨论 学习
同意的是zcm123的方法
1410104(兔子) 不行
Dim test As String
test = "(10+20)*2+2"
MsgBox Me.ScriptControl1.Eval(test)
End Sub
Dim scr As Object, test As String
test = "(10+20)*2+2"
Set scr = CreateObject("MSScriptControl.ScriptControl")
scr.Language = "vbscript"
MsgBox test & "=" & scr.Eval(test)
End Sub
Dim str As String
Dim scr As Object
str = "(10+20)*2+2"
Set scr = CreateObject("MSScriptControl.ScriptControl")
scr.Language = "vbscript"
Text1.Text = scr.Eval(str)
End Sub
B:用“Microsoft Script Control1.0”控件
1、用“Microsoft Script Control1.0”控件。
2、到网上找一个计算表达式的值的控件。
dim num as integer
num=cint((10+20)*2+2)
或
num=cdbl((10+20)*2+2)