用VB如何编写程序对一组数组求最值
在程序设计中,许多算法都离不开数组,数组是常用的数据结构。将数组求最大值或最小值操作称为数组求最值。在一组数中找最大值时,一般先将组内第一个数据作为最大值的初值,然后将其余的每一个数逐一与最大值比较,若比最大值大,则将该数作为新的最大值,直到与最后一个数据比较完成为止。求最小值的方法与之一样。
操作方法
- 01
在这里我们通过编写程序找出10个数中的最大值与最小值。打开vb6.0,新建一个标准EXE
- 02
在属性窗口将Form1的Caption属性改成”数组求最值“
- 03
接着编写一个窗体的单击事件,代码如下: Option Explicit Option Base 1 Private Sub Form_click() Dim a(), x, max, min, i%, n% a = Array(45, 98, 79, 90, - 23, 45, 67, 89, 75, 109) n = UBound(a) Print "数组的数据为:" For i = 1 To n Print a(i) Next i Print max = a(1): min = a(1) For i = 2 To n If a(i) > max Then max = a(i) If a(i) < min Then min = a(i) Next i Print "最大值为:"; max; "最小值为:"; min End Sub
- 04
根据代码,点击运行,单击窗体程序运行的结果如图
- 05
下图中用红圈标识出的,就表示在这组数组中将第一个数赋值为max或者min,然后逐次与后面的进行比较如果遇到比它大或者小就把这个数赋值给max或者min.
- 06
接着我们可以修改代码中的数据(300, 205, 561, 156, 789, 456, 123, 423, 258, -147),然后再来运行一下程序。
- 07
做到这里有的小伙伴就有疑问了“是否可以设定数组的其他元素为最值的初值,比如最后一个?"答案是可以的,我们只需要将程序的第12、13行修改为: max=a(n):min=a(n) for i=1 to n-1
- 08
尽管将max赋给a(n),min赋给a(n),我们程序运行的结果仍然是一样的。
- 09
点击文件按钮,在打开的下拉菜单中点击"保存form文件”和“工程文件”就可以将文件保存下来以后也可以用。