迴圈結構.pptVIP

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 複利計算( ch5\複利計算\) 請寫一程式，計算若存一筆錢(N)在銀行，以複利計息，年利率為(X)，求出最少需要幾年才能達到目標金額(M)，流程圖表示如下。 流程圖表示 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 複利計算( ch5\複利計算\) 預覽結果 於存入金額中輸入「10000」(元)，存款年利率輸入「10」(%)，目標金額輸入「20000」(元)，按下「計算所需時間」按鈕，結果顯示在TextBox4中。 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 複利計算( ch5\複利計算\) 表單配置 在表單中新增四個TextBox，四個Label與一個Button。 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 複利計算( ch5\複利計算\) 屬性設定 物件 Label1 Label2 Label3 Label4 Button1 屬性 Text Text Text Text Text 設定值 存入金額 存款年利率 % 目標金額 最少所需時間 計算所需時間 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 複利計算( 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 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 複利計算( 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元件。 E