7,763
社区成员
发帖
与我相关
我的任务
分享怎么能用输入的文本进行计算
我在text5里输入了一个方程，用一个数字替换里面的x，然后进行计算，可是结果不对，我的程序其他方面没有错误，是不是由于text5里是字符串，不能计算？如果不是？怎么做？希望大虾们指教
...全文
请发表友善的回复…
发表回复
lovecat2003 2003-10-26
- 打赏
- 举报
没好，我带个函数，结果让我加个数组，越来越繁了
lovecat2003 2003-10-26
- 打赏
- 举报
我得出来的是个字符串，不是结果，怎么能把字符串转换呀
kmzs 2003-10-26
- 打赏
- 举报
好了吗？
lovecat2003 2003-10-26
- 打赏
- 举报
谢谢
rimancool 2003-10-26
- 打赏
- 举报
找个计算器的小程序看看，应该可以解决吧
oxfordxyc 2003-10-25
- 打赏
- 举报
为什么不写一个带参数的函数呢？
FUNCTION F(BYVAL X AS SINGLE) AS SINGLE
你的方程
END FUNCTION
完了直接调用F(VAL(TEXT1.TEXT))就可以了，你自己试试
FUNCTION F(BYVAL X AS SINGLE) AS SINGLE
你的方程
END FUNCTION
完了直接调用F(VAL(TEXT1.TEXT))就可以了，你自己试试
escalj 2003-10-25
- 打赏
- 举报
Text5实际上是一个字符串，对输入进去的方程需要字符识别才能计算，而这个过程是一个很复杂的过程。需要对该字符串中每一个字符进行判定，比如负号，小数点，运算操作符，函数（sin ,cos,log等）以及数位等等，而不同的运算符、函数、甚至括号都要考虑它们的优先级问题。我曾经用栈实现过，只是功能很简单。
lovecat2003 2003-10-25
- 打赏
- 举报
a1 = Val(Text1.Text)
f = Trim(Text5.Text)
t = "x"
f1 = Replace(f, t, a1, , , vbTextCompare)
只是源代码，text1是个数值，f是个x的一元方程，我想把x代成text1的数字，然后把计算结果输入f1，往指教
f = Trim(Text5.Text)
t = "x"
f1 = Replace(f, t, a1, , , vbTextCompare)
只是源代码，text1是个数值，f是个x的一元方程，我想把x代成text1的数字，然后把计算结果输入f1，往指教
Equn 2003-10-25
- 打赏
- 举报
你应该要先分析出运算关系，再代入数字去运算
msgbox运算结果看看是什么了。
msgbox运算结果看看是什么了。
polarwyp 2003-10-25
- 打赏
- 举报
有可能是类型的问题，能不能再说具体一些
