计算机辅助建筑设计--方程求解(61页).pptVIP

高次方程求解 1、 通用函数的程序编写 问题：如何求一个函数的解，而函数是可以随时替换的。 例如： F(x)=x3+4x2+5 F(x)=ex-5 实现步骤： 1在窗体上加一个Scriptcontrol控件 2 在工程中添加一个类模块class1. 类模块中的代码： Public K1 As Double 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： 试设计一个工程，可以计算函数的值。 2