計算1+(1+2)+(1+2+3)+…+(1+2+3+…+n).pptVIP

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * 計算1+(1+2)+(1+2+3)+…+(1+2+3+…+n)( ch6\計算1+(1+2)+(1+2+3)+…+(1+2+3+…+n)\) 表單配置 在表單中新增兩個TextBox，兩個Label與一個Button。 計算1+(1+2)+(1+2+3)+…+(1+2+3+…+n)( ch6\計算1+(1+2)+(1+2+3)+…+(1+2+3+…+n)\) 屬性設定 物件 屬性 設定值 Label1 Text 輸入 n值 Label2 Text 結果 Button1 Text 計算加總 TextBox2 Multiline True TextBox2 Size 145,175 TextBox2 ScrollBars Both 計算1+(1+2)+(1+2+3)+…+(1+2+3+…+n)( ch6\計算1+(1+2)+(1+2+3)+…+(1+2+3+…+n)\) 程式碼新增與解說 點選「計算加總」按鈕，新增程式碼在Button1_Click函式中，如下方程式區塊。 行號 程式碼 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim n As Integer = Val(TextBox1.Text) Dim sum As Integer Dim sumAll As Integer = 0 For i As Integer = 1 To n sum = 0 For j As Integer = 1 To i sum = sum + j Next TextBox2.Text = TextBox2.Text i= i ,sum= sum vbNewLine sumAll = sumAll + sum Next TextBox2.Text = TextBox2.Text 1+(1+2)+(1+2+3)+...+(1+2+3+...+n)= sumAll End Sub End Class 計算1+(1+2)+(1+2+3)+…+(1+2+3+…+n)( ch6\計算1+(1+2)+(1+2+3)+…+(1+2+3+…+n)\) 解說 第3行：宣告n為整數變數，並初始化為元件TextBox1的輸入值。 第4行：宣告sum為整數變數。 第5行：宣告sumAll為整數變數，並初始化為0。 第6~13行：變數i為外層迴圈，其變化值由1到n，其範圍包含內層迴圈。 第7行：變數i有改變時，每次重新設定sum等於0。 第8~10行：變數j為內層迴圈，其變化值由1到i，當外層迴圈執行一次，內層迴圈執行i次，利用sum=sum+j暫存加總結果(1+2+3+…+j)(第9行)。 第11行：顯示每個「i值」與每個i值的加總結果「sum值」，再加上換行以vbNewLine表示。 第12行：利用sumAll=sumAll+sum暫存加總1+(1+2)+(1+2+3)+…+(1+2+3+…+i)的結果。 第14行：顯示字串「1+(1+2)+(1+2+3)+...+(1+2+3+...+n)=」，之後再顯示sumAll值的結果。 計算1+(1+2)+(1+2+3)+…+(1+2+3+…+n)( ch6\計算1+(1+2)+(1+2+3)+…+(1+2+3+…+n)\) 此範例同印星號原理，如下表，在Visual Basic中外層迴圈包含內層迴圈，外層迴圈執行一次，內層迴圈要執行完畢，本範例內層迴圈執行次數受外層迴圈限制，i等於1，j由1依序變化到1；i等於2，j由1依序變化到2；i等於3，j由1依序變化到3；i等於4；j由1依序變化到4；i等於5，j由1依序變化到5。 列出2-10000所有質數( ch6\列出質數\) 可以參考第5章質數判斷，某數的因數只有1與自己，沒有其他因數，稱為質數。程式中要判斷一個數是否是質數，就要判斷他的因數是否只有1與自己，要列出2-10000所有質數，除了需要質