主题：函数值替代

 dim s as string = ABC(1,2,3)+ABC(2,3,5)-ABC(8,7,5)*ABC(1,0,2)/ABC(9,7,2)

Dim sps() As Char = {"+", "-", "/", "*"}
Dim Names() As String = s.Split(sps)

 

假设：S字符串的值的ABC函数个数随机不限定个数，求出每个ABC（，，，）函数值后，如何进行替代进去呢

Dim s As String = ABC(1, 2, 3) + ABC(2, 3, 5) - ABC(8, 7, 5) * ABC(1, 0, 2) / ABC(9, 7, 2)
Dim sps() As Char = {"+", "-", "/", "*"}
Dim Names() As String = s.Split(sps)

For k = 1 To Names.Length - 1
    Dim va() As Single
    va(k) = Names(k)
Next
Dim s1 As Single
For i As Integer = 0 To Names.length - 1
    s1 = s.replace(Names(i), va(i))
Next

Dim Names() As String = s.Split(sps) Dim 对应的结果() As String = ..... dim s1 as string for i as integer = 0 to Names.length - 1 s1  = s.replace(Names(i),对应的结果(i)) next

此主题相关图片如下：qq截图20230209114426.png

使用上面的代码求出来的是字符值，要转化成合计数值怎样处理

返回的值是：True，否则返回False。不是数值来的

 Dim qq1 As String
 For l As Integer = 0 To Names.length                   
       qq1 = rg.replace(Names(l), va(l))              
Next

 

这个求出来的结果都是逻辑型的、

我想出求出来数值

就是上面的代码出问题，其他测试过显示出来都正常

单元格显示是：8000+82452+41445

如何才能把它转化成合计算

终于搞定了

 

不但要看帮助，还有多测试、多检查才行