Dim expression As String = "50*20/4+12*10" Dim t As New DataTable() t.Columns.Add("数式", GetType(String), expression) MsgBox(t.Rows.Add()("数式"))
Dim expression As String = "50*20/4+12*10" Dim t As New DataTable() MsgBox(t.Compute(expression, ""))