作者jyvonne78 (燃燒的雲燕)
看板Visual_Basic
標題[VB6 ]求救
時間Thu Jun 9 22:11:41 2005
老師出了一個題目就是在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
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()
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.228.83.67