程式設計學習進度

第一週 9月07日

在記事本編輯html

第二週 9月14日

嵌入embed同學的網頁html

第三週9月21日

學習input還有表單form
將每天通貨走勢線條黑色改為紅色

位元組與變數

10進位

16進位

 2進位

位元數2進位表示

7

6

5

4

3

2

1

0

128

64

32

16

8

4

2

1

0

0

1

0

0

0

0

0

0

0

1

1

1

2

0

0

0

0

0

0

1

0

9

9

4

0

0

0

0

0

1

0

0

11

B

3

0

0

0

0

0

0

1

1

12

C

0

0

0

0

0

0

0

0

0

13

D

2

0

0

0

0

0

0

1

0

14

E

0

0

0

0

0

0

0

0

0

16

10

2

0

0

0

0

0

0

1

0

18

12

4

0

0

0

0

0

1

0

0

20

14

1

0

0

0

0

0

0

0

1

255

FF

255

1

1

1

1

1

1

1

1

第四週9月28日

將每天通貨走勢加上選擇的速度(10.20.40.100.500)

(500是最慢的)

<form><b>
選擇速度: <select id="selection">
<option value="10">10</option>
<option value="20">20</option>
<option value="40" selected>40</option>
<option value="100">100</option>
<option value="100">500</option>
</select>
選擇顏色:
<input id="linecolor" type="checkbox">紅色 <!--核取方塊 linecolor -->
<input onclick="draw()" type="button" value="2020年每天通貨走勢" />
</form>

var speedvalue;
var speed = document.getElementById("selection");
for (var j=0; j < speed.length; j++)
{
if (speed[j].selectionIndex = j)
{
speedvalue = speed[j].text;
break;
}
}

第五週10月05日

把標題從黑色變成有綠色的底
.Takming {
  border: 20px outset red;
  background-color: green;
  color: white;
  text-align: center;
}
</style>
</head>

開excel做表單
用VB做(插入的VB)





聯絡人職稱:
html
vb
End Sub

第六週10月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
button commandbutton text textbox 在網頁下按下F12進入開發人員模式，改寫開始碼

第七週10月19日

網頁VBA
輸入金額:textbox
輸入金額<input type="text" id="a">VBA
button
<input type="button" value="按下我" onclick="alert('厲害喔!')"> VBA
豬狗貓VBA
豬<input type="radio">狗<input type="radio">貓<input type="radio">VBA
豬狗貓VBA
豬<input type="radio" name="pet"/>狗<input type="radio" name="pet" />貓<input type="radio"  name="pet"/>VBA
EXCEL 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 Private Sub CommandButton2_Click() End End Sub Private Sub UserForm_Initialize() ComboBox1.AddItem ("董事長") ComboBox1.AddItem ("總經理") ComboBox1.AddItem ("副總經理") ComboBox1.AddItem ("財務長")

第八週10月26日

國庫券面額$ 天期
貼現率 %
價格$(計算中)

參考李顯儀金融市場page 4-12

第九週11月02日(期中考)

製作powerpoint在製作成影片上傳在youtube

第十週11月09日

在自己影片中放入背景音樂
(在編輯影片中的編輯器插入音樂)


第十一週11月16日

CSS + Html + Javascript 金融計算

第十二週11月23日

在word的選項自訂中勾取開發人員
開啟VB

第十三週11月30日

巨集
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 * 100
       End If
     Loop
  End If
  Label10.Caption = f
  Label11.Caption = loopNumber
  Selection.TypeText ("躉繳:" & TextBox1.Value & ", 第1期:" & TextBox2.Value & ", 第2期:" & TextBox3.Value & ", 第3期:" & TextBox4.Value)
  Selection.TypeParagraph
  Selection.TypeText ("內部報酬率:" & c * 100)
  Selection.TypeParagraph
  Selection.TypeText ("淨現值:" & f)
  Selection.TypeParagraph
  Selection.TypeText ("迴圈次數:" & loopNumber)
  Selection.TypeParagraph
End Sub
Private Sub CommandButton2_Click()
  End
End Sub
Function npv(rate) '計算特定折現率rate的淨現值
  Dim y As Double
  Dim j As Integer
  y = -payment(0)
  For j = 1 To period
      y = y + payment(j) / (1 + rate) ^ j
  Next
  npv = y
End Function

Private Sub Label10_Click()

End Sub

Private Sub UserForm_Click()

End Sub

第十四週12月07日

錄製巨集

第十五週12月14日

Html+CSS+Java script+word轉pdf 編輯方程式

第十六週12月21日

CSS+HTML+WORD貼上+JavaScript


第十七週12月28日

JavaScript 金融計算(期末)









留言

張貼留言

這個網誌中的熱門文章

鄧郁云 選擇權敏感度

圖片
  答 A B C D  [ 2013_1期貨業務:理論49 ] Nikkei指數期貨買權的Delta為0.7，表示Nikkei指數期貨價格上漲1點，則買權： 上漲0.3點 下跌0.3點 上漲0.7點 下跌0.7點 答 A B C D  [ 2013_3期貨業務:理論47,2013Q2_22 ]如果黃金期貨買權之Delta為0.8，則當賣出一單位的買權，須如何才能完全對沖？ 買入一單位黃金期貨 賣出一單位黃金期貨 買入0.8單位黃金期貨 賣出0.8單位黃金期貨 答 A B C D  [ 2013_3期貨業務:理論21 ]公債期貨賣權的Delta值： 可能大於0 和公債期貨價格成同向關係 和公債期貨價格成反向關係 和公債期貨價格無關 答 A B C D  [ 2014_3期貨業務:理論19,2014Q2_27 ]假設S&P500指數期貨賣權之Delta為－0.5，表示如果持有1單位指數期貨，理論上須如何才能完全避險？ 買入0.5單位賣權 賣出0.5單位賣權 買入2單位賣權 賣出2單位賣權 答 A B C D  [ 2015_4期貨業務:理論21 ]期貨買權的Delta為0.6，表示在其他情況不變下，期貨價格若上漲1元，買權價格會： 上漲0.4元 下跌0.4元 上漲0.6元 下跌0.6元 答 A B C D  [ 2017_1期貨業務:理論48 ]期貨賣權（Put）的Delta為－0.3，表示在其他情況不變下，期貨價格若下跌1元，賣權價格會： 上漲0.7元 下跌0.7元 上漲0.3元 下跌0.3元 答 A B C D  [ 2018_3期貨業務:理論48 ]期貨買權（Call）Delta值通常介於： -1與1之間 -1與0之間 -0.5與0.5之間 0與1之間 答 A B C D  [ 2022_3期貨業務:理論30, 2020_3_32, 2019_3_34, 2019_2_23, 2018_3_20, 2018_2_46 ]期貨賣權（Put）的Delta為－0.7，表示在其他情況不變下，期貨價格若上漲1元，期貨買權（Call）價格會： 下跌0.3元 上漲0.3元 下跌0.7元 上漲0.7元 答 A B C D  [ 2019Q3期貨分析:風管12 ]以下何種風險...
閱讀完整內容