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