vb 字符串中连同字母转换为数值数据

我的意思是将text1.text赋值给f
但是要连同字母,当成数值变量
如text1.text="x+3"
赋给f后要变成f=x+3,即一个数学函数(f是双精度浮点数)
应该怎么办?代码要简单一点,最好不要有引用

首先添加部件:
工程--部件--Microsoft Script Control 1.0
代码:
Private Sub Command1_Click()
text1.text="1000*200/52+54"
f = ScriptControl1.Eval(Text1.Text)
MsgBox f
End Sub
'这个text1里是不能带 参数的 如:你的X,若你非要带X
'那只好 定义过程用ScriptControl1.AddCode 定义过程 。
'用ScriptControl1.run 调用过程
温馨提示:内容为网友见解,仅供参考
第1个回答  2009-10-04
你的意思是将输入的内容转换为数学表达式,如果用一个文本框我认为比较困难,也不可能实现。
你可以使用多个文本框,有的输入数字,有的输入运算符,有的输入运算变量,这样比较好处理。

vb 字符串中连同字母转换为数值数据
首先添加部件:工程--部件--Microsoft Script Control 1.0 代码:Private Sub Command1_Click()text1.text="1000*200\/52+54"f = ScriptControl1.Eval(Text1.Text)MsgBox f End Sub '这个text1里是不能带 参数的 如:你的X,若你非要带X '那只好 定义过程用ScriptControl1.AddCode 定义过程 。

VB 怎样将字符串转化为数值
最简单的就是直接转换,就是把字符串变量赋值给数值变量。\\x0d\\x0a数值变量=字符串\\x0d\\x0a\\x0d\\x0a如果必须转换,就使用 Val 函数赋值,会把字符串转换成双精度数。\\x0d\\x0a比如:数值变量=Val(字符串)\\x0d\\x0a例:\\x0d\\x0an = Val("3.5") ' 变量n赋值为3.5\\x0d\\x0...

在VB中字符串转为数值型的需要什么样的条件啊?
4. Right(string,n) 从字符串右边取n个字符 5. Mid(String,n1,n2) 从左边第n1个位置开始向右取n2个字符 6. Ucase(String) 将字符串中所有小写字母改为大写 7. Lcase(string) 将字符串中所有大写改为小写 8. Ltrim(string) 去掉string左边的空格 9. Rtrim(string) 去掉string右边...

vb中的val是什么
Val 是 VB 中一个用于将字符型数据转换为数值型数据的函数。这个函数的主要作用是将由数字、正负号和小数点组成的字符串转换为对应的数值。如果字符串内包含非数字字符,Val 会将这些非数字字符前面的部分进行转换。如果字符串的首字符不是数字,函数会返回数值零,并忽略前导空格。Val 函数的基本语法是...

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

VB 如何将数字字符串转换成数字用以计算?
用val就可以了,比如a是字符型的变量 a="1500"b=val(a)这时候b就是1500(数值)了。

vb 怎么将接收到的字符串转成数组
DIM B()AS BYTE REDIM B(LENB(STR1)-1)COPYMEMORY B(0),byval strptr(str1),lenb(str1)因为我是手机,copymemory的定义请自行百度 3.可以用STRCONV 至于转换为数字,不知道你的要求 。一个LONG数字占4字节,如果你是说把4个数据作为一个数字返回,也可以用COPYMEMORY.另一种更直观(但更慢)...

vb字符串和数字转换功能
VB中,字符串与数字之间的转换是关键功能,本文总结了几个主要的转换方法。Str()与Val()用于字符串与数字之间的转换,例如Str(-459.65)返回“-459.65”,Str(459.001)返回“459.001”。Val()函数则可以将字符串转换为数值,如Val(“2457”)返回2457。Chr()与Asc()用于字符串与ASCII...

在VB中,怎样把字符串(如"123")还原成数(123)?
Val函数就是完成(对数字)从字符类型转换成数值类型,(对字母是没有这个转换功能和意义的)CStr函就是完成(对数字)从数值类型转换成字符类型。val(“123”)=123 cstr(123)=“123”

VB把任何字符串强制转为数字
用 Asc 函数返回字符串首字母的字符值(ASCII 值)当输入的数字超过255 随机生成0-255之间的一个数来充当该值 Private Sub Form_click()Dim r, g, b As Integer Randomize r = Asc(InputBox("请输入R的值", "颜色"))g = Asc(InputBox("请输入G的值", "颜色"))b = Asc(InputBox("...

相似回答