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如何找出两列数据中的不同项,接下来小编就给大家介绍一下具体的操作步骤.具体如下:1. 首先第一步打开电脑中的Excel文档 ,根据下图所示 ...

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

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

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

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

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

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