计算机辅助支挡建筑设计
Private Function Hanshu(X As Double, Str1 As
String) As Double
On Error Resume Next
Dim shar As New Class1
ScriptControl1.AddObject "sh", shar
ScriptControl1.AddCode "Function F(x)"
& vbCrLf & "kk=" & Str1 & vbCrLf & "sh.k1 = kk
" & vbCrLf & "End Function"
ScriptControl1.Run “F", X
Hanshu = shar.K1
ScriptControl1.Reset
End Function
1、 通用函数的程序编写
