欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  科技

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

程序员文章站 2022-03-02 18:28:13
vb6.0找出若干个数中最大的数?有一个数组,里面有若干个数,想要找出最大数和最小数,该怎么实现呢?下面我们就来看看vb6.0编程实现搜索最大(最小)数,并进行输出的过程:在若干个数中求最大值,一般先...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

注意事项:

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

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

以上就是vb6.0找出若干个数中最大的数的技巧,希望大家喜欢,请继续关注。