form2.frm

来自「计算方法的VB程序」· FRM 代码 · 共 40 行

VERSION 5.00
Begin VB.Form Form2 
   Caption         =   "Form2"
   ClientHeight    =   8145
   ClientLeft      =   615
   ClientTop       =   1815
   ClientWidth     =   14160
   LinkTopic       =   "Form2"
   ScaleHeight     =   8145
   ScaleWidth      =   14160
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Activate()
Print "计算所耗时间为:  "; tm; "秒"
Print
For i = 1 To 4
     Select Case i
     Case 1:
     Print "二阶中心差分所得泰勒展开:"
     Case 2:
     Print "四阶中心差分所得泰勒展开:"
     Case 3:
     Print "二阶向前差分所得泰勒展开:"
     Case 4:
     Print "二阶向后差分所得泰勒展开:"
End Select
     Print "f"; i; "(x)="; a(i, 0); "+"; a(i, 1); "(x-"; x0; ")+"; a(i, 2); "(x-"; x0; ")^2/2!+"; a(i, 3); "(x-"; x0; ")^3/3!+"; a(i, 4); "(x-"; x0; ")^4/4!"
     Print "f"; i; "("; z; ")="; s(i);
     Print "相对误差为:"; er(i); "%"
     Print
     Print
Next i

End Sub