產生ascii碼(ch5產生ascii碼).ppt

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 複利計算( ch5\複利計算\) 請寫一程式，計算若存一筆錢(N)在銀行，以複利計息，年利率為(X)，求出最少需要幾年才能達到目標金額(M)，流程圖表示如下。 流程圖表示 複利計算( ch5\複利計算\) 預覽結果 於存入金額中輸入「10000」(元)，存款年利率輸入「10」(%)，目標金額輸入「20000」(元)，按下「計算所需時間」按鈕，結果顯示在TextBox4中。 複利計算( ch5\複利計算\) 表單配置 在表單中新增四個TextBox，四個Label與一個Button。 複利計算( ch5\複利計算\) 屬性設定 物件 屬性 設定值 Label1 Text 存入金額 Label2 Text 存款年利率 % Label3 Text 目標金額 Label4 Text 最少所需時間 Button1 Text 計算所需時間 複利計算( ch5\複利計算\) 程式碼新增與解說 點選「計算所需時間」按鈕，新增程式碼在Button1_Click函式中，如下方程式區塊。 行號 程式碼 1 2 3 4 5 6 7 8 9 10 11 12 Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim N As Double = Val(TextBox1.Text) Dim X As Double = Val(TextBox2.Text) Dim M As Double = Val(TextBox3.Text) Dim i As Integer = 0 Do While (N = M) i = i + 1 N = N * (1 + X / 100) Loop TextBox4.Text = TextBox4.Text 第 i 年後本利和為° N 超過 M End Sub 複利計算( ch5\複利計算\) 解說 第3行：宣告N為倍精度浮點數，並初始化為TextBox1元件的輸入，表示存入金額。 第4行：宣告X為倍精度浮點數，並初始化為TextBox2元件的輸入，表示存款年利率。 第5行：宣告M為倍精度浮點數，並初始化為TextBox3元件的輸入，表示目標金額。 第6行：宣告i為迴圈變數，並初始化為0，因為進Do-While迴圈後，本利和N計算後才遞增i，最後輸出才會正確。 第7行到第10行：使用Do-While迴圈，其中迴圈變數i值由1到本金和超過目標金額M(第10行)，每次遞增1(第8行)，N為計算本利和的結果(第9行)，N詳細計算細節如下張投影片。 第11行：將本利和超過M的結果，顯示在TextBox4元件。 複利計算( ch5\複利計算\) 舉例說明加總使用N = N * (1 + X / 100)原理，如下表，在Visual Basic中，等號右邊(N * (1 + X / 100))的算式會先計算，結果回存到等號左邊(N)。 求兩數的最大公因數( ch5\最大公因數\) 兩數的最大公因數定義為整除這兩數的最大數。假設兩數為A與B，求最大公因數可以使用A與B的最大公因數等於B與「A除以B的餘數」的最大公因數 流程圖表示 求兩數的最大公因數( ch5\最大公因數\) 預覽結果 於第一數(A)輸入「12」與第二數(B)輸入「17」，按下「求最大公因數」按鈕，結果顯示在TextBox3中。 求兩數的最大公因數( ch5\最大公因數\) 表單配置 在表單中新增三個TextBox，三個Label與一個Button。 求兩數的最大公因數( ch5\最大公因數\) 屬性設定 物件 屬性 設定值 Label1 Text 第一數 (A) Label2 Text 第二數 (B) Label3 Text 最大公因數 Button1 Text 求最大公因數 求兩數的最大公因數( ch5\最大公因數\) 程式碼新增與解說 點