劉任昌觀看劉任昌075 使用內建函數Find，Left，Mid，Concatenate 廖元銘同學 半結構化數據 semi-structured data 德國DAX 30成分股 中文 原文 類別 愛德達斯 Adidas AG Adidas AG 安聯 Allianz SE Allianz SE 巴斯夫 BASF SE BASF SE 拜耳 Bayer AG Bayer AG 西門子能源股份公司 Siemens Energy AG Siemens Energy AG 寶馬 Bayerische Motoren Werke AG Bayerische Motoren Werke AG 大陸集團 Continental AG Continental AG 科思創 Covestro AG Covestro AG 戴姆勒朋馳曾中仁汽車股份有限公司 Daimler AG Daimler AG 德意志銀行 Deutsche Bank AG Deutsche Bank AG 德國證券交易所 Deutsche Börse AG Deutsche Börse AG 德國郵政 Deutsche Post AG Deutsche Post AG 德國電信 Deutsche Telekom AG Deutsche Telekom AG 德國住宅公司 Deutsche Wohnen SE Deutsche Wohnen SE 費森尤斯集團 Fresenius SE Fresenius SE 費森尤斯醫療 Fresenius Medical Care AG & Co. KGaA Fresenius Medical Care AG & Co. KGaA 漢高 Henkel Henkel 英飛凌 Infineon Technologies AG Infineon Technologies AG 林德 Linde AG Linde AG 默克集團 Merck KGaA Merck KGaA MTU航空發動機公司 MTU Aero Engines AG MTU Aero Engines AG 麥德龍 Metro AG Metro AG 慕尼黑再保險 Münchener Rückver...
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 < 300 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 ...
留言
張貼留言