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

 时间:2024-11-08 05:52:52

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

工具/原料

VB6.0

计算机(WIN7系统)

方法/步骤

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

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

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

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

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

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

4、双击“求最大值”命令按钮,进入代码编辑窗口,输入如下代码:Max=100'最怅屹岖噤小值选定一个较小值RandomizeFori=1To10x=Int(Rnd*101敫苻匈酃+100)Lbl1.Caption=Lbl1.Caption&x&""Ifx>MaxThenMax=xNextiPrintPrint"最大值=";Max

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

5、双击“求最小值”命令按钮,进入代码编辑窗口,输入如下代码:Min=200'最怅屹岖噤小值选定一个较小值RandomizeFori=1To10x=Int(Rnd*101敫苻匈酃+100)Lbl1.Caption=Lbl1.Caption&x&""Ifx<MinThenMin=xNextiPrintPrint"最小值=";Min

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

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

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

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

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

如何把数据库中一列添加到comboBox下拉列表中 python怎么实现数字进制输出 VB6.0如何设置窗体的宽度 如何利用SQL Server2012创建数据库表唯一索引 VB求数组中最大值和它的位置
热门搜索
蜀葵图片 qq车图片 图片字体 电影英语 乐基儿图片