葉嘉任

程式碼： 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 = c Else b = c gap = b - a End If Else Label9.Caption = c End If Loop End If Label10.Caption = f Label11.Caption = loopNumber Selection.TypeText (...

躉繳 第1期 第2期 第3期 注意，包含首期躉繳的現金流量都大於0。 報酬率: 淨現值: 迴圈次數: 葉嘉任向劉任昌學習的程式碼 <head> <style> .Takming {   border: 20px outset red;   background-color: green;   color: white;   text-align: center; } .qwe{   width: 80pt;   height: 20pt;   background-color: purple;   color: white;   font-weight:bold;   text-align: right;   } </style><!--寬度width,高度height,背景顏色綠色,顏色,文字排列text-align--> </head> <table border="1">   <tbody><tr align="center"><td>躉繳</td><td>第1期</td><td>第2期</td><td>第3期</td></tr>   <tr><td><input class="qwe" type="number" /></td>     <td><input class="qwe" type="number" /></td>     <td><input class="qwe" type="number" />     </td><td><input class="qwe" type="number" /></td></tr>...

躉繳 第1期 第2期 第3期 第4期 注意，包含首期躉繳的現金流量都大於0。 報酬率: 淨現值: 迴圈次數:

 第十周進度 1 最大 2 次大 3 大三 4 第四 5 第五 6 第六 呈現 呈現

中央銀行受財政部委託，發行 91 182 273 364 天期國庫券， 決標貼現率：年息 %。 則每萬元($10,000)新臺幣的發行價格是$ (價格)

網頁 VBA 輸入金額: VBA 輸入金額:<input id="a" type="text" /> VBA 網頁 VBA VBA <input type="button" value="許單身狗狗" onclick="alert('一輩子!')">  VBA 豬 狗 貓 VBA 豬 狗 貓 VBA VBA Private Sub CommandButton1_Click() Dim addnew As Range '定義 變數 addnew 是工作表的一個範圍 If Range("A1").CurrentRegion.Rows.Count = 1 Then Set addnew = Sheets("DataTable").Range("A1").Offset(1, 0) Else Set addnew = Sheets("DataTable").Range("A1").End(xlDown).Offset(1, 0) End If addnew.Offset(0, 0).Value = TextBox1.Text '統一編號 addnew.Offset(0, 1).Value = TextBox2.Text '公司 addnew.Offset(0, 2).Value = TextBox3.Text '聯絡人 addnew.Offset(0, 4).Value = TextBox4.Text '地址 addnew.Offset(0, 3).Value = ComboBox1.Value '聯絡人職位 使用下拉式選單 ListBox1.ColumnCount = 5 '在清單方塊 ListBox1 顯示輸入的資料，5 columns ListBox1.RowSource = "A1:E65536" End Sub Pr...

 第一周九月七日 在記事本編輯html 第二周九月14日 嵌入embed同學的網頁 黃建霖 第三週九月21日 學習 input 還有表單 form 第四周九月28日 學習物件導向程式設計 第五周十月5日   第六周十月12日 網頁指令 VBA指令 聯絡人職稱: 董事長 總經理 副總經理 財務長 UserForm_Initialize()'起始表單事件設定 聯絡人職稱:<select id="ComboBox1"> <option>董事長</option> <option>總經理</option> <option>副總經理</option> <option>財務長</option> <option>人資長</option> </select> With ComboBox1 .Additem("董事長") .Additem("總經理") .Additem("副總經理") .Additem("財務長") .Additem("人資長") End With