VB6.0怎么找最大数和最小数? VB搜索最大值和最小值的技巧
发布时间：2022-02-07 16:51:43 作者：佚名 
我要评论
我要评论VB6.0怎么找最大数和最小数？VB6.0想要一组数据中快速搜索到最大数和最小数，我们可以使用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找出若干个数中最大的数的技巧，希望大家喜欢，请继续关注脚本之家。
相关推荐：
相关文章
VB6.0代码怎么设置某个控件的属性？VB6.0想要设置控件属性，该怎么设置呢？我们可以通过代码来设置，下面我们就来看看详细的教程，需要的朋友可以参考下2019-02-16
VB6.0项目怎么添加用户控件？VB6.0编程开发的时候，想要添加用户控件，该怎么添加呢？下面我们就来看看详细的教程，需要的朋友可以参考下2019-02-13
VB6.0过程属性怎么设置？VB6.0中想要设置过程属性，该怎么设置呢？下面我们就来看看VB6.0设置过程属性的教程，很简单，需要的朋友可以参考下2019-01-31
VB6.0怎么设置窗口平铺方式？VB6.0中的窗口，想要设置成平铺的方式，该怎么设置呢？下面我们就来看看VB6.0窗口平铺的教程，需要的朋友可以参考下2019-01-31
VB6.0工具箱怎么添加拓展控件快捷方式？VB6.0想要要将常用的空间添加到工具箱中方便使用，该怎么添加呢？下面我们就来看看详细的教程，需要的朋友可以参考下2018-10-11
VB6.0怎么编程窗体卸载事件？VB6.0想要编写一个窗体卸载事件，该怎么编写呢？下面我们就来看看详细的教程，很简单，需要的朋友可以参考下2018-10-08
VB6.0代码怎么添加注释语句？VB6.0编程开发的时候，想要给代码添加注释语句，该怎么添加注释呢？下面我们就来看看详细的教程，需要的朋友可以参考下2018-10-08
VB6.0怎么定义一个字符串变量？VB6.0中想要定义变量，该怎么定义字符串变量恩？下面我们就来看看详细的教程，需要的朋友可以参考下2018-09-27
VB6.0把普通窗体怎么改成MDI窗体？VB6.0中想要修改窗体，该怎么将普通窗体改成MDI窗体呢？下面我们就来看看详细的教程，需要的朋友可以参考下2018-09-27
VB6.0怎么制作菜单？VB6.0中想要制作一个菜单，该怎么编辑菜单呢？下面我们就来看看VB6.0菜单的制作方法，需要的朋友可以参考下2018-09-27
最新评论