VB常用算法（二）最值问题

1.算法描述

在对几个数求值时，一般取第一个数作为值的初始值(即假设第一个数就是值)。然后，将每个数字与循环中的值进行比较。如果数字大于值，则它将被替换为值，直到循环结束。

求最小值的方法是相似的。

求几个数的平均值，本质上就是先求和，然后除以这些数的个数。

应用示例

从1到100(含)随机生成N个数，求它们的值、最小值、平均值。

私有子命令1_Click()

Dim n为整数，I为整数，min为整数，max为整数，aver为Single，s为整数

N = Val(InputBox("输入数:"))

s = Int(Rnd * 100) + 1

最大值= s

最小值= s

断言= s

打印"第一个数字是:" &s

对于i = 2至n

s = Int(Rnd * 100) + 1

打印“th”和“I”的数量是:“&s

如果s > max，则max = s

如果s < min，则min = s

aver = aver + s

接下来我

aver = aver

Print " max =max" min = "；min" aver = "；断言

末端接头

解决问题的技巧

数值，最小值，平均值经常和数组一起测试！有些不仅寻找这些值，而且还处理具有值或最小值的行或列或元素。此时，在记录最小值时，应同时记录该值的行号和列号。