level 11
为啥要用vb画图啊
2013年05月02日 04点05分
level 2
吧务
level 15
……12年过去，我还真能在一定程度上回答这个问题了。
首先需要指出的是，Mathematica是有.NET/Link的，所以如果你用的是Visual Basic .NET，那么按照自带帮助来大概就行了。（我自己没用过，所以容我加个“大概”。）
但是，我们谈及VB，一般都是指Visual Basic 6.0 （VB6），这就有点麻烦了。MMA.SE唯一相关的讨论似乎是《Mathematica Functions from VBA》(编号23864)，可早在2016年，就有评论指出该帖下面唯一的答案似乎已经失效。那么，还有没有其他办法呢？我还真想到了一个，那就是，借用命令行（command line, cmd）作为中介：
Function run(str As String) As String
Dim myshell As New WshShell 'requires ref to Windows Script Host Object Model
run = myshell.Exec("wolframscript -code " & str).StdOut.ReadAll
End Function
在debug窗口中：
print run("Solve[x^2+2x+5==0]")
效果：
注意：
1. 我是在VBA下面做的测试，但VB6应该差不多。
2. 函数返回值是个字符串，你多半需要进一步对其进行处理。
3. 函数的速度稍微有点拉，但是至少可以跑。（疑似是因为WolframScript的启动速度太慢了，也就是说，如果不需要频繁调用此函数的话，性能问题应该不会太突出。）
4. 如注释所说，你需要到“工具“ -> ”引用”里把“Windows Script Host Object Model”给勾上。
2025年10月25日 16点10分
6
首先需要指出的是，Mathematica是有.NET/Link的，所以如果你用的是Visual Basic .NET，那么按照自带帮助来大概就行了。（我自己没用过，所以容我加个“大概”。）
但是，我们谈及VB，一般都是指Visual Basic 6.0 （VB6），这就有点麻烦了。MMA.SE唯一相关的讨论似乎是《Mathematica Functions from VBA》(编号23864)，可早在2016年，就有评论指出该帖下面唯一的答案似乎已经失效。那么，还有没有其他办法呢？我还真想到了一个，那就是，借用命令行（command line, cmd）作为中介：
Function run(str As String) As String
Dim myshell As New WshShell 'requires ref to Windows Script Host Object Model
run = myshell.Exec("wolframscript -code " & str).StdOut.ReadAll
End Function
在debug窗口中：
print run("Solve[x^2+2x+5==0]")
效果：
注意：1. 我是在VBA下面做的测试，但VB6应该差不多。
2. 函数返回值是个字符串，你多半需要进一步对其进行处理。
3. 函数的速度稍微有点拉，但是至少可以跑。（疑似是因为WolframScript的启动速度太慢了，也就是说，如果不需要频繁调用此函数的话，性能问题应该不会太突出。）
4. 如注释所说，你需要到“工具“ -> ”引用”里把“Windows Script Host Object Model”给勾上。
level 9
我这里这样写:
run = MyShell.Exec("C:\Program Files\Wolfram Research\Mathematica\13.3\wolframscript.exe -code " & str).StdOut.ReadAll
否则出现:
运行时错误 '-2147024894 （80070002）： 方法 'Exeo'作用于对象 'IWshShell3' 时失败.
2025年10月27日 12点10分
7
run = MyShell.Exec("C:\Program Files\Wolfram Research\Mathematica\13.3\wolframscript.exe -code " & str).StdOut.ReadAll
否则出现:
运行时错误 '-2147024894 （80070002）： 方法 'Exeo'作用于对象 'IWshShell3' 时失败.
……你直接在命令行里能在不使用完整路径的情况下调用 wolframscript 吗？
2025年10月27日 12点10分
level 9
突发奇想我用这个:
Print run("Plot[Sin[x],{x,0,.1}]")
得到:
Graphics[
Annotation[{{{{}, {},
Annotation[{Directive[Opacity[1.],
RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]],
Line[{{2.040816326530612*^-9,
2.040816326530612*^-9}, {0.00003067179205596268,
0.00003067179205115355},......得到了图像各点的坐标
2025年10月27日 13点10分
8
Print run("Plot[Sin[x],{x,0,.1}]")
得到:
Graphics[
Annotation[{{{{}, {},
Annotation[{Directive[Opacity[1.],
RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]],
Line[{{2.040816326530612*^-9,
2.040816326530612*^-9}, {0.00003067179205596268,
0.00003067179205115355},......得到了图像各点的坐标