VB调用MATLAB做一个对数曲线（直角坐标）y=logx!

Option Explicit
Public objMATLAB As Object
Private Sub Command1_Click()
Dim h1, h2 As String '定义高度
Dim l As String '定义频率
Dim d As String '定义距离
Dim calcity, x As String
h1 = Text1.Text
h2 = Text2.Text
calcity = "69.55 + 26.16 * (Log(1500) / Log(10)) - 13.82 * (Log(" & h1 & ") / Log(10)) + (44.9 - 6.55 * (Log(" & h1 & ") / Log(10))) * (Log(" & d & ") / Log(10)) - (1.1 * (Log(1500) / Log(10)) - 0.7) *" & h2 & "+ (1.56 * (Log(1500) / Log(10)) - 0.8)"
l = "fplot(@calcity,[0 30])"
Text3 = objMATLAB.execute(l)
End Sub
Private Sub Form4_initialize()
Set objMATLAB = CreateObject("matlab.application")
End Sub

我不赞同用ACTIVEX的方式实现VB与MATLAB的混合编程,这种做法虽然代码简单,但是执行速度很慢.你的问题很可能是传递l的时候出了问题，你自己仔细检查下咯！