VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98- 00AA00574A4F} UserForm1 Caption = " 劉任昌 " ClientHeight = 4320 ClientLeft = 105 ClientTop = 450 ClientWidth = 8565.001 OleObjectBlob = "UserForm1.frx":0000 StartUpPosition = 1 ' 所屬視窗中央 End Attribute VB_Name = "UserForm1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Dim n As Integer Dim spec As String Const period As Integer = 4 Const maxerror As Double = 0.0000001 Dim payment(period) As Double ' 廣域變數 4 維度的陣列 Private Sub CommandButton1_Click() Dim a, b, c, f, gap As Double Dim l...
505持續探索 成為專業神人
回覆刪除