作者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