Re: [VB6 ]求救
※ 引述《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
討論串 (同標題文章)