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