level 8
tbzp666
楼主
求一个数组元素的和，并求其最大值和最小值
Private Function Sum(b%(), m%, n%) As Integer
m = LBound(b): n = LBound(b)
For i = LBound(b) To UBound(b)
s = s + b(i)
If b(i) > m Then m = b(i)
If b(i) < n Then n = b(i)
Next i
Sum = s
End Function
Private Sub Form_Click()
Dim a%(1 To 10), Max%, Min%
Randomize
For i = 1 To 10
a(i) = Int(Rnd * 89) + 10
Print a(i);
Next i
Print
Print "Sum="; Sum(a(), Max, Min)
Print "Max="; Max, "Min="; Min
End Sub
最大值没有问题，但为什么最小值都是1？
2022年11月21日 02点11分
1
Private Function Sum(b%(), m%, n%) As Integer
m = LBound(b): n = LBound(b)
For i = LBound(b) To UBound(b)
s = s + b(i)
If b(i) > m Then m = b(i)
If b(i) < n Then n = b(i)
Next i
Sum = s
End Function
Private Sub Form_Click()
Dim a%(1 To 10), Max%, Min%
Randomize
For i = 1 To 10
a(i) = Int(Rnd * 89) + 10
Print a(i);
Next i
Print "Sum="; Sum(a(), Max, Min)
Print "Max="; Max, "Min="; Min
End Sub
最大值没有问题，但为什么最小值都是1？
