VB6.0找出若干个数中最大的数

有一个数组，里面有若干个数，接下来介绍VB6.0编程实现搜索最大(最小)数，并进行输出的过程：

操作方法

  • 01

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

  • 02

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

  • 03

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

  • 04

    双击“求最大值”命令按钮，进入代码编辑窗口，输入如下代码： 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

  • 05

    双击“求最小值”命令按钮，进入代码编辑窗口，输入如下代码： 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

  • 06

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

  • 07

    关闭代码窗口，按下F5运行程序，单击“求最小值”命令按钮，在标签中产生10个100到200之间的随机数，在窗体中输出最小值，如图： 这样就可以完成数组中最大数与最小数的搜索与显示。

赞 (0)

相关推荐

  • 用VB6.0找出100以内的素数（质数）

    数(prime number)又称素数,有无限个.一个大于1的自然数,除了1和它本身外,不能被其他自然数整除,换句话说就是该数除了1和它本身以外不再有其他的因数 操作方法 01 启动VB6.0,新建一 ...

  • 用VB6.0找出所有的水仙花数（梅花数）

    水仙花数是指一个 n 位数 ( n≥3 ),它的每个位上的数字的 n 次幂之和等于它本身.(例如:1^3 + 5^3 + 3^3 = 153). 三位的水仙花数共有4个:153,370,371,407 ...

  • EXCEL怎么找出两列中不同的项

    有很多朋友都会想找出两列数据中不同的项,其实还比较简单,只要用到一个小小的函数就好了. 操作方法 01 在这两列数据旁边建立辅助列: 02 在辅助列的单元格里面输入函数:=IF(ISERROR(VLO ...

  • 用VB6.0算出阶乘n的值

    阶乘:例如n为5,那么5!(5阶乘)就等于5×4×3×2×1.以此类推 操作方法 01 启动VB6.0,新建一个标准exe工程. 02 在窗体上绘制一个命令按钮,名称为Command1. 03 双击命 ...

  • 电脑如何查找重复文件（如何找出文件夹中重复的文件）

    电脑如何查找重复文件（如何找出文件夹中重复的文件）

    Cisdem Duplicate Finder版是适用于Mac的重复文件清理软件,能快速查找和删除重复文件或类似图像释放磁盘空间 - 不再有重复的照片,视频,音乐,存档等,以及外部或内部驱动器中的类似 ...

  • Excel如何找出两列数据中的不同项

    Excel如何找出两列数据中的不同项

    Excel文档常常被用来统计各类数据,有些用户想知道Excel如何找出两列数据中的不同项,接下来小编就给大家介绍一下具体的操作步骤.具体如下:1. 首先第一步打开电脑中的Excel文档 ,根据下图所示 ...

  • 电脑中怎么快速找出word文档中的错别字

    电脑中怎么快速找出word文档中的错别字

    当我们在使用电脑的时候,如果需要进行文字处理的话,一般都会用到word软件,那么在word中,是否有简便的方式让我们找出文档中的错别字呢?接下来就由小编来告诉大家.具体如下:1. 第一步,打开电脑中的 ...

  • 怎么快速找出电脑wps表格文档中的重复数据

    怎么快速找出电脑wps表格文档中的重复数据

    当我们在使用电脑的时候,一般都会用wps表格软件来处理一些数据,那么如果想要找出文档中的重复数据的话,应如何进行操作呢?接下来就由小编来告诉大家.具体如下:1. 第一步,打开电脑中的一个wps表格文档 ...

  • 怎么找出电脑版Excel中指定位置中的极大值和极小值

    怎么找出电脑版Excel中指定位置中的极大值和极小值

    电脑版Excel软件被很多人使用,用来编辑文档,处理数据等,有的用户在使用该软件时,想要找出指定位置中的极大值和极小值,但是却不知道如何找出,那么小编就来为大家介绍一下吧.具体如下:1. 第一步,双击 ...