程式設計學習進度
第一週(09/07)
用記事本編輯html
第二週(09/14)
"嵌入(embed)" 同學的網頁
第三週(09/21)
A.表單輸入，核取方塊
B.Java Script 判斷式
C.分辨 Google Blogspt
學習input還有表單
位元與變數
|
10進位 |
16進位 |
位元數的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 |
3 |
0 |
0 |
0 |
0 |
0 |
0 |
1 |
1 |
|
11 |
B |
10 |
0 |
0 |
0 |
0 |
1 |
0 |
1 |
0 |
|
12 |
C |
10 |
0 |
0 |
0 |
0 |
1 |
0 |
1 |
0 |
|
13 |
D |
5 |
0 |
0 |
0 |
0 |
0 |
1 |
0 |
1 |
|
14 |
E |
6 |
0 |
0 |
0 |
0 |
0 |
1 |
1 |
0 |
|
16 |
10 |
10 |
0 |
0 |
0 |
0 |
1 |
0 |
1 |
0 |
|
18 |
12 |
11 |
0 |
0 |
0 |
0 |
1 |
0 |
1 |
1 |
|
20 |
14 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
|
255 |
FF |
255 |
1 |
1 |
1 |
1 |
1 |
1 |
1 |
1 |
第四週(09/28)
<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="500">500</option>
</select>
選擇顏色:
<input id="linecolor" type="checkbox">紅色 <!--核取方塊 linecolor -->
<input onclick="draw()" type="button" value="2020年每天通貨走勢" />
</form>
var canvas = document.getElementById("canvas"); //var 宣告 變數 variables
var toLef, toTop;
var ctx = canvas.getContext("2d");
var speedvalue; //速度變數
var speed = document.getElementById("selection");
// for (var j=0; j < speed.length; j++) //迴圈從 0 開始 到達 speed 下拉式選單的結構｛0,10,20,40,100,500｝
// {
// if (speed[j].selectionIndex = j)
// {
// speedvalue = speed[j].text; //下拉式選單的第 j 個數字 當作速度 0,1,2,3.....
// break;
// }
// } 以上錯誤 選擇的選項 選擇的索引 selectionIndex (X) selectedIndex(O)
speedvalue = speed.options[speed.options.selectedIndex]. text;
第五週(10/05)
<head>
<style>
.Takming {
border: 20px outset red;
background-color: green;
color: white;
text-align: center;
}
</style>
</head>
---------------------
Private Sub UserForm_Initialize() '為下拉方塊，增加項目
ComboBox1.AddItem ("董事長")
ComboBox1.AddItem ("總經理")
ComboBox1.AddItem ("副總經理")
ComboBox1.AddItem ("財務長")
End Sub
聯絡人職位:
| 網頁指令 | 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 |
第六週(10/11)
網頁中按下F12開啟開發人員工具
第七週(10/19)
第八週(10/26)
貼現率 %
價格$(計算中)
參考李顯儀金融市場page 4-12
第九週(11/02)期中考
中央銀行受財政部委託，發行 天期國庫券，決標貼現率：年息 %。
則每萬元($10,000)新臺幣的發行價格是$ (價格)
第十週(11/09)
呈現
呈現
第十一週(11/16)| 躉繳 | 第1期 | 第2期 | 第3期 | 第4期 |
注意，包含首期{躉繳的現金流量都大於0。
報酬率:
淨現值:
迴圈次數:
第十二週(11/23)
在word開始使用開發人員
第十三週(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
'將結果顯示在Word上
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 Label1_Click()
End Sub
留言
張貼留言