雨欣吳

搜尋此網誌

吳雨欣Java Script使用漢堡/三明治等字元

日期： 6月 04, 2021

取得連結
Facebook
X
Pinterest
以電子郵件傳送
其他應用程式

繪文字

取得連結
Facebook
X
Pinterest
以電子郵件傳送
其他應用程式

留言

張貼留言

吳雨欣期末考17+18週 JavaScript 金融計算

劉任昌2021年1月期末考現值利率期數金流終值對照EXCEL先打開從範圍定義名稱對照EXCEL先打開從範圍定義名稱 <table border="1"> <tbody> <tr><td> 現值 </td><td><input id="p" type="number" /></td><td><input onclick="CompP()" type="button" value=" 計算現值 " /></td><td id="p_" width="180"></td></tr> <tr><td> 利率 </td><td><input id="y" type="number" value="0.001" /></td></tr> <tr><td> 期數 </td><td><input id="n" type="number" value="240" /></td><td><input onclick="CompN()" type="button" value=" 計算期數 " /></td><td id="n_" width="180"></td></tr> <tr><td> 金流 </td><td><input id="m" type="number...

第十三週word巨集+表單+type text+typeparagraph+字串

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 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 > 0 Then a =...

技術提供：Blogger