迭代法.frm

完整的数值模拟软件

VERSION 5.00
Begin VB.Form Form22 
   BackColor       =   &H00FFFFFF&
   Caption         =   "迭代法"
   ClientHeight    =   7365
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   8685
   LinkTopic       =   "Form17"
   ScaleHeight     =   7365
   ScaleWidth      =   8685
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command3 
      Caption         =   "迭代格式3"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   4200
      TabIndex        =   2
      Top             =   240
      Width           =   1335
   End
   Begin VB.CommandButton Command2 
      Caption         =   "迭代格式2"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   2280
      TabIndex        =   1
      Top             =   240
      Width           =   1335
   End
   Begin VB.CommandButton Command1 
      Caption         =   "迭代格式1"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   360
      TabIndex        =   0
      Top             =   240
      Width           =   1335
   End
End
Attribute VB_Name = "Form22"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
x0 = Val(InputBox("输入迭代初值"))
Cls
Print: Print: Print: Print: Print: Print
Print Tab(10); "迭代格式:x=(2*x0+5)^(1/3)"
Print Tab(10); "迭代初值:x0="; x0
Print Tab(10); "迭代过程:"
k = 1

Do While True
   x = (2 * x0 + 5) ^ (1 / 3)
   Print Tab(10); "k="; k, "x="; Int(x * 1000000 + 0.5) / 1000000
   e = Abs(x - x0)
   MsgBox "按任意键继续"
   If e < 0.00001 Then
     Exit Do
   End If
   x0 = x
   k = k + 1
Loop
Print
Print Tab(10); "经过"; k; "次迭代后得到方程的解为："; "x="; Int(x * 1000000 + 0.5) / 1000000

End Sub

Private Sub Command2_Click()

x0 = Val(InputBox("输入迭代初值"))
k = 1
Cls
Print: Print: Print: Print: Print: Print
Print Tab(10); "迭代格式:x=sqr(2+5/x0)"
Print Tab(10); "迭代初值:x0="; x0
Print Tab(10); "迭代过程:"
Do While True
   x = Sqr(2 + 5 / x0)
   Print Tab(10); "k="; k, "x="; Int(x * 1000000 + 0.5) / 1000000
   e = Abs(x - x0)
   MsgBox "按任意键继续"
   If e < 0.00001 Then
     Exit Do
   End If
   x0 = x
   k = k + 1
Loop
Print
Print Tab(10); "经过"; k; "次迭代后得到方程的解为："; "x="; Int(x * 1000000 + 0.5) / 1000000

End Sub

Private Sub Command3_Click()

x0 = Val(InputBox("输入迭代初值"))

'f=x0^3-x0-5


k = 1
Cls
Print: Print: Print: Print: Print: Print
Print Tab(10); "迭代格式:x=x0^3-x0-5"
Print Tab(10); "迭代初值:x0="; x0
Print Tab(10); "迭代过程:"
Do While True
   x = x0 ^ 3 - x0 - 5
   Print Tab(10); "k="; k, "x="; Int(x * 1000000 + 0.5) / 1000000
   
    e = Abs(x - x0)
   
   MsgBox "按任意键继续"
   If e < 0.00001 Then
     Exit Do
   End If
   x0 = x
   k = k + 1
Loop
Print
Print Tab(10); "经过"; k; "次迭代后得到方程的解为："; "x="; Int(x * 1000000 + 0.5) / 1000000

End Sub