public class Test
public Shared Sub Main
Dim objExcel As Excel.Application
objExcel = New Excel.Application
Dim strMath As String
strMath = "cos(3.673/4)/exp(-3.333)"
If strMath <> "" Then
Try
Console.WriteLine(objExcel.Evaluate(strMath).ToString)
Catch exc As Exception
Console.WriteLine(exc.Message)
End Try
End If
objExcel.Workbooks.Close()
objExcel.Quit()
objExcel = Nothing
End Sub
End class
|