参照の追加 Microsoft.JScript Microsoft.Vsa '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Imports System Imports Microsoft.JScript.Vsa Imports Microsoft.JScript Public Class calc Public Shared Sub Main() Dim exp As String = "4+2*15/3" Dim ve As VsaEngine = VsaEngine.CreateEngine() Dim result As Double = CDbl(Eval.JScriptEvaluate(exp, ve)) '結果を表示 Console.WriteLine(result) Console.ReadLine() End Sub End Class
