Re: [VB6 ]求救

看板Visual_Basic作者windwofswold (小狼)時間19年前 (2005/06/09 23:42)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串2/6 (看更多)

※ 引述《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