迭代法的收敛与收敛速度的比较

代码说明：

Private Sub Form_Load()  Label1.Caption = "方程的三个割根区间分别为（-3.6，-3.5），（0，0.1），（3.4，3.5）"  Label2.Caption = "牛顿法可使用三个割根区间"  Label3.Caption = "普通迭代法—格式1只能使用割根区间（-3.6，-3.5）和（3.4，3.5）"  Label4.Caption = "普通迭代法—格式2 使用割根区间（0，0.1）"End SubPrivate Sub Command1_Click()  Dim x!, y!, k%  x = Val(Text1.Text)  If Text1.Text = "" Then 请点击左侧文件开始预览 ！预览只提供20%的代码片段，完整代码需下载后查看 加载中 侵权举报