计算成绩阵列的总分.ppt

* * * * * * * * * * * 全校成績分數統計( ch7\計算級距\) 要計算全校資訊科期末考試各級距 人數統計，全校成績由程式隨機產 生0~100分數，產生1000個成績， 級距如下表，請計算各級距的人數。 解法：隨機產生1000個成績儲存在 陣列score，利用迴圈檢查每個成績， 根據成績將對應的陣列num加1， 直到檢查所有元素後，陣列num 即為級距人數統計結果。 全校成績分數統計( ch7\計算級距\) 流程圖表示 全校成績分數統計( ch7\計算級距\) 預覽結果 按下「計算級距」按鈕，結果顯示在TextBox1中。 全校成績分數統計( ch7\計算級距\) 表單配置 在表單中新增一個TextBox與一個Button。 全校成績分數統計( ch7\計算級距\) 屬性設定 物件 屬性 設定值 Button1 Text 計算級距 TextBox1 Multiline True TextBox1 ScrollBars Both TextBox1 Size 250,200 全校成績分數統計( ch7\計算級距\) 程式碼新增與解說 點選「計算級距」按鈕，新增程式碼在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 Randomize() Dim score(999) As Integer Dim num(11) As Integer Dim j As Integer For i As Integer = 0 To 999 score(i) = CInt(Int(101 * Rnd())) j = score(i) / 10 num(j) = num(j) + 1 Next For i As Integer = 0 To 10 TextBox1.Text = TextBox1.Text num(i) vbNewLine Next End Sub End Class 全校成績分數統計( ch7\計算級距\) 解說 第3行：初始化隨機函式。 第4行：宣告陣列score? 有1000個整數元素，用於儲存全校成績。 第5行：宣告陣列num有10個整數元素，用於儲存各級距人數。 第6行：宣告變數j，用於級距的分組。 第7~10行：變數i為迴圈變數，變化由0到999，新增隨機產生的分數介於0到100，儲存入陣列score中索引值為i的元素(第8行)，產生成績的同時將分組級距統計出來，計算所屬級距j，j為分數除以10，因為j為整數，分數除以10後小數點以下自動忽略，依據j值將對應的陣列num(j)加1(第9~10行)。 第12~14行：變數i為迴圈變數，變化由0到10，印出陣列num中每個元素值到TextBox1。 全校成績分數統計( ch7\計算級距\) 分數與對應的陣列元素如下表，例如：隨機產生分數若介於40到49，則對應的陣列元素num(4)加1。 樂透開獎( ch7\樂透開獎\) 請製作一個樂透開獎程式，隨機產生六個介於1到48之間的號碼，且號碼不能重複，若有重複，則再產生一個號碼，直到不重複為止。 解法： 宣告整數變數count為目前已經開獎的號碼數。 宣告整數變數pz為新產生的得獎號碼。 宣告陣列prize(6)儲存目前開獎的號碼。 宣告旗標陣列repeat(48)儲存該數字是否已經開過獎，當repeat(i)等於0表示號碼i未開獎；當repeat(i)等於1表示號碼i已開獎。 當count小於等於6時，繼續隨機產生開獎號碼儲存到pz，檢查repeat(pz)是否有開獎過，若為0，表示號碼pz未開獎；repeat(pz)改為1，表示號碼pz已開出，並將號碼pz儲存入陣列prize(count)中，變數count遞增1；若repeat(pz)為1，則表示已開過獎，需重新隨機產生隨機號碼。 樂透開獎( ch7\樂透開獎\) 流程圖表示 樂透開獎( ch7\樂透開獎\) 預覽結果 按下「樂