用vb作答

来源：百度知道 编辑：UC知道 时间：2024/06/05 09:02:37
编写一个求3个数中最大值MAX 和最小值MIN的过程， 然后用这个过程分别求三个数和五个数，七个数中的最大值和最小值

Dim intArray As Integer()
Randomize()
ReDim intArray(CInt(Rnd() * 10))
For I As Integer = 0 To intArray.Length - 1
intArray(I) = CInt(Rnd() * 10)
Next
MsgBox("最大数为：" & intArray.Max)
MsgBox("最小数为：" & intArray.Min)

这是 2008 计算任意数目数字最大值和最小值的办法