VB6.0怎么找最大数和最小数? VB搜索最大值和最小值的技巧

VB6.0找出若干个数中最大的数？有一个数组，里面有若干个数，想要找出最大数和最小数，该怎么实现呢？下面我们就来看看VB6.0编程实现搜索最大(最小)数，并进行输出的过程：

在若干个数中求最大值，一般先假设一个较小的数为最大值的初值，若无法估计较小的值，则取第一个数为最大值的初值；然后将每一个数与最大值比较，若该数大于最大值，将该数替换为最大值；依次逐一比较。

接下来就用VB6.0先随机产生10个100～200之间的数，然后求最大值。

打开VB6.0，新建一个工程，在窗体中添加两个命令按钮，caption分别改为“求最大值”和“求最小值”，添加一个标签控件，将名字改为Lbl1，将窗体Form1的caption属性改为“求数组最大最小值”，将界面设置成下图：

双击“求最大值”命令按钮，进入代码编辑窗口，输入如下代码：

Max = 100 '最小值选定一个较小值
Randomize
For i = 1 To 10
x = Int(Rnd * 101 + 100)
Lbl1.Caption = Lbl1.Caption & x & " "
If x > Max Then Max = x
Next i
Print
Print "最大值="; Max

双击“求最小值”命令按钮，进入代码编辑窗口，输入如下代码：

Min = 200 '最小值选定一个较小值
Randomize
For i = 1 To 10
x = Int(Rnd * 101 + 100)
Lbl1.Caption = Lbl1.Caption & x & " "
If x < Min Then Min = x
Next i
Print
Print "最小值="; Min

关闭代码窗口，按下F5运行程序，单击“求最大值”命令按钮，在标签中产生10个100到200之间的随机数，在窗体中输出最大值，如图：

关闭代码窗口，按下F5运行程序，单击“求最小值”命令按钮，在标签中产生10个100到200之间的随机数，在窗体中输出最小值，如图：

这样就可以完成数组中最大数与最小数的搜索与显示。

注意事项：

在若干个数中求最大值，一般先假设一个较小的数为最大值的初值。

在若干个数中求最小值，一般先假设一个较大的数为最小值的初值。

以上就是VB6.0找出若干个数中最大的数的技巧，希望大家喜欢，请继续关注阿兔在线工具。