form1.frm

计算方法的VB程序

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command3 
      Caption         =   "About"
      Height          =   495
      Left            =   3720
      TabIndex        =   7
      Top             =   2400
      Width           =   855
   End
   Begin VB.CommandButton Command2 
      Caption         =   "End"
      Height          =   495
      Left            =   2880
      TabIndex        =   6
      Top             =   2400
      Width           =   855
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Ok"
      Height          =   735
      Left            =   2880
      TabIndex        =   5
      Top             =   1680
      Width           =   1695
   End
   Begin VB.TextBox Text2 
      Height          =   735
      Left            =   3600
      TabIndex        =   1
      Text            =   "0.5"
      Top             =   600
      Width           =   855
   End
   Begin VB.TextBox Text1 
      Height          =   735
      Left            =   2760
      TabIndex        =   0
      Text            =   "10"
      Top             =   600
      Width           =   855
   End
   Begin VB.Label Label3 
      Caption         =   $"FORM1.frx":0000
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   15
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   3255
      Left            =   0
      TabIndex        =   4
      Top             =   0
      Width           =   2775
   End
   Begin VB.Label Label2 
      Caption         =   " 插值计算点"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   3720
      TabIndex        =   3
      Top             =   0
      Width           =   735
   End
   Begin VB.Label Label1 
      Caption         =   "  插值    阶数"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   2760
      TabIndex        =   2
      Top             =   0
      Width           =   855
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Command1_Click()
Dim t1, t2 As Date
t1 = Time
n = CInt(Text1.Text)
x0 = CDbl(Text2.Text)
Call chebyshev
t2 = Time
tm = CDbl(t2 - t1) * 24 * 3600
Form1.Hide
Form2.Show
End Sub
Private Sub chebyshev()
Dim x(Max), y(Max) As Double
For i = 0 To n
x(i) = f(Cos((2 * i + 1) * d(n)))
c(i) = 0
Next i
For i = 0 To n
   For j = 0 To n
    c(j) = c(j) + Cos(j * (2 * i + 1) * d(n)) * x(i)
   Next
Next
c(0) = c(0) / (n + 1)
For i = 1 To n
c(i) = 2 * c(i) / (n + 1)
Next i
y(0) = 1
y(1) = x0
For i = 1 To n - 1
y(i + 1) = 2 * x0 * y(i) - y(i - 1)
Next i
p = c(0) * y(0)
For i = 1 To n
p = p + c(i) * y(i)
Next
e = Abs(100 * (p - f(x0)) / f(x0))
End Sub