主题：[求助]如何实现以下功能

[求助]如何实现以下功能：

 

 

Dim a As Integer = 1 Dim b As Integer = 1 Dim c As Integer Dim gs =  a + b  c = Eval(gs)         Output.Show (c)      再次求助，下面的代码不能计算，是什么原因？

 

 

Dim r As Row = Tables("表A").rows(0)
Dim a As Integer = 1
Dim b As Integer = 1
Dim c As Integer

Dim gs = r("第四列")     ‘单元格内容为 " a + b "   

c = Eval(gs)       

Output.Show (c)

 

 

 

 

 

谢谢楼上回答。

 

我可能没有表述清楚

 

 

Dim gs As String = " c = a + b "

Dim a As Integer = 1
Dim b As Integer = 1
Dim c As Integer
c = a + b    问如果 “ c = a + b ” 是一个字符串，如何转换为计算公式

                  也就是如何让  字符串“gs”  转换为计算公式 并计算出结果哪
Output.Show (c)  = Output.Show (？？gs？？) 

Dim a As Integer = 1
Dim b As Integer = 1
Dim c As Integer
Dim gs  =  a + b 

c = a + b   ' 问如果 " c = a + b " 是一个字符串,如何转换为计算公式
Output.Show (c)
Output.Show (Eval(gs))

Dim a As Integer = 1
Dim b As Integer = 1
Dim c As Integer

Dim gs =  a + b

c = Eval(gs)        

Output.Show (c) 

 

可以了