※ 引述《jyvonne78 (燃燒的雲燕)》之銘言： : 老師出了一個題目就是在1-100中隨機選出5個數字，然後從新排序再利用一個程 : 式找出最大值和最小值，最後再算出平均值 : 下面我寫的有沒有錯阿 請各位大大指教 : 亂數的我已經寫出來了 可是排列到平均值就不會寫了 : 雖然去看過的最大值的用法 可是他說無法執行 是不是我的範圍定錯了呢？ 我可以執行，沒錯誤 : Private Sub Command1_Click() : Dim A() : A = Array(b, c, d, e, f) : b = Int(Rnd() * 100 + 1) & " " : c = Int(Rnd() * 100 + 1) & " " : d = Int(Rnd() * 100 + 1) & " " : e = Int(Rnd() * 100 + 1) & " " : f = Int(Rnd() * 100 + 1) & " " : Text1.Text = (b) & (c) & (d) & (e) & (f) : End Sub 你在一個Sub裡面定義的變數 他的生存空間只限定在定義它的Sub裡面， 另一個Sub在定義的話 兩個變數雖然名稱一樣但是在記憶體裡面位址是不一樣的 所以Command2這個函式就沒有作用 : Private Sub Command2_Click() : Dim A() : A = Array(b, c, d, e, f) : For i = 3 To 1 Step -1 : For j = 0 To i : If A(j) > A(j + 1) Then : temp = A(j + 1) : A(j + 1) = temp : End If : Next : Next : For i = 0 To 4 : Text2.Text = (b) & (c) & (d) & (e) & (f) : Next : End Sub : Private Sub Command3_Click() : Dim A() : A = Array(b, c, d, e, f) 直接用你排序後的結果 取出大小值 : End Sub : Private Sub Command4_Click() 平均:把陣列內每個元素相加 再除以元素個數就好了 有問題在PO吧 : End Sub -- ◢██◣ ╭●～●～●～●～●～●～●～●～●～●～╮[醜洨兒] █ ◥▌ │少年不識洨滋味 │ -莖勃陰道擦壁 ◤□︵□▌ │ 愛噴白洨 愛噴白洨 為當站長強吃洨│ ◥　ｏ◤●～╯而今食盡洨滋味 │ ◢▋▼◣ │ 慾噴還休 慾噴還休 卻道天涼好起秋│ By █▋∣█ω ╰～●～●～●～●～●～●～●～●～●～●╯ windwofswold --

※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 220.133.0.216