资 源 简 介
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%的代码片段，完整代码需下载后查看 加载中 侵权举报
