文字列に保存された数式を計算する - abwiki @ ウィキ (ActiveBasic非公式wiki)

DLLライブラリをだうんろーど
http://www.vector.co.jp/soft/win95/prog/se136814.html

#console

Declare Function Kaiseki cdecl Lib "epmath" (mojiretu As BytePtr, err As WordPtr) As Double
Declare Function Kaiseki_VB Lib "epmath" Alias "_Kaiseki_VB@8" (mojiretu As BytePtr, err As WordPtr) As Double

Dim bstr(31) As Byte
Dim i As Word

lstrcpy(bstr,"1+2*5")

print Kaiseki(bstr,VarPtr(i))
print Kaiseki_VB(bstr,VarPtr(i))