教學

何絃齊2021年1月期末考 現值 利率 0.001 期數 240 金流 0 終值 0 對應的EXCEL 開啟從選取範圍建立名稱 程式碼 何絃齊2021年1月期末考 現值 利率 期數 金流 終值 對應的EXCEL 開啟從選取範圍建立名稱 程式碼

練習嵌入臉書 嵌入 iframe 嵌入JavaScript SKD 投入、陶醉與個性，她壓倒其他所有的舞者。 由 Robert Liu 發佈於  2020年12月18日 星期五 練習嵌入劉任昌臉書蛇板 嵌入 iframe 嵌入JavaScript SKD 溜蛇板的季節，來了。 由 Robert Liu 發佈於  2020年12月17日 星期四 上課同學 十五號同學 二十號同學

  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 loopNumber As Integer n = n + 1 '第幾次計算+1 a = 0 '報酬率0 b = 1 '報酬率1 gap = 10 loopNumber = 10 payment(0) = TextBox1.Value payment(1) = TextBox2.Value payment(2) = TextBox3.Value payment(3) = TextBox4.Value f = npv(a) If f = 0 Then Label9.Caption = 0 ElseIf f 小於 0 Then Label9.Caption = "內部報酬率小於 0." Else Do While gap 大於 mexerror And Abs(f) 大於 maxerror And loopNumber 小於 100 loopNumber = loopNumber + 1 c = (a + b) / 2 f = npv(c) If Abs(f) 大於 maxerror And gap 大於 maxerror Then If f 大於 0 Then a = c Else b = c gap = b - a End If Else Label9.Caption = Format(c, "0.0000%") End If ...

 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 loopNumber As Integer   n = n + 1   a = 0   b = 1   gap = 10   loopNumber = 10   payment(0) = TextBox1.Value   payment(1) = TextBox2.Value   payment(2) = TextBox3.Value   payment(3) = TextBox4.Value   f = npv(a)   If f = 0 Then      Label9.Caption = 0   ElseIf f < 0 Then      Label9.Caption = "內部報酬率小於 0."   Else      Do While gap > mexerror And Abs(f) > maxerror And loopNumber < 100        loopNumber = loopNumber + 1        c = (a + b) / 2        f = npv(c)        If Abs(f) > maxerror And gap > maxerror Then           If f > ...